Excel VBAで印刷範囲を自動設定する方法

Excel VBAで印刷範囲を自動設定する方法｜初心者向け解説

2025.07.19

Excelで印刷範囲を手動で設定するのは面倒ですよね。特に、データの量が変動する場合や複数のシートを印刷する際には、毎回設定を変更するのは大変です。そこで、Excel VBAを使って印刷範囲を自動で設定する方法を学ぶことで、作業効率を大幅に向上させることができます。

印刷範囲を自動で設定する理由
VBAで印刷範囲を自動設定する基本コード
データの最終行・最終列に基づいて印刷範囲を設定する方法
印刷範囲をクリアする方法
よくある質問や疑問
1. Q1: 印刷範囲を設定した後、印刷プレビューで確認できますか？
2. Q2: 複数のシートを一括で印刷することはできますか？
今すぐ解決したい！どうしたらいい？
まとめ

印刷範囲を自動で設定する理由

Excelのイメージ

Excelで印刷範囲を手動で設定する場合、以下のような手間がかかります

ここがポイント！

毎回範囲を選択する必要がある
データの追加や削除に応じて設定を変更しなければならない
複数のシートを印刷する際に設定を繰り返す必要がある

これらの手間を省くために、VBAを活用して印刷範囲を自動で設定する方法を学びましょう。

VBAで印刷範囲を自動設定する基本コード

まずは、VBAを使って印刷範囲を設定する基本的なコードを紹介します。以下のコードは、セルからD10セルまでの範囲を印刷範囲として設定するものです

Sub SetPrintArea()

    ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"

    MsgBox "印刷範囲が設定されました。"

End Sub

このコードを実行すると、指定した範囲が印刷範囲として設定されます。

データの最終行・最終列に基づいて印刷範囲を設定する方法

データの量が変動する場合、最終行や最終列を基に印刷範囲を設定することが重要です。以下のコードは、データの最終行と最終列を自動で取得し、印刷範囲を設定するものです

Sub SetDynamicPrintArea()

    Dim lastRow As Long

    Dim lastCol As Long

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' データの最終行と最終列を取得

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

' 印刷範囲を最終行と最終列まで設定 ws.PageSetup.PrintArea = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Address MsgBox "動的に印刷範囲が設定されました。" End Sub

このコードを実行すると、データのある範囲だけが印刷範囲として設定されます。

印刷範囲をクリアする方法

既に設定されている印刷範囲を解除したい場合、以下のコードを使用します

Sub ClearPrintArea()

    ActiveSheet.PageSetup.PrintArea = ""

    MsgBox "印刷範囲がクリアされました。"

End Sub

このコードを実行すると、印刷範囲が解除されます。

よくある質問や疑問

Q1: 印刷範囲を設定した後、印刷プレビューで確認できますか？

はい、印刷範囲を設定した後、「ファイル」→「印刷」を選択すると、印刷プレビューが表示されます。設定した範囲が正しく反映されているか確認できます。

Q2: 複数のシートを一括で印刷することはできますか？

はい、VBAを使用して複数のシートを一括で印刷することができます。以下のコードを参考にしてください

Sub PrintMultipleSheets()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3"))

        ws.PrintOut

    Next ws

End Sub

このコードを実行すると、指定したシートが順番に印刷されます。