【ExcelVBA・マクロ】エクセルで複数シートを一括自動印刷する方法【便利コード】

エクセルを使っていると、複数のシートを一度に印刷したい場面ってありませんか？
例えば「売上シート」「経費シート」「在庫シート」を毎回ひとつずつ印刷するのは面倒ですよね。

そんなときに便利なのが、マクロ（自動）を使って複数シートを一括で印刷する方法です。

この記事では、初心者でもすぐに使えるサンプルコードを紹介します。

複数シートを一括印刷するVBAコード

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

コードの説明

Dim ws As Worksheet

変数 ws を「シート」を入れる箱として準備します。

For Each ws In ThisWorkbook.Worksheets
        ws.PrintOut
Next ws

順番に各シートを印刷します。

応用コード

特定のシートだけ印刷したい場合

このコードでは、「売上」「経費」「在庫」シートだけをまとめて印刷します。

Sub targetSheetPrint()
    Sheets(Array("売上", "経費", "在庫")).PrintOut
End Sub

印刷プレビューを表示したい場合

Sub sheetPreview()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.PrintPreview
    Next ws
End Sub