VBA/Excel/Access/Word/Excel/Page Orientation
To control orientation
Sub PrintRpt1() "
Sheets(1).PageSetup.Orientation = xlLandscape
Range("Report").PrintOut Copies:=1
End Sub
Sub PrintRpt1() "
Sheets(1).PageSetup.Orientation = xlLandscape
Range("Report").PrintOut Copies:=1
End Sub