2 Quick Methods to Hide Private Items when Printing an Outlook Calendar

At times, you will need to print your Outlook calendar without private items. Here, in this article, we will teach you how to get it via 2 methods.

By default, when you print an Outlook calendar, all the items will be printed out. However, sometimes, you don’t want to include the private items when printing. For instance, you need to print the calendar and show it to the other colleagues. In this case, you must hope to hide the private items. Thereinafter, we’ll introduce you 2 easy approaches to achieve it.

Hide Private Items when Printing an Outlook Calendar

Method 1: Print Calendar after Hiding Private Items

  1. At the very outset, open the specific calendar folder.
  2. Then, shift to “View” tab and hit “View Settings” button.
  3. Next, in the “Advanced View Settings: Calendar” dialog box, click “Filter”.Filter in View Settings
  4. Subsequently, in the “Filter” dialog box, shift to “Advanced” tab.
  5. Later, add a new filter – “Sensitivity not equal to private”, like the following image.Sensitivity not equal to private
  6. Then, click several “OK” buttons to save the view settings.
  7. After returning to the calendar, you’ll see that all the private items have been hidden.Hide Private Items
  8. Eventually, you can go to “File” > “Print” to print this calendar right now.Print Calendar

Method 2: Create & Print a New Calendar with Non-private Items Only

  1. In the first place, press “Alt + F11” to access Outlook VBA editor.
  2. Then, in the new window, put the following VBA code into a module.
Sub CopyPublicCalendarItems()
    Dim objSourceCalendar As Outlook.Folder
    Dim objTempCalendar 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
       On Error Resume Next
       Set objTempCalendar = objSourceCalendar.Folders("Temp")
       If objTempCalendar Is Nothing Then
          Set objTempCalendar = objSourceCalendar.Folders.Add("Temp")
       End If
 
       For Each objCalendarItem In objSourceCalendar.Items
           If objCalendarItem.Sensitivity <> olPrivate Then
              Set objCopiedItem = objCalendarItem.Copy
              Set objMoviedItem = objCopiedItem.Move(objTempCalendar)
              objMoviedItem.Save
           End If
       Next
    End If
End Sub

VBA Code - Create a New Calendar with Non-private Items Only

  1. Afterwards, press “F5” key button in the current macro.
  2. Next, you need to select a calendar folder that you want to print and hit “OK”.Select Source Calendar
  3. When macro finishes, you can go back to the calendar pane.
  4. A new calendar of “Temp” is over there. It contains all the non-private items of the source calendar.New Temp Calendar
  5. At present, you can print this calendar as usual.

Get Hold of a Tool for Outlook Recovery

Though Outlook provides users with multiple functions, it still cannot be free of errors and corruption totally. Therefore, it is an imperative task for users to keep a first-rate and reliable Outlook fix tool nearby, like DataNumen Outlook Repair. It has earned a lot of appreciation in that it can repair PST problems like a breeze.

Author Introduction:

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

Leave a Reply

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