Outlook only exposes the PrintOut method for individual items (such as
e-mails, Appointments, etc.). You can't control any print settings; you get
what you see when you click the Print button manually.
If you want to automate printing the Calendar view, you can set a reference
to the File -> Print... menu item and execute it automatically using this
macro:
Sub PrintCalendarView()
Dim objNS As Outlook.NameSpace
Dim objCal As Outlook.MAPIFolder
Dim objCBB As Office.CommandBarButton
Set objNS = Application.GetNamespace("MAPI")
Set objCal = objNS.GetDefaultFolder(olFolderCalendar)
objCal.Display
Set objCBB = ActiveExplorer.CommandBars.FindControl(, 4)
objCBB.Execute
Set objNS = Nothing
Set objCal = Nothing
Set objCBB = Nothing
End Sub
Note that you still have to click the OK button. It may be possible to
automatically click this using the SendKeys statement, but I couldn't do it
(modal dialogs are hard if not impossible to automate using that approach).