Excelマクロで印刷する方法まとめ｜ボタン作成・連続印刷・設定の基本と応用を紹介

マクロで印刷する基本方法

最もシンプルな印刷マクロ

まずは、いちばんシンプルな「現在表示されているシートをそのまま印刷する」マクロから紹介します。

■ 基本コード

Sub 印刷する()
　'選択しているセルを印刷する
　 ActiveSheet.PrintOut 
End Sub

このコードは、「今アクティブになっているシート（表示中のシート）」を、印刷の設定なしでそのままプリンターへ送信します。

■ ポイント解説

• ActiveSheet は現在開いているシートを指します。

• PrintOut は印刷命令を出すVBAのメソッドです。

• 特別な設定は不要で、プリンタや部数などはExcelの標準設定が使われます。

■ 実行方法

1. Excelを開き、Alt + F11でVBAエディターを起動

2. 「挿入」→「標準モジュール」で新しいモジュールを追加

3. 上記コードを貼り付けて、F5キーで実行

これだけで印刷が実行されます。まずはこのシンプルなマクロで、VBA印刷の基本を体感してみましょう。

印刷ボタンを作成して使う

マクロは、VBA画面からだけでなく、ボタンをクリックするだけで実行することもできます。
ここでは、フォームコントロールのボタンを使って、ワンクリックで印刷できるようにする手順をご紹介します。

■ ボタンの作成手順（フォームコントロール）

1. Excelの上部メニューから「開発」タブを選択

2. 「挿入」→「フォームコントロール」の「ボタン」をクリック
   

3. 印刷用ボタンを配置したい場所をクリックして設置
   ↓ボタンを選択した状態で右クリックし、テキストの編集をします。
   

4. 表示された「マクロの登録」ウィンドウで、先ほど作成した 印刷する マクロを選択して「OK」
   

※マクロボタンの設置については以下の記事もご参考ください。
初心者でも簡単！Excelマクロボタンの設定と実践的な活用法
Excelマクロボタンが反応しない？原因と対処法まとめ

■ 実行するとどうなる？

このボタンをクリックすると、先ほどの ActiveSheet.PrintOut マクロが実行され、現在表示しているシートが即座に印刷されます。

■ ワンポイント：ボタンの名前を変更する方法

• ボタン上で右クリック →「テキストの編集」
  → 「印刷する」や「納品書印刷」など、用途に合わせて名前を付けておくとわかりやすくなります。

■ 活用例

• 請求書や納品書など、決まったシートを毎回印刷する作業に最適です。

• ボタン1つで出力できるため、パソコン操作に不慣れな人でも使いやすくなります。

複数シートをまとめて印刷する

印刷したいシートが複数ある場合でも、マクロを使えばまとめて一括印刷が可能です。
「請求書」「納品書」「報告書」など、複数の帳票を連続で出力したいときに便利です。

■ 複数シートを印刷するマクロの例

Sub 複数シートを印刷する()
 '"Sheet1", "Sheet2", "Sheet3"を印刷
 Sheets(Array("Sheet1", "Sheet2", "Sheet3")).PrintOut
End Sub

■ ポイント解説

• Sheets(Array(...)) の部分で印刷対象のシートを指定しています。

• "Sheet1" などの名前は、実際のシート名に置き換えてください。

• 並び順は記載した順になります。

■ 実行方法

1. Alt + F11 でVBAエディターを開く

2. 上記のコードを新しいモジュールに貼り付け

3. F5キーで実行 or ボタンに割り当てて印刷

■ 補足：アクティブブック内のすべてのシートを印刷したいとき

Sub すべてのシートを印刷()
　'ファイル内のすべてのシートを印刷
　 ThisWorkbook.Sheets.PrintOut 
End Sub

このコードを使えば、開いているブック内のすべてのシートを一括印刷できます。

■ 活用例

• 帳票を複数シートに分けて作成している場合ぷれ

• 配布用資料や会議資料をまとめて印刷したい場合

• 曜日別・月別などにシートを分けて管理している場合

このように、マクロを使えば印刷の手間を大幅に削減できます。
次章では、さらに便利な「印刷プレビュー」や「プリンターの設定呼び出し」などの応用的な印刷マクロをご紹介します。

Sub プレビューを表示する()
 '印刷プレビュー画面を表示する
 ActiveSheet.PrintPreview 
End Sub

Sub シートを順番に印刷する()
'ブック内のシートを順番に1枚ずつ印刷
 Dim i As Integer
 For i = 1 To Worksheets.Count
 　Worksheets(i).PrintOut 
 Next i 
End Sub

Sub 特定シートを連続印刷()

 '指定した複数のシートを印刷
 Dim targetSheets As Variant

 '印刷するシート名を指定
 Dim i As Integer targetSheets = Array("Sheet1", "Sheet3", "Sheet5")

 '繰り返し処理により指定したシートを印刷
 For i = LBound(targetSheets) To UBound(targetSheets)
  Worksheets(targetSheets(i)).PrintOut
 Next i 
End Sub

Sub 印刷設定画面を開く()
 Application.Dialogs(xlDialogPrint).Show
End Sub

Sub ページ範囲と部数を指定して印刷()
 '選択中のシート1ページ目～2ページ目を2枚ずつ印刷
　ActiveSheet.PrintOut From:=1, To:=2, Copies:=2, Collate:=True
End Sub

Sub プレビュー任意_確認して印刷()
    ' 1) プレビューを出すか確認（任意）
    If MsgBox("プレビューを表示しますか？", vbYesNo + vbQuestion, "印刷前の確認") = vbYes Then
        ActiveWindow.SelectedSheets.PrintPreview
    End If


    ' 2) 最終確認（既定は「いいえ」で誤印刷防止）
    If MsgBox("この内容で印刷しますか？", vbYesNo + vbQuestion + vbDefaultButton2, "印刷の確認") = vbYes Then
        ' ページ範囲・部数は必要に応じて指定（例は1～2ページを2部）
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=2, Collate:=True
    Else
        MsgBox "印刷をキャンセルしました。", vbInformation
    End If
End Sub

Sub 範囲を限定して印刷()
　'セル範囲A1:F30を印刷
 Range("A1:F30").PrintOut
End Sub