Come stampare un elenco di una singola occorrenza di un appuntamento ricorrente in Outlook?

Stampa un elenco di un singolo appuntamento ricorrente di Outlook esportandolo

Stampa un elenco di un singolo appuntamento ricorrente di Outlook con VBA

In realtà, non esiste un modo diretto per stampare l’elenco di tutte le occorrenze di un appuntamento ricorrente in Outlook. Tuttavia, puoi esportare i dati del calendario in Excel, filtrare tutte le occorrenze dell’appuntamento ricorrente e poi stamparle. Ecco come fare:

1. In Outlook, fai clic su File > Apri ed Esporta(o)Apri) > Importa/Esporta(o)Importa).

2. Nella procedura guidata Importa ed Esporta, seleziona l’opzione Esporta in un file, quindi fai clic sul pulsante Avanti.

3. Nella prima finestra di dialogo Esporta in un file, fai clic sull’opzione Valori separati da virgola, quindi sul pulsante Avanti.

4. Nella seconda finestra di dialogo «Esporta in un file», seleziona il calendario che contiene l’appuntamento ricorrente da stampare e fai clic sul pulsante Avanti.

5. Nella terza finestra di dialogo «Esporta in un file», fai clic sul pulsante Sfoglia.

6. Viene visualizzata la finestra di dialogo Sfoglia. (1) Specifica la cartella di destinazione in cui salvare il file CSV esportato, (2) assegna un nome al file nella casella Nome file, quindi (3) fai clic sul pulsante OK.

7. Fare clic sui pulsanti Avanti e Fine nella terza e ultima finestra di dialogo Esporta in un file.

8. Nella finestra di dialogo Imposta Intervallo di date, specificare l’intervallo di date entro cui esportare il calendario e fare clic sul pulsante OK.

9. A questo punto, il calendario di Outlook è stato esportato come file CSV. Aprire la cartella che contiene il file CSV, fare clic con il tasto destro del mouse sul file e selezionare Apri con > Excel dal menu contestuale. Vedere lo screenshot:

10. Il file CSV esportato viene aperto in Excel. Fai clic sull’intestazione della colonna Oggetto, quindi seleziona Dati > Filtro. Vedere lo screenshot:

10. Fare clic sull’icona Filtro nell’intestazione della colonna Oggetto, selezionare dall’elenco a discesa solo l’oggetto dell’appuntamento ricorrente da stampare e fare clic sul pulsante OK.

11. Vengono visualizzate soltanto le occorrenze dell’appuntamento ricorrente specificato. Fai clic su File > Stampa per stamparle.

Questo metodo introduce una macro VBA per stampare facilmente un elenco di un appuntamento ricorrente in Outlook. Procedere come segue:

1. Nella visualizzazione Calendario, seleziona un’occorrenza dell’appuntamento ricorrente da stampare e premi i tasti Alt+F11 per aprire la finestra Microsoft Visual Basic, Applications Edition.

2. Fare clic su Inserisci > Modulo, quindi incollare il seguente codice VBA nello script del nuovo modulo aperto.

VBA: stampa un elenco di tutte le occorrenze di un appuntamento ricorrente 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

Nota: modificare il Intervallo di date entro cui si desidera stampare l’appuntamento ricorrente nel codice: sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. Premere il tasto F5 o fare clic sul pulsante Esegui per eseguire questa macro VBA.

4. L’elenco di tutte le occorrenze dell’appuntamento ricorrente selezionato viene copiato e incollato in una nuova email, come mostrato nello screenshot seguente. Fare clic su File > Stampa per stampare l’elenco.

Stampa calendario vuoto (senza appuntamenti) in Outlook

Stampa due settimane/mesi del calendario per pagina in Outlook

Stampa calendario giornaliero in Outlook