ブック全体を印刷する
確認後、ブック全体を1部印刷します。
実行前に確認
- 実際に印刷します。出力先、ページ数、部数をプレビューで先に確認してください。
1サンプルコード
Sub Sample3076()
If MsgBox("ブック全体を1部印刷します。既定のプリンターで実行しますか？", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
ThisWorkbook.PrintOut Copies:=1
End Sub図で見る操作の流れ
イメージ図概念図：コードを保存したブックの印刷を開始します。
手動：事前確認
出力先・ページ数・印刷範囲をプレビューで確認
手動：承認
Sample3076を実行し、確認で［はい］
マクロ：印刷
ThisWorkbookを既定のプリンターで1部印刷
［いいえ］なら中止。コード自体は事前のプレビュー画面を開かず、実際に印刷します。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。「練習」シートに印刷用データを入れます。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3076内にカーソルを置いてF5で実行します。確認後、ブック全体を1部印刷します。