2 Quick Methods to Export Outlook Calendar to a PDF File

Do you want to export Outlook calendar to a PDF file? Outlook doesn’t offer such a native function, but you still can accomplish it by some workarounds. Now, this post will introduce 2 rapid approaches to you.

Many users are longing for solutions which can support them to export Outlook calendar as PDF file. Of course, there are multiple third party tools which can get this. However, many of them are not free of charge. Hence, here we will share you 2 easy and totally free methods to you.

Method 1: Export the Screenshot of Calendar to PDF

1. In the first place, in Outlook, access “Calendar” pane by clicking the “Calendar” icon at the bottom of navigation pane.
2. Then, open the calendar that you want to export.
3. Next, scroll to the specific month in the calendar.
4. Subsequently, click the “New Items” > “E-mail Message” in the “New” group under “Home” tab.
5. In the new email, shift to “Insert” tab and put the cursor into the body.
6. Afterwards, shift to “Insert” tab and press “Screenshot”.
7. Then, from the “Available Windows” list, pitch on the “Calendar” window.
8. After the screenshot of the calendar embedded, you can use the “Crop” tool to remove the unnecessary parts of the screenshot.
9. Later, press “Alt + F11” key buttons to open the VBA editor.
10. In the new window, copy the VBA code below into a module.

Sub ExportMailToPDF()
    Dim objMail As Outlook.MailItem
    Dim objShell, objWindowsFolder As Object
    Dim strFilePath As String
    Dim objWordApp As Word.Application
    Dim objDocument As Word.Document
    Dim strPDF As String
 
    Set objMail = Application.ActiveInspector.CurrentItem
 
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strFilePath = objWindowsFolder.self.Path & "\Calendar.mht"
       objMail.SaveAs strFilePath, olMHTML
 
       Set objWordApp = CreateObject("Word.Application")
       Set objDocument = objWordApp.Documents.Open(strFilePath, False)
 
       strPDF = "E:\Calendar.pdf"
       objWordApp.ActiveDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

       objDocument.Close
       objWordApp.Quit
 
       Kill strFilePath
    End If
End Sub

11. After that, press “F5” to trigger this macro.
12. Next, you need to select a Windows folder to save the exported PDF file.
13. When macro completes, you can access the selected Windows folder, where you will see a new PDF file, which will look like the following screenshot.

To be honest, this method is a bit troublesome and tedious. Now, thereinafter, we will introduce you another much easier way.

Method 2: Export Calendar with Microsoft OneNote

1. To begin with, access the source calendar folder as per your needs.
2. Then, go to “File” menu and switch to “Print” tab.
3. Next, select “Send to OneNote” printer.
4. After that, click on the “Print” button.
5. Subsequently, MS OneNote will open with a new printout page.
6. Later, click “File” in the upper right corner.
7. In the appearing “File” menu, turn to “Export” tab.
8. Then, choose “PDF” in the “Select Format” list.
9. Lastly, click “Export” button.
10. Then, in the new popup window, select a Windows folder and enter a name for this PDF file.
11. After click “OK”, you will get a new PDF of calendar successfully.

Keep Your Outlook Data Well-protected

Due to the fact that Outlook can get damaged readily, if you are a regular user of Outlook, you have to make periodical Outlook data backups. In addition, in order to provide immediate and effective rescue in case of Outlook damage, you have to prepare a tip-top PST repair tool, say DataNumen Outlook Repair, such that you can fix PST issues as soon as possible.

Author Introduction:

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