－ちょっと使えるネタを紹介－
Excel VBAで、印刷プレビューを表示する方法について、ご紹介します。印刷プレビューの表示は、PrintOutの引数に、『Preview:=True』を指定すると便利です。具体的なVBAコードを使いながら、解説します。
この記事では、印刷プレビューを表示する方法について、ご紹介します。
印刷プレビューを表示する方法は、2つあって、『Preview:=True』と『PrintPreview』です。
『Preview:=True』では、ページ指定や部数をすることができるので、便利です。
では、印刷プレビューする方法について、解説していきます。
この記事で紹介すること
目次から見たい項目へ移動すると便利ですよ。
目次
初めに、印刷プレビューについてポイントとなるVBAコードについて、記載しておきます。
VBAコードだけ確認したい場合に、ご活用ください
'PrintPreviewで印刷プレビュー ActiveSheet.PrintPreview 'Preview:=Trueで印刷プレビュー ActiveSheet.PrintOut Preview:=True ActiveSheet.PrintOut Preview:=True, From:=2, To:=3 'ページ指定 ActiveSheet.PrintOut Preview:=True, Copies:=3 '部数を指定 ActiveSheet.PrintOut Preview:=True, Coppies:=3, Collate:=True '部単位 ActiveSheet.PrintOut Preview:=True, Coppies:=3, Collate:=False 'ページ単位
では、解説していきます。
VBAで印刷プレビューする方法は、2つあります。
『PrintPreview』を使う方法と、『PrintOut Preview:=True』を使う方法です。
どちらかというと、『PirintOut Preview:=True』の方が、便利です。
PrintPreviewを使って、印刷プレビューを見る方法です。
印刷プレビューを表示するVBAコードは、こちらです。
Sub TEST1()
'印刷プレビューを表示
ActiveSheet.PrintPreview
End Sub
次の表を用意しました。
では、印刷プレビューを表示してみます。
4ページ分の印刷プレビューが表示されました。
PrintPreviewの場合は、ページ設定や、部数の設定ができません。
次の、PrintOut Preview:=Trueの方が便利です。
PrintOutの引数に、Preview:=Trueを指定して、印刷プレビューを表示する方法です。
VBAコードは次のようになります。
Sub TEST2()
'印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True
End Sub
先ほどと同じ表を用意しました。
では、印刷プレビューを表示してみます。
印刷プレビューを表示できました。
PrintPreviewと同じ結果となりました。
『Preview:=True』を使うと、ページ指定や部数の指定ができます。
なので、印刷プレビューするのであれば、『PrintOut Preview:=True』を覚えておくといいです。
印刷プレビューを出した後は、手動で印刷になります。
こちらをクリックします。
これで、印刷することができます。
VBAで印刷設定をして、印刷プレビューを表示する方法について、ご紹介します。
印刷設定をして、印刷プレビューを見る場合は、『PrintOut Preview:=True』を使います。
印刷設定は、
を設定することができます。
やってみます。
ページ指定をして印刷プレビューを表示してみます。
ページ指定する場合は、『From:=〇, To:=△』の引数を追加します。
2ページから3ページをページ指定して、印刷プレビューを表示してみます。
Sub TEST3()
'ページ指定して、印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True, From:=2, To:=3
End Sub
次のシートで試してみます。
全部で、4ページあります。
2ページから3ページを印刷プレビューします。
2ページから3ページのみをページ指定して、印刷プレビューできました。
部数を設定して印刷プレビューを表示してみます。
部数を設定する場合は、『Copies:=〇』の引数を追加します。
3部を設定して、印刷プレビューを表示してみます。
Sub TEST4()
'部数を指定して、印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True, Copies:=3
End Sub
先ほどと、同じシートを使います。
3部を設定して、印刷プレビューします。
残念ながら、部数の確認は、印刷プレビューではできないです。
とりあえず、印刷すると、間違いなく3部でてきます。
ここは、試してみてください。
部単位もしくは、ページ単位を設定して印刷プレビューをする方法です。
設定は、こんな感じです。
部単位で印刷する場合は、PrintOutの引数に、『Collate:=True』を指定します。
デフォルトで、『Collate:=True』なので、部単位の場合は、指定する必要はありません。
ページ単位で印刷する場合は、『Collate:=False』を指定します。
では、部単位を設定するVBAコードです。
Sub TEST5()
'部単位に設定して、印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True, Coppies:=3, Collate:=True
End Sub
デフォルトは、Trueで部単位になっていますので、部単位の場合は、指定する必要はありません。
先ほどと、同じシートを使って確認してみます。
部単位を指定して、印刷プレビューを指定した結果です。
これまた、残念ながら、部単位の設定も、印刷プレビューで確認ができないです。
とりあえず、印刷すると、間違いなく部単位で印刷できます。
ページ単位で印刷設定するVBAコードです。
Sub TEST6()
'ページ単位に設定して、印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True, Coppies:=3, Collate:=False
End Sub
PrintOutの引数に、『Collate:=False』を指定します。
先ほどと、同じシートを使って確認してみます。
ページ単位を指定して、印刷プレビューを指定した結果です。
これまた、残念ながら、ページ単位の設定も、印刷プレビューで確認ができないです。
とりあえず、印刷すると、間違いなくページ単位で印刷できます。
確認できない部分もありますけども、印刷プレビューを表示するときは、『PrintOut Preview:=True』を使った方が、便利です。
この記事では、印刷する際に、印刷プレビューを表示する方法について、ご紹介しました。
印刷プレビューを表示する方法は、2つありました。
印刷プレビューを表示する際は、『PrintOut Preview:=True』の方が便利です。
ページ指定や部数の設定をして、印刷プレビューを表示することができます。
参考なればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する