Excel VBA ワークシートを印刷プレビューする

Excel VBAでワークシートの印刷プレビューを表示する方法を記録します。

ワークシートの印刷プレビューは「PrintPreview」メソッドを使います。

< スポンサーリンク >

 

書き方

WorkSheetオブジェクト.PrintPreview

 

印刷プレビューする

シートは次のようになっているとします。

Sheet1

Excel印刷プレビュー

Sheet2 

Excel印刷プレビュー

 

アクティブなシートの印刷プレビュー

アクティブなシートを印刷プレビューで表示する場合は次のように書きます。

Sub test()
    ActiveSheet.PrintPreview
End Sub

Excel印刷プレビュー

 

書き込んだVBAを実行するとアクティブなシートの印刷プレビューが表示されます。

Excel印刷プレビュー

 

シートを指定して印刷プレビュー

シートを指定して印刷プレビューで表示する場合は次のように書きます。

Sub test()
    Worksheets("Sheet1").PrintPreview
End Sub

Excel印刷プレビュー

 

書き込んだVBAを実行すると指定されたシートの印刷プレビューが表示されます。

Excel印刷プレビュー

 

2番目のワークシートを指定して印刷プレビュー

2番目のワークシートを指定して印刷プレビューで表示する場合は次のように書きます。

Sub test()
    Worksheets(2).PrintPreview
End Sub

Excel印刷プレビュー

 

書き込んだVBAを実行すると指定されたシートの印刷プレビューが表示されます。

Excel印刷プレビュー

 

全てのワークシートを印刷プレビュー

全てのワークシートを印刷プレビューで表示する場合は次のように書きます。

Sub test()
    Worksheets.PrintPreview
End Sub

Excel印刷プレビュー

 

書き込んだVBAを実行すると全てのワークシートの印刷プレビューが表示されます。

1ページ目

Excel印刷プレビュー

2ページ目

Excel印刷プレビュー

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ