Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

To control orientation

Sub PrintRpt1()   '     Sheets(1).PageSetup.Orientation = xlLandscape     Range("Report").PrintOut Copies:=1 End Sub