用紙サイズ、印刷の向きを調整する

 

 

 

Sub test()

 

    With Sheets(1)
         '  印刷の向きを縦に設定する
        .PageSetup.Orientation = xlPortrait
        
        '  用紙のサイズをA4に設定する
        .PageSetup.PaperSize = xlPaperA4
        
        '  印刷プレビューする
        .PrintPreview
    End With

 

End Sub

 

 

 

Sub test2()

 

    With Sheets(1)
        '  印刷の向きを横に設定する
        .PageSetup.Orientation = xlLandscape
        
        '  用紙のサイズをB5に設定する
        .PageSetup.PaperSize = xlPaperB5
        
        '  印刷プレビューする
        .PrintPreview
    End With

 

End Sub

 

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る

 

関連記事