Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. To control orientation
Sub PrintRpt1()   '
    Sheets(1).PageSetup.Orientation = xlLandscape
    Range("Report").PrintOut Copies:=1
End Sub