2 medios rápidos para combinar e imprimir varios calendarios de Outlook en la misma página

Quizás tenga varios calendarios en su Outlook y cada uno contenga muchos elementos. Si desea imprimir todos estos calendarios en una misma página, puede leer este artículo para aprender dos métodos sencillos.

Outlook le permite ver varios calendarios en modo superpuesto, de modo que pueda ver todos los elementos de varios calendarios en la misma página. Sin embargo, no puede imprimir varios calendarios en esta vista. En cuanto a este tema, aquí le presentaremos 2 enfoques, que le permiten imprimir varios calendarios en una misma página.

Método 1: imprimir la captura de pantalla de los calendarios superpuestos

1. Para empezar, acceda al panel Calendario mediante “Ctrl + 2”.
2. Luego, en el panel de navegación, verifique los calendarios que desea imprimir.
3. A continuación, haga clic en las flechas hacia la izquierda en el encabezado de los calendarios para superponerlos.
4. Ahora, puede ver que todos los elementos de los calendarios se han mostrado en la misma vista, como la siguiente imagen.
5. Posteriormente, haga clic en "Nuevos elementos"> "Mensaje de correo electrónico" en la pestaña "Inicio".
6. En la nueva ventana de Mensaje, coloque el cursor en el cuerpo.
7. Luego, cambie a la pestaña "Insertar" y haga clic en "Captura de pantalla".
8. A continuación, elija la primera opción en las "Ventanas disponibles".
9. Después de eso, los calendarios superpuestos se han colocado en el cuerpo.
10. Finalmente, haga clic en "Archivo"> ​​"Imprimir"> "Imprimir" para imprimir este correo electrónico.

Método 2: imprimir calendarios combinados en la misma página a través de VBA

1. Al principio, presione las teclas "Alt + F11" para acceder al editor de Outlook VBA.
2. Luego, coloque el siguiente código en un módulo.

Dim objTempCalendar As Outlook.Folder

Sub CombineMultipleCalendars()
    Dim lCalendarCount As Long
    Dim i As Long
 
    On Error Resume Next
    Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders("Temp")
    If objTempCalendar Is Nothing Then
       Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders.Add("Temp")
    End If

    lCalendarCount = InputBox("How many calendars you want to print?", , "3")
 
    i = 1
    While i <= lCalendarCount
          Call CopyCalendarItems
          i = i + 1
    Wend
End Sub

Sub CopyCalendarItems()
    Dim objSourceCalendar As Outlook.Folder
    Dim objCalendarItem As Outlook.AppointmentItem
    Dim objCopiedItem As Outlook.AppointmentItem
    Dim objMoviedItem As Outlook.AppointmentItem
 
    Set objSourceCalendar = Outlook.Application.Session.PickFolder
 
    If Not (objSourceCalendar Is Nothing) Then
       If objSourceCalendar.DefaultItemType = olAppointmentItem Then
          For Each objCalendarItem In objSourceCalendar.Items
              Set objCopiedItem = objCalendarItem.Copy
              Set objMoviedItem = objCopiedItem.Move(objTempCalendar)
              objMoviedItem.Save
          Next
       End If
    End If
End Sub

3. A continuación, ejecute la macro presionando la tecla "F5" en la subrutina "CombineMultipleCalendars".
4. Después de eso, ingrese la cantidad de calendarios que desea imprimir al mismo tiempo.
5. Más tarde, según el número que ingresó en este momento, deberá seleccionar el número determinado de calendarios en el cuadro de diálogo emergente.
6. Cuando se completa la macro, puede volver al panel de navegación del Calendario.
7. Ahora, verá un nuevo calendario "Temp" allí, que contiene todos los elementos de los calendarios seleccionados.
8. Eventualmente, puede imprimir este calendario como de costumbre.

Repare los problemas de Outlook rápidamente

¿Alguna vez has tenido problemas con Outlook? En ese caso, ¿qué harías? Generalmente, la mayoría de los usuarios recurrirían primero a la herramienta de reparación integrada: Scanpst. Sin embargo, en realidad, no puede solucionar problemas graves, como daños en archivos PST. Normalmente, en ese punto, hay que recurrir a una herramienta externa más avanzada, como por ejemplo DataNumen Outlook Repair. Se puede arreglar Outlook problemas en un santiamén.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrección de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com