¿Cómo imprimir una lista de una cita periódica en Outlook?

Imprimir una lista de una cita periódica de Outlook mediante exportación

Imprimir una lista de una cita periódica de Outlook con VBA

En realidad, no existe una forma directa de imprimir la lista completa de todas las repeticiones de una cita periódica en Outlook. Sin embargo, puede exportar los datos del calendario a Excel, filtrar allí todas las repeticiones de dicha cita y, posteriormente, imprimirlas. Siga estos pasos:

1. En Outlook, haga clic en Archivo > Abrir y exportar(o)Abrir) > Importar/Exportar(o)Importar).

2. En el Asistente para importar y exportar, haga clic en la opción Exportar a un archivo y pulse el botón Siguiente.

3. En el primer cuadro de diálogo Exportar a un archivo, haga clic en la opción Valores separados por comas y pulse el botón Siguiente.

4. En el segundo cuadro de diálogo Exportar a un archivo, selecciona el calendario que contiene la cita periódica que deseas imprimir y haz clic en el botón Siguiente.

5. En el tercer cuadro de diálogo Exportar a un archivo, haga clic en el botón Examinar.

6. Ahora aparece el cuadro de diálogo Examinar. (1) Especifique la carpeta de destino en la que guardará el archivo CSV exportado, (2) asigne un nombre al archivo CSV en el cuadro Nombre de archivo y (3) haga clic en el botón Aceptar.

7. Haga clic en los botones Siguiente y Finalizar en el tercer y último cuadro de diálogo de Exportar a un archivo.

8. Especifique el rango de fechas dentro del cual exportará el calendario en el cuadro de diálogo Establecer rango de fechas y haga clic en el botón Aceptar.

9. Hasta ahora, el calendario de Outlook se ha exportado como un archivo CSV. Abra la carpeta que contiene el archivo CSV, haga clic con el botón derecho en dicho archivo y seleccione Abrir con > Excel en el menú contextual. Vea la captura de pantalla:

10. El archivo CSV exportado se abre en Excel. Haz clic en la cabecera de la columna Asunto y selecciona Datos > Filtro. Vea la captura de pantalla:

10. Haga clic en el icono de filtro de la cabecera de la columna Asunto, active únicamente la casilla correspondiente al asunto de la cita periódica que desea imprimir en la lista desplegable y haga clic en el botón Aceptar.

11. Solo aparecen las repeticiones de la cita periódica especificada. Haga clic en Archivo > Imprimir para imprimirlas.

Este método utiliza un código VBA para imprimir rápidamente y con facilidad una lista de una cita periódica en Outlook. Proceda como se indica a continuación:

1. En la vista Calendario, seleccione una repetición de la cita periódica que desea imprimir y pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y, a continuación, pegue el siguiente código VBA en la nueva ventana de módulo que se abre.

VBA: Imprimir una lista de todas las repeticiones de una cita periódica en 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: Cambie el Rango de fechas dentro del cual imprimirá la cita periódica en el código: sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. Pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar este código VBA.

4. Ahora, la lista de todas las repeticiones de la cita periódica seleccionada se ha copiado y pegado en un nuevo correo electrónico, tal como muestra la siguiente captura de pantalla. Haga clic en Archivo > Imprimir para imprimir la lista.

Imprimir calendario en blanco (sin citas) en Outlook

Imprimir dos semanas/meses del calendario por página en Outlook

Imprimir calendario diario en Outlook