Druk een lijst af van één terugkerende Outlook-afspraak met exporteren

Druk een lijst af van één terugkerende Outlook-afspraak met VBA

Er is eigenlijk geen directe manier om de lijst met alle gebeurtenissen in een terugkerende afspraak in Outlook af te drukken. U kunt de agendagegevens echter exporteren naar Excel, alle exemplaren van de terugkerende afspraak eruit filteren en vervolgens afdrukken. Ga als volgt te werk:

1. Klik in Outlook op Dien in > Openen en exporteren (of Openen)> Import / Export (of import).

2. Klik in de wizard Importeren en exporteren op het Naar een bestand exporteren optie en klik op de Volgende knop.

3. Klik in het eerste dialoogvenster Exporteren naar een bestand op het Comma-gescheiden waarden optie en klik op de Volgende knop.

4. Selecteer in het tweede dialoogvenster Exporteren naar een bestand het kalender met de terugkerende afspraak die u wilt afdrukken, en klik op de Volgende knop.

5. Klik in het derde dialoogvenster Exporteren naar een bestand op het Blader knop.

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

7. Klik op het Volgende knoppen en Finish knop in zowel het derde als het laatste dialoogvenster Een bestand exporteren.

8. Geef het datumbereik op waarin u de kalender wilt exporteren in het dialoogvenster Datumbereik instellen en klik op OK knop.

9. Tot dusver 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 vanuit het contextmenu. Zie screenshot:

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

10. Klik op het Filter-pictogram in de kolomkop van Onderwerp, controleer alleen het onderwerp van de terugkerende afspraak die u wilt afdrukken in de vervolgkeuzelijst en klik op de OK knop.

11. Alleen de exemplaren van de opgegeven terugkerende afspraak worden uitgefilterd. Klik alstublieft Dien in > Print om ze af te drukken.

Deze methode introduceert een VBA om snel en gemakkelijk een lijst met een terugkerende afspraak in Outlook af te drukken. Ga als volgt te werk:

1. Selecteer in de kalenderweergave een exemplaar van de terugkerende afspraak die u wilt afdrukken en druk op anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe openingsmodulescript.

VBA: druk een lijst af van alle gebeurtenissen in een terugkerende afspraak 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

Note: Wijzig het datumbereik waarin u de terugkerende afspraak in de code wilt afdrukken: sFilter = "[Start]> = '11/1/2016'En [Einde] <'6-30-2017 ' En [IsRecurring] = Waar En [Onderwerp] = "& strSubject

3. druk op F5 toets of klik op de lopen knop om deze VBA uit te voeren.

4. Nu wordt de lijst met alle gebeurtenissen in de geselecteerde terugkerende afspraak gekopieerd en in een nieuwe e-mail geplakt, zoals onderstaand screenshot. Klik alstublieft Dien in > Print om de lijst af te drukken.

Print lege agenda (zonder afspraak) in Outlook

Druk twee weken / maanden kalender per pagina af in Outlook

Druk de dagelijkse agenda af in Outlook