2 Schnelle Mittel zum Zusammenführen und Drucken mehrerer Outlook-Kalender auf derselben Seite

Möglicherweise haben Sie mehrere Kalender in Ihrem Outlook und jeder enthält viele Elemente. Wenn Sie alle diese Kalender auf derselben Seite drucken möchten, können Sie diesen Artikel lesen, um zwei einfache Methoden zu erlernen.

In Outlook können Sie mehrere Kalender im Overlay-Modus anzeigen, sodass Sie alle Elemente in mehreren Kalendern auf derselben Seite anzeigen können. In dieser Ansicht können Sie jedoch nicht mehrere Kalender drucken. In diesem Problem stellen wir Ihnen zwei Ansätze vor, mit denen Sie mehrere Kalender auf derselben Seite drucken können.

Methode 1: Drucken Sie den Screenshot der überlagerten Kalender

1. Als Erstes rufen Sie den Kalenderbereich über „Strg + 2“ auf.
2. Überprüfen Sie dann im Navigationsbereich die Kalender, die Sie drucken möchten.
3. Klicken Sie anschließend auf die linken Pfeile in der Kopfzeile der Kalender, um sie zu überlagern.
4. Jetzt können Sie sehen, dass alle Elemente der Kalender in derselben Ansicht angezeigt wurden, wie im folgenden Bild.
5. Klicken Sie anschließend auf der Registerkarte "Startseite" auf "Neue Elemente"> "E-Mail-Nachricht".
6. Setzen Sie im neuen Nachrichtenfenster den Cursor in den Text.
7. Wechseln Sie dann zur Registerkarte "Einfügen" und klicken Sie auf "Screenshot".
8. Wählen Sie als Nächstes die erste Option unter "Verfügbares Windows".
9. Danach wurden die überlagerten Kalender in den Körper gelegt.
10. Klicken Sie abschließend auf "Datei"> "Drucken"> "Drucken", um diese E-Mail auszudrucken.

Methode 2: Zusammengeführte Kalender auf derselben Seite über VBA drucken

1. Drücken Sie zunächst die Tasten „Alt + F11“, um auf den Outlook VBA-Editor zuzugreifen.
2. Fügen Sie dann den folgenden Code in ein Modul ein.

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. Führen Sie als Nächstes das Makro aus, indem Sie in der Unterroutine "CombineMultipleCalendars" die Taste "F5" drücken.
4. Geben Sie danach die Anzahl der Kalender ein, die Sie gleichzeitig drucken möchten.
5. Später müssen Sie gemäß der gerade eingegebenen Nummer die bestimmte Anzahl von Kalendern im Popup-Dialogfeld auswählen.
6. Wenn das Makro abgeschlossen ist, können Sie zum Kalender-Navigationsbereich zurückkehren.
7. Jetzt sehen Sie dort einen neuen "Temp" -Kalender, der alle Elemente der ausgewählten Kalender enthält.
8. Schließlich können Sie diesen Kalender wie gewohnt ausdrucken.

Relook-Probleme schnell beheben

Hatten Sie schon einmal Probleme mit Outlook? Was würden Sie in diesem Fall tun? In der Regel greifen die meisten Benutzer zunächst auf das integrierte Reparaturtool Scanpst zurück. Dieses kann jedoch schwerwiegende Probleme wie beschädigte PST-Dateien nicht beheben. Normalerweise ist dann ein leistungsfähigeres externes Tool erforderlich, beispielsweise ein Outlook-Reparaturtool. DataNumen Outlook Repair. Es kann Outlook reparieren Probleme im Handumdrehen.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Fix und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX