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).