Wie druckt man eine Liste eines sich wiederholenden Outlook-Termins?

Drucken einer Liste eines Outlook-Termins mit Wiederholung durch Exportieren

Drucken einer Liste eines Outlook-Termins mit Wiederholung mithilfe von VBA

Tatsächlich gibt es keine direkte Möglichkeit, die Liste aller Termine innerhalb eines sich wiederholenden Termins in Outlook zu drucken. Sie können jedoch die Kalenderdaten nach Excel exportieren, alle Termine des sich wiederholenden Termins herausfiltern und anschließend drucken. Gehen Sie dazu wie folgt vor:

1. Klicken Sie in Outlook auf Datei > Öffnen & Exportieren(oder)Öffnen) > Importieren/Exportieren(oder)Importieren).

2. Klicken Sie im Assistenten zum Importieren und Exportieren auf die Option In eine Datei exportieren und anschließend auf die Schaltfläche Weiter.

3. Klicken Sie im ersten Dialogfeld „In eine Datei exportieren“ auf die Option Durch Kommas getrennte Werte und dann auf die Schaltfläche Weiter.

4. Wählen Sie im zweiten Dialogfeld „In eine Datei exportieren“ den Kalender aus, der den sich wiederholenden Termin enthält, den Sie drucken möchten, und klicken Sie auf die Schaltfläche Weiter.

5. Klicken Sie im dritten Dialogfeld „In eine Datei exportieren“ auf die Schaltfläche Durchsuchen.

6. Das Dialogfeld „Durchsuchen“ wird geöffnet. (1) Wählen Sie einen Zielordner aus, in dem die exportierte CSV-Datei gespeichert werden soll, (2) geben Sie im Feld Dateiname einen Namen für die CSV-Datei ein, und (3) klicken Sie auf die Schaltfläche OK.

7. Klicken Sie in den dritten und letzten Dialogfeldern „In eine Datei exportieren“ auf die Schaltflächen Weiter und Fertig stellen.

8. Geben Sie im Dialogfeld „Datumsbereich festlegen“ den Zeitraum an, innerhalb dessen Sie den Kalender exportieren möchten, und klicken Sie auf die Schaltfläche OK.

9. Der Outlook-Kalender wurde nun als CSV-Datei exportiert. Öffnen Sie den Ordner mit der CSV-Datei, klicken Sie mit der rechten Maustaste auf die Datei und wählen Sie im Kontextmenü Öffnen mit > Excel. Siehe Screenshot:

10. Die exportierte CSV-Datei wird in Excel geöffnet. Klicken Sie auf die Spaltenüberschrift „Betreff“ und anschließend auf Daten > Filter. Siehe Screenshot:

10. Klicken Sie auf das Filtersymbol in der Spaltenüberschrift „Betreff“, aktivieren Sie ausschließlich den Betreff des sich wiederholenden Termins, den Sie drucken möchten, und bestätigen Sie mit der Schaltfläche OK.

11. Es werden nun nur die Termine des angegebenen sich wiederholenden Termins herausgefiltert. Klicken Sie auf Datei > Drucken, um sie zu drucken.

Diese Methode nutzt ein VBA-Skript, um mühelos eine Liste aller Termine eines sich wiederholenden Outlook-Termins zu drucken. Gehen Sie dazu wie folgt vor:

1. Wählen Sie in der Kalenderansicht einen Termin aus der Serie der sich wiederholenden Termine aus, den Sie drucken möchten, und drücken Sie die Tastenkombination Alt+F11, um das Fenster „Microsoft Visual Basic für Applikationen“ zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das neu geöffnete Modul ein.

VBA: Drucken einer Liste aller Termine eines sich wiederholenden Termins in Outlook

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

Hinweis: Passen Sie im Code den Zeitraum Datumsbereich an, innerhalb dessen Sie den sich wiederholenden Termin drucken möchten: sFilter = "[Start] >= '11/1/2016‚ And [End] < '6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA-Skript auszuführen.

4. Die Liste aller Termine des ausgewählten sich wiederholenden Termins wird nun in eine neue E-Mail kopiert, wie im folgenden Screenshot dargestellt. Klicken Sie auf Datei > Drucken, um die Liste zu drucken.

Leeren Kalender (ohne Termine) in Outlook drucken

Zwei Wochen/Monate des Kalenders pro Seite in Outlook drucken

Tageskalender in Outlook drucken