How to programmatically make a Query in MS Access default to landscape when printed

Function SetLandscape()
   Application.Printer.Orientation = acPRORLandscape
End Function

Private sub
    Application.Printer.Orientation = acPRORLandscape
    DoCmd.OpenQuery "qry1", acViewNormal, acReadOnly
    DoCmd.PrintOut acPrintAll
End Sub

docmd.Close acQuery, "qry1", acSaveNo