2 hurtige midler til at flette og udskrive flere Outlook-kalendere på samme side

Måske har du flere kalendere i din Outlook, og hver indeholder mange ting. Hvis du vil udskrive alle disse kalendere på samme side, kan du læse denne artikel for at lære 2 nemme metoder.

Outlook giver dig mulighed for at se flere kalendere i overlay-tilstand, så du kan se alle elementerne i flere kalendere på samme side. Du kan dog ikke udskrive flere kalendere i denne visning. Når vi ser på dette problem, vil vi her introducere dig to tilgange, som giver dig mulighed for at udskrive flere kalendere på samme side.

Metode 1: Udskriv skærmbillede af overlejrede kalendere

1. Til at starte med skal du åbne Kalender-panelet via "Ctrl + 2".
2. Kontroller derefter de kalendere, du vil udskrive, i navigationsruden.
3. Klik derefter på venstre pil på overskriften på kalenderne for at overlejre dem.
4. Nu kan du se, at alle elementerne i kalenderne er vist i samme visning, som det følgende billede.
5. Klik derefter på "Nye emner"> "E-mail-besked" under fanen "Hjem".
6. I det nye meddelelsesvindue skal du placere markøren i kroppen.
7. Skift derefter til fanen "Indsæt", og klik på "Skærmbillede".
8. Vælg derefter den første mulighed i "Tilgængelig Windows".
9. Derefter er de overlejrede kalendere sat i kroppen.
10. Klik til sidst på "File"> "Print"> "Print" for at udskrive denne e-mail.

Metode 2: Udskriv flettede kalendere på samme side via VBA

1. Først skal du trykke på “Alt + F11” -tasterne for at få adgang til Outlook VBA-editor.
2. Sæt derefter følgende kode i et modul.

Dim objTempCalendar As Outlook.Folder

Sub CombineMultipleCalendars()
    Dim lCalendarCount As Long
    Dim i As Long
 
    On Error Resume Next
    Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders("Temp")
    If objTempCalendar Is Nothing Then
       Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders.Add("Temp")
    End If

    lCalendarCount = InputBox("How many calendars you want to print?", , "3")
 
    i = 1
    While i <= lCalendarCount
          Call CopyCalendarItems
          i = i + 1
    Wend
End Sub

Sub CopyCalendarItems()
    Dim objSourceCalendar As Outlook.Folder
    Dim objCalendarItem As Outlook.AppointmentItem
    Dim objCopiedItem As Outlook.AppointmentItem
    Dim objMoviedItem As Outlook.AppointmentItem
 
    Set objSourceCalendar = Outlook.Application.Session.PickFolder
 
    If Not (objSourceCalendar Is Nothing) Then
       If objSourceCalendar.DefaultItemType = olAppointmentItem Then
          For Each objCalendarItem In objSourceCalendar.Items
              Set objCopiedItem = objCalendarItem.Copy
              Set objMoviedItem = objCopiedItem.Move(objTempCalendar)
              objMoviedItem.Save
          Next
       End If
    End If
End Sub

3. Kør derefter makroen ved at trykke på “F5” -tasten i underrutinen “CombineMultipleCalendars”.
4. Indtast derefter antallet af kalendere, du vil udskrive på samme tid.
5. Senere, som pr. Det nummer, du indtaster lige nu, skal du vælge det bestemte antal kalendere i popup-dialogboksen.
6. Når makroen er afsluttet, kan du gå tilbage til navigationsruden Kalender.
7. Nu vil du se en ny "Temp" -kalender derovre, der indeholder alle elementerne i de valgte kalendere.
8. Til sidst kan du udskrive denne kalender som normalt.

Reparer Outlook-problemer hurtigt

Har du nogensinde oplevet problemer med Outlook? Hvad ville du i så fald gøre? Generelt ville de fleste brugere i første omgang ty til det indbyggede reparationsværktøj – Scanpst. Men faktisk kan det ikke løse alvorlige problemer, såsom PST-skader. Normalt skal du på det tidspunkt bruge et mere erfarent eksternt værktøj, f.eks. DataNumen Outlook Repair. Det kan rette Outlook problemer i et øjeblik.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com