【VBA】印刷プレビューを表示する【PreviewとPrintPreviewがある】

大体でIT 大体でIT

2020/12/11

【VBA】印刷プレビューを表示する【PreviewとPrintPreviewがある】 Excel VBA

Excel VBAで、印刷プレビューを表示する方法について、ご紹介します。印刷プレビューの表示は、PrintOutの引数に、『Preview:=True』を指定すると便利です。具体的なVBAコードを使いながら、解説します。

はじめに

この記事では、印刷プレビューを表示する方法について、ご紹介します。

印刷プレビューを表示する方法は、2つあって、『Preview:=True』と『PrintPreview』です。

『Preview:=True』では、ページ指定や部数をすることができるので、便利です。

では、印刷プレビューする方法について、解説していきます。

この記事で紹介すること

印刷プレビューする方法

こちらの記事も参考になります

印刷範囲を設定
印刷範囲の取得
印刷する
印刷プレビューを表示　←こちらの記事
印刷範囲の改ページ
ページ設定とタイトル設定
ヘッダーとフッター
拡大/縮小とページ数
印刷枚数とページ指定
差し込み印刷を自動化

目次から見たい項目へ移動すると便利ですよ。

ポイントとなるVBAコード
VBAで印刷プレビューを出して印刷する

PrintPreviewを使う
PrintOutでPreviewが使いやすい
印刷プレビューを出した後は手動で印刷

VBAで印刷設定をして印刷プレビュー

ページ指定して印刷プレビュー
部数を設定して印刷プレビュー
部単位もしくはページ単位を設定して印刷プレビュー

おわりに

ポイントとなるVBAコード

初めに、印刷プレビューについてポイントとなる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で印刷プレビューを出して印刷する

VBAで印刷プレビューする方法は、2つあります。

『PrintPreview』を使う方法と、『PrintOut Preview:=True』を使う方法です。

どちらかというと、『PirintOut Preview:=True』の方が、便利です。

PrintPreviewを使う

PrintPreviewを使って、印刷プレビューを見る方法です。

印刷プレビューを表示するVBAコードは、こちらです。

Sub TEST1() '印刷プレビューを表示 ActiveSheet.PrintPreview End Sub

次の表を用意しました。

用意した表

では、印刷プレビューを表示してみます。

PrintPreviewで印刷プレビュー

4ページ分の印刷プレビューが表示されました。

PrintPreviewの場合は、ページ設定や、部数の設定ができません。

次の、PrintOut Preview:=Trueの方が便利です。

PrintOutでPreviewが使いやすい

PrintOutの引数に、Preview:=Trueを指定して、印刷プレビューを表示する方法です。

VBAコードは次のようになります。

Sub TEST2() '印刷プレビューを表示 ActiveSheet.PrintOut Preview:=True End Sub

先ほどと同じ表を用意しました。

用紙した表

では、印刷プレビューを表示してみます。

Preview:=Trueで印刷プレビュー

印刷プレビューを表示できました。

PrintPreviewと同じ結果となりました。

『Preview:=True』を使うと、ページ指定や部数の指定ができます。

なので、印刷プレビューするのであれば、『PrintOut Preview:=True』を覚えておくといいです。

印刷プレビューを出した後は手動で印刷

印刷プレビューを出した後は、手動で印刷になります。

こちらをクリックします。

印刷ボタンをクリック

これで、印刷することができます。

VBAで印刷設定をして印刷プレビュー

VBAで印刷設定をして、印刷プレビューを表示する方法について、ご紹介します。

印刷設定をして、印刷プレビューを見る場合は、『PrintOut Preview:=True』を使います。

印刷設定は、

ページ指定
部数
部単位 or ページ単位

を設定することができます。

やってみます。

ページ指定をして印刷プレビュー

ページ指定をして印刷プレビューを表示してみます。

ページ指定する場合は、『From:=〇, To:=△』の引数を追加します。

2ページから3ページをページ指定して、印刷プレビューを表示してみます。

Sub TEST3() 'ページ指定して、印刷プレビューを表示 ActiveSheet.PrintOut Preview:=True, From:=2, To:=3 End Sub

次のシートで試してみます。

用意した表

全部で、4ページあります。

2ページから3ページを印刷プレビューします。

2ページ目 3ページ目

2ページから3ページのみをページ指定して、印刷プレビューできました。

部数を設定して印刷プレビュー

部数を設定して印刷プレビューを表示してみます。

部数を設定する場合は、『Copies:=〇』の引数を追加します。

3部を設定して、印刷プレビューを表示してみます。

Sub TEST4() '部数を指定して、印刷プレビューを表示 ActiveSheet.PrintOut Preview:=True, Copies:=3 End Sub

先ほどと、同じシートを使います。

用意した表

3部を設定して、印刷プレビューします。

部数を指定して、印刷プレビュー

残念ながら、部数の確認は、印刷プレビューではできないです。

とりあえず、印刷すると、間違いなく3部でてきます。

ここは、試してみてください。

部単位もしくはページ単位を設定して印刷プレビュー

部単位もしくは、ページ単位を設定して印刷プレビューをする方法です。

設定は、こんな感じです。

部単位（デフォルト）：Collate:=True
ページ単位：Collate:=False

部単位で印刷する場合は、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』の方が便利です。

ページ指定や部数の設定をして、印刷プレビューを表示することができます。

参考なればと思います。最後までご覧くださいまして、ありがとうございました。