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