Sub ������()
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
    Application.PrintCommunication = True
End Sub
Sub �c����()
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
    End With
    Application.PrintCommunication = True
End Sub