大体でIT

-ちょっと使えるネタを紹介-

大体でIT

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

はじめに

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

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

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

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

この記事で紹介すること

  • 印刷プレビューする方法

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

目次

ポイントとなる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で印刷プレビュー

PrintPreviewで印刷プレビューを表示

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

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

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

PrintOutでPreviewが使いやすい

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

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

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

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

用紙した表

用意した表

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

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

PrintOutの引数に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』の方が便利です。

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

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

関連する記事から探す

カテゴリから探す

カテゴリから見たい項目を探すと便利ですよ。

アーカイブから探す