VBA入門
印刷(PrintOut)

ExcelマクロVBAの基本と応用、エクセルVBAの初級・初心者向け解説
公開日:2013年5月以前 最終更新日:2021-10-01

第71回.印刷(PrintOut)


シートの内容をマクロVBAで印刷する場合は、PrintOutメソッドを使用します。


このPrintOutメソッドが使える対象オブジェクトは複数あります。
ブック、シート、セル、それぞれにPrintOutメソッドが存在するので、印刷範囲によって使い分けてください。

PrintOutメソッドは印刷するだけではなく、印刷プレビューを表示することも出来ます。


PrintOutメソッド

式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)

式.には、
Windowオブジェクト
Workbookオブジェクト
Worksheetオブジェクト
Rangeオブジェクト
Chartオブジェクト
Sheetsコレクション
Worksheetsコレクション
Chartsコレクション

これらのオブジェクトそれぞれにPrintOutメソッドがあります。

From 印刷を開始するページの番号を指定します。
この引数を省略すると、最初のページから印刷します。
To 印刷を終了するページの番号を指定します。
この引数を省略すると、最後のページまで印刷します。
Copies 印刷部数を指定します。
この引数を省略すると、印刷部数は 1 部になります。
Preview Trueの場合、印刷をする前に印刷プレビューを実行します。
False、または省略した場合、直ちに印刷を行います。
ActivePrinter アクティブなプリンターの名前を指定します。
PrintToFile Trueの場合、ファイルへ出力します。
引数 PrToFileNameが省略された場合、出力先のファイル名を指定するためのダイアログ ボックスを表示します。
Collate True の場合、部単位で印刷します。
PrToFileName 引数PrintToFileがTrueの場合、この引数に印刷したいファイルの名前を指定します。
IgnorePrintAreas Trueの場合、印刷範囲を無視してオブジェクト全体を印刷します。

名前付き引数です。
引数が多いので、使用時には名前付き引数を使用してください。

非表示シートに対してPrintOutメソッドを使用した場合はエラーとなります。


PrintOutメソッドの使用例

ActiveWorkbook.PrintOut
ブックの全シートを印刷します。

ActiveWorkbook.PrintOut Preview:=True
ブックの全シートを印刷プレビューします。

ActiveWorkbook.PrintOut Copies:=2
ブックの全シートを2部印刷します。

ActiveWorkbook.PrintOut From:=2, To:=3
ブックの全シートの、2ページ~3ページを印刷します。

Activesheet.PrintOut
アクティブシートを印刷します。

Worksheets(1).PrintOut ActivePrinter:="プリンター名"
1番目のシートを、"プリンタ名"のプリンターに印刷します。

ActiveWorkbook.Sheets.PrintOut
ブックの全シートを印刷します。
ただし、非表示シートがあるとエラーとなります。

Range("B2:D20").PrintOut
B2セル~D20セルの範囲を印刷します。


印刷時にプリンターを選択したい場合

印刷プレビューにすることで、自由にプリンターを選択して印刷できます。

プレビューが不要で、プリンターのみ選択させたい場合は、、
印刷ダイアログを使用する(xlDialogPrint)
入力しやすいように、セルに色をつけている事が多いと思いますが、印刷時には、ちょっとじゃまな場合もあります。インク(トナー)も無駄ですしね。印刷時に色指定を解除して印刷する方法になります。Application.Dialogs(xlDialogPrint).Show 印刷タイアログを表示します。
こちらをご参照ください。


印刷総ページ数の取得

Worksheetオブジェクト.PageSetup.Pages.Count

これで総ページ数は取得できますが、PrintOutが対応している幅広いオブジェクトには対応できません。

印刷対象の各シートの印刷ページ数を事前にチェックするような、事故防止策が必要になる場合もあるでしょう。
PageSetupについては、以下で詳しく解説しています。
第73回.ページ設定(PageSetup)
・PageSetupオブジェクト ・PrintCommunicationプロパティ ・ヘッダー・フッターのプロパテの設定方法 ・余白の設定方法 ・印刷範囲の設定/クリア:PrintArea ・総ページ数:Pages.Count ・改ページの位置を設定:PageBreak ・最後に



間違った印刷を大量に行わないわない為には

マクロVBAで印刷できるようにすると大変便利ではありますが、
その反面、間違った印刷を大量に行ってしまうといった事故も発生します。

処理方法(複数ドキュメントを順に印刷するような場合)によっては難しい場合もありますが、
可能な限り印刷プレビューを経由させるようにした方が印刷のトラブルは減ります。
印刷内容によって、適宜判断したほうが良いでしょう。




同じテーマ「マクロVBA入門」の記事

第68回.シートの保護、ブックの保護(Protect)
第69回.シートの非表示(Visible,Hidden)
第70回.ウィンド枠の固定(FreezePanes)
第71回.印刷(PrintOut)
第72回.印刷プレビュー(PrintPreview)
第139回.エクスポート(PDF/XPS)
第73回.ページ設定(PageSetup,PageBreak)
第74回.ファイルを開くダイアログ(GetOpenFilename)
第75回.名前を付けて保存ダイアログ(GetSaveAsFilename)
第76回.ファイルダイアログ(FileDialog)
第77回.組み込みダイアログ(Dialogs,xlDialogPrint)


新着記事NEW ・・・新着記事一覧を見る

AIは便利なはずなのに…「AI疲れ」が次の社会問題になる|生成AI活用研究(2026-02-16)
カンマ区切りデータの行展開|エクセル練習問題(2026-01-28)
開いている「Excel/Word/PowerPoint」ファイルのパスを調べる方法|エクセル雑感(2026-01-27)
IMPORTCSV関数(CSVファイルのインポート)|エクセル入門(2026-01-19)
IMPORTTEXT関数(テキストファイルのインポート)|エクセル入門(2026-01-19)
料金表(マトリックス)から金額で商品を特定する|エクセル練習問題(2026-01-14)
「緩衝材」としてのVBAとRPA|その終焉とAIの台頭|エクセル雑感(2026-01-13)
シンギュラリティ前夜:AIは機械語へ回帰するのか|生成AI活用研究(2026-01-08)
電卓とプログラムと私|エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン|エクセル関数応用(2025-12-25)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.日本の祝日一覧|Excelリファレンス
3.変数宣言のDimとデータ型|VBA入門
4.FILTER関数(範囲をフィルター処理)|エクセル入門
5.RangeとCellsの使い方|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
8.マクロとは?VBAとは?VBAでできること|VBA入門
9.セルのクリア(Clear,ClearContents)|VBA入門
10.メッセージボックス(MsgBox関数)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ