Sub PrintReport1()
Sheets(1).PageSetup.Orientation = xlLandscape
Range("A1").PrintOut Copies:=1
End Sub
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts