2 Quick Means to Merge & Print Multiple Outlook Calendars in Same Page

Perhaps you have multiple calendars in your Outlook and each one contains a lot of items. If you want to print all of these calendars in a same page, you can read this article to learn 2 easy methods.

Outlook permits you to view several calendars in overlay mode, such that you can see all the items in several calendars in the same page. However, you’re unable to print several calendars in this view. Looking at this issue, here we will introduce you 2 approaches, which allows you to print multiple calendars in a same page.

Merge & Print Multiple Outlook Calendars in Same Page

Method 1: Print the Screenshot of Overlaid Calendars

  1. For a start, access Calendar pane via “Ctrl + 2”.
  2. Then, in the navigation pane, check the calendars you want to print.Select Calendars in Navigation Pane
  3. Next, click the left arrows on the header of the calendars to overlay them.View Calendars in Overlay Mode
  4. Now, you can see that all the items of the calendars have been shown in the same view, like the following image.Overlaid Calendars
  5. Subsequently, click “New Items” > “E-mail Message” under ‘Home” tab.Create New Email
  6. In the new Message window, put the cursor into the body.
  7. Then, shift to “Insert” tab and click “Screenshot”.
  8. Next, choose the first option in the “Available Windows”.Insert Screenshot
  9. After that, the overlaid calendars have been put into the body.Screenshot in Body
  10. Finally, click “File” > “Print” > “Print” to print out this email.Print Email

Method 2: Print Merged Calendars in Same Page via VBA

  1. At first, press “Alt + F11” keys to access Outlook VBA editor.
  2. Then, put the following code into a module.
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
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)
       End If
    End If
End Sub

VBA Code - Merge Calendars

  1. Next, run the macro by hitting “F5” key in the “CombineMultipleCalendars” subroutine.
  2. After that, enter the number of calendars you want to print at the same time.Enter Number of Calendars to Be Printed
  3. Later, as per the number you input just now, you’ll need to select the certain number of calendars in the popup dialog box.Select Calendars
  4. When macro completes, you can go back to the Calendar navigation pane.
  5. Now, you’ll see a new “Temp” calendar over there, which is containing all the items of the selected calendars.New Calendar
  6. Eventually, you can print out this calendar as usual.

Repair Outlook Problems Rapidly

Have you ever encountered Outlook issues? In that case, what would you do then? In general, in the first place, most users would resort to the built-in repair tool – Scanpst. Yet, as a matter of fact, it can’t fix the severe issues, such as PST damage. Normally, at that point, you have to take aid of a more experienced external tool, say DataNumen Outlook Repair. It can fix Outlook troubles in a jiffy.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql fix and outlook repair software products. For more information visit www.datanumen.com

One response to “2 Quick Means to Merge & Print Multiple Outlook Calendars in Same Page”

Leave a Reply

Your email address will not be published. Required fields are marked *