大体でIT
大体でIT
Excel VBAで、印刷プレビューを表示する方法について、ご紹介します。印刷プレビューの表示は、PrintOutの引数に、『Preview:=True』を指定すると便利です。具体的なVBAコードを使いながら、解説します。
この記事では、印刷プレビューを表示する方法について、ご紹介します。
印刷プレビューを表示する方法は、2つあって、『Preview:=True』と『PrintPreview』です。
『Preview:=True』では、ページ指定や部数をすることができるので、便利です。
では、印刷プレビューする方法について、解説していきます。
初めに、印刷プレビューについてポイントとなる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 'ページ単位
『PrintPreview』を使う方法と、『PrintOut Preview:=True』を使う方法です。
どちらかというと、『PirintOut Preview:=True』の方が、便利です。
PrintPreviewを使って、印刷プレビューを見る方法です。
印刷プレビューを表示するVBAコードは、こちらです。
Sub TEST1()
'印刷プレビューを表示
ActiveSheet.PrintPreview
End Sub
用意した表
PrintPreviewで印刷プレビュー
PrintPreviewの場合は、ページ設定や、部数の設定ができません。
次の、PrintOut Preview:=Trueの方が便利です。
PrintOutの引数に、Preview:=Trueを指定して、印刷プレビューを表示する方法です。
Sub TEST2()
'印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True
End Sub
用紙した表
Preview:=Trueで印刷プレビュー
『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
用意した表
2ページ目
3ページ目
2ページから3ページのみをページ指定して、印刷プレビューできました。
部数を設定する場合は、『Copies:=〇』の引数を追加します。
Sub TEST4()
'部数を指定して、印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True, Copies:=3
End Sub
用意した表
部数を指定して、印刷プレビュー
残念ながら、部数の確認は、印刷プレビューではできないです。
とりあえず、印刷すると、間違いなく3部でてきます。
部単位もしくは、ページ単位を設定して印刷プレビューをする方法です。
- 部単位(デフォルト):Collate:=True
- ページ単位:Collate:=False
部単位で印刷する場合は、PrintOutの引数に、『Collate:=True』を指定します。
デフォルトで、『Collate:=True』なので、部単位の場合は、指定する必要はありません。
ページ単位で印刷する場合は、『Collate:=False』を指定します。
部単位
Sub TEST5()
'部単位に設定して、印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True, Coppies:=3, Collate:=True
End Sub
デフォルトは、Trueで部単位になっていますので、部単位の場合は、指定する必要はありません。
部単位を指定して、印刷プレビューを指定した結果です。
これまた、残念ながら、部単位の設定も、印刷プレビューで確認ができないです。
とりあえず、印刷すると、間違いなく部単位で印刷できます。
ページ単位
Sub TEST6()
'ページ単位に設定して、印刷プレビューを表示
ActiveSheet.PrintOut Preview:=True, Coppies:=3, Collate:=False
End Sub
PrintOutの引数に、『Collate:=False』を指定します。
ページ単位を指定して、印刷プレビューを指定した結果です。
これまた、残念ながら、ページ単位の設定も、印刷プレビューで確認ができないです。
とりあえず、印刷すると、間違いなくページ単位で印刷できます。
確認できない部分もありますけども、印刷プレビューを表示するときは、『PrintOut Preview:=True』を使った方が、便利です。
この記事では、印刷する際に、印刷プレビューを表示する方法について、ご紹介しました。
印刷プレビューを表示する際は、『PrintOut Preview:=True』の方が便利です。
ページ指定や部数の設定をして、印刷プレビューを表示することができます。
参考なればと思います。最後までご覧くださいまして、ありがとうございました。