公開日：2023/07/13

エクセルのマクロを使って連続印刷する方法

この記事では、エクセルのマクロを使って連続印刷する方法をご紹介します。

エクセルファイルの全シートを連続印刷する場合や、同じシートを複数回連続印刷する場合についてご説明しています。

連続印刷が必要な場面で、エクセルのマクロを活用して効率的に作業を進めましょう。

Excelを使った日付選択のマクロを無料でダウンロード！

Excelでカレンダーから日付を入力できるマクロを無料でダウンロードできます。コードを変更すれば、カレンダーの背景色や、今日の日付の色を変更したりとカスタマイズすることも可能です。

Excel日付選択
無料ダウンロード

開発タブを表示する

マクロで連続印刷する際、「開発」タブを使用します。

上記の画像のような「開発」タブが表示されていない場合は、設定をして表示させましょう。

詳細は、以下の記事を参考にしてください。

エクセルの開発タブを表示する方法

エクセルで連続印刷するコード

エクセルのファイルを連続印刷するコードを下記に記載するので、コピーして使用してください。

Sub 連続印刷()
    Dim ws As Worksheet
    
    ' 全シートを連続印刷
    For Each ws In ThisWorkbook.Sheets
        ws.PrintOut
    Next ws
End Sub

詳しい方法は、下記「エクセルのマクロを使って連続印刷する方法」セクションでご紹介しています。

このVBAコードを使用すると、エクセルファイルの全シートを連続印刷することができます。

また、上記のコードでは印刷設定に関するオプションは指定されていません。

必要に応じて、印刷範囲/印刷枚数/用紙サイズ/印刷方向などの印刷設定を追加できます。

エクセルのマクロを使って連続印刷する方法

エクセルのマクロを使って連続印刷する方法をご説明します。エクセルファイルの全シート（Sheet1～Sheet6の計6枚）を連続印刷する場合を例にご説明します。

Excelファイルをマクロが有効なファイルとして保存します。ファイルタブを選択します。

①名前を付けて保存、②参照の順に選択します。

「名前を付けて保存」ダイアログボックスが表示されました。①ファイルの保存場所（例：デスクトップ）を選択し、②任意のファイル名（例：住所録_連続印刷）を入力します。③ファイルの種類で「Excel マクロ有効ブック」を選択し、④保存ボタンを押します。

VBAでコードを登録します。①開発タブ、②Visual Basicの順に選択します。

「Microsoft Visual Basic for Applications」が表示されました。①挿入タブ、②標準モジュールの順に選択します。

「標準モジュール」が表示されました。上記「エクセルで連続印刷するコード」のコードをコピーし貼り付けます。

①ファイルタブ、②上書き保存の順に選択します。

VBAの設定が終わったので、編集画面に戻ります。①開発タブ、②マクロの順に選択します。

「マクロ」ダイアログボックスが表示されました。①作成したマクロ（例：連続印刷）、②マクロの保存先で作業中のファイル（例：住所録_連続印刷）の順に選択します。③実行ボタンを押すと印刷が開始されます。

実際に印刷して確認してみましょう。エクセルファイルの全シート計6枚が連続印刷されました。

エクセルのマクロを使って同じシートを連続印刷する方法

エクセルのマクロを使って同じシートを連続印刷する方法をご説明します。

Sheet1を3回連続印刷する場合を例にご説明します。

同じシートを連続印刷するコード

エクセルで同じシートを複数回連続印刷するコードを下記に記載するので、コピーして使用してください。

Sub Sheet1を3回連続印刷()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 印刷するシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 印刷するシート名を適宜変更
    
    ' 連続印刷
    For i = 1 To 3 ' 3回印刷する場合は、回数を適宜変更
        ws.PrintOut
    Next i
End Sub

上記のVBAコードを使用すると、Sheet1が3回連続印刷されます。