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