VBA/Excel/Access/Word/Excel/Page Orientation

To control orientation

   <source lang="vb">

Sub PrintRpt1() "

   Sheets(1).PageSetup.Orientation = xlLandscape
   Range("Report").PrintOut Copies:=1

End Sub

</source>