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.
Method 1: Print Calendar after Hiding Private Items
- At the very outset, open the specific calendar folder.
- Then, shift to “View” tab and hit “View Settings” button.
- Next, in the “Advanced View Settings: Calendar” dialog box, click “Filter”.
- Subsequently, in the “Filter” dialog box, shift to “Advanced” tab.
- Later, add a new filter – “Sensitivity not equal to private”, like the following image.
- Then, click several “OK” buttons to save the view settings.
- After returning to the calendar, you’ll see that all the private items have been hidden.
- Eventually, you can go to “File” > “Print” to print this calendar right now.
Method 2: Create & Print a New Calendar with Non-private Items Only
- In the first place, press “Alt + F11” to access Outlook VBA editor.
- 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
- Afterwards, press “F5” key button in the current macro.
- Next, you need to select a calendar folder that you want to print and hit “OK”.
- When macro finishes, you can go back to the calendar pane.
- A new calendar of “Temp” is over there. It contains all the non-private items of the source calendar.
- 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.
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