Excel VBA】連続印刷マクロのコード｜PDF一括出力も対応

マクロボタン（コマンドボタン）を挿入する方法

1. リボンから「開発」タブを選択
※「開発」タブが表示されていない場合は、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。

2. 「挿入」→「ActiveXコントロール」→「コマンドボタン」を選ぶ
3. シート上でクリック＆ドラッグして、ボタンの大きさと位置を指定する
4. 挿入したボタンを右クリックし、「コードの表示」を選択
5. 表示されたVBA画面に、実行したいマクロのコードを貼り付ける
6. VBA画面を閉じてExcelに戻る
7. 作業内容を保存する（.xlsm形式など、マクロ有効ブックで保存する）
8. 「デザインモード」を解除し、ボタンをクリックするとマクロが実行される

マクロコード設定方法

基本のマクロコード（全シート印刷）

ヒイラギ

え？下のコードをコピーするだけで、今から使えるの！？

Sub PrintAllSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.PrintOut
    Next ws
End Sub

このコードは、現在開いているExcelファイルのすべてのシートを一括で印刷します。
部署別資料、月別シートなど、シートが分かれているケースでは非常に便利！

応用：データ抽出＋ひな形で連続印刷

Sub PrintByData()
    Dim i As Long
    Dim lastRow As Long
    lastRow = Sheets("データ").Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        Sheets("ひな形").Range("B2").Value = Sheets("データ").Cells(i, 1).Value
        Sheets("ひな形").PrintOut
    Next i
End Sub

このマクロでは、「データ」シートのA列にある内容を、
「ひな形」シートの指定セル（ここではB2）に1件ずつ差し込みながら印刷しています。

たとえば…

• A列：顧客名
• B2セル：印刷する顧客名の場所

このように設定すれば、1つのフォーマットに顧客名だけを差し替えて連続印刷することができます！！