Excel VisualBasic Script

Sub Macro2()
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
End Sub