Hoe een lijst van één terugkerende afspraak in Outlook afdrukken?

Een lijst van één terugkerende afspraak in Outlook afdrukken door te exporteren

Een lijst van één terugkerende afspraak in Outlook afdrukken met VBA

Eigenlijk is er geen directe manier om de lijst van alle gebeurtenissen in een terugkerende afspraak in Outlook af te drukken. U kunt echter de agenda-gegevens naar Excel exporteren, alle gebeurtenissen van de terugkerende afspraak filteren en vervolgens afdrukken. Doe het volgende:

1. Klik in Outlook op Bestand > Openen & Exporteren (of Openen) > Importeren/Exporteren (of Importeren).

2. Selecteer in de Importeren en Exporteren Wizard de optie Exporteren naar een bestand en klik op de Volgende knop.

3. Selecteer in het eerste Exporteren naar een Bestand dialoogvenster de optie Door komma's gescheiden waarden en klik op de Volgende knop.

4. Selecteer in het tweede Exporteren naar een Bestand dialoogvenster de agenda die de terugkerende afspraak bevat die u wilt afdrukken en klik op de Volgende knop.

5. Klik in het derde Exporteren naar een Bestand dialoogvenster op de Bladeren knop.

6. Nu verschijnt het Bladeren dialoogvenster. (1) Specificeer een doelmap waarin u het geëxporteerde CSV-bestand wilt opslaan, (2) noem het CSV-bestand in het Bestandsnaam vak, en (3) klik op de OK knop.

7. Klik op de Volgende knoppen en Afsluiten knop in zowel het derde als het laatste Exporteren naar een Bestand dialoogvenster.

8. Specificeer het datumbereik waarbinnen u de agenda wilt exporteren in het Datumbereik instellen dialoogvenster en klik op de OK knop.

9. Tot nu toe is de Outlook-agenda geëxporteerd als een CSV-bestand. Open de map met het CSV-bestand, klik met de rechtermuisknop op het CSV-bestand en selecteer Openen met > Excel uit het contextmenu. Zie screenshot:

10. Het geëxporteerde CSV-bestand wordt geopend in Excel. Selecteer de kolomkop van Onderwerp en klik op Gegevens > Filter. Zie screenshot:

10. Klik op het Filterpictogram in de kolomkop van Onderwerp, vink alleen het onderwerp aan van de terugkerende afspraak die u wilt afdrukken uit de vervolgkeuzelijst en klik op de OK knop.

11. Alleen de gebeurtenissen van de opgegeven terugkerende afspraak zijn gefilterd. Klik op Bestand > Afdrukken om ze af te drukken.

Deze methode introduceert een VBA om snel een lijst van een terugkerende afspraak in Outlook af te drukken. Doe het volgende:

1. Selecteer in de Agenda-weergave één gebeurtenis van de terugkerende afspraak die u wilt afdrukken en druk op Alt + F11 om het Microsoft Visual Basic for Applications venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande VBA-code in het nieuwe Module script.

VBA: Een lijst van alle gebeurtenissen in een terugkerende afspraak in Outlook afdrukken

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

Opmerking: Wijzig het datumbereik waarbinnen u de terugkerende afspraak wilt afdrukken in de code: sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Onderwerp] = " & strSubject

3. Druk op de F5-toets of klik op de Uitvoeren-knop om deze VBA uit te voeren.

4. Nu zijn de lijsten van alle gebeurtenissen in de geselecteerde terugkerende afspraak gekopieerd en geplakt in een nieuwe e-mail zoals in onderstaande schermafbeelding te zien is. Klik op Bestand > Afdrukken om de lijst af te drukken.

Lege agenda (zonder afspraken) in Outlook afdrukken

Twee weken/maanden van de agenda per pagina in Outlook afdrukken

Dagelijkse agenda in Outlook afdrukken