Excelで印刷範囲をマクロで設定する方法｜初心者でもできる簡単ステップ

2025.07.16

「Excelで印刷範囲を毎回手動で設定するのは面倒だなぁ…」そんなお悩みをお持ちの方へ、今回はマクロ（VBA）を使って印刷範囲を自動で設定する方法をご紹介します。特に、パソコン操作に不安がある方でも安心して取り組める内容にしていますので、ぜひ最後までご覧ください。

マクロって何？
印刷範囲をマクロで設定する方法
1. 変数を使って印刷範囲を設定する
2. 印刷範囲をクリアする方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

マクロって何？

Excelのイメージ

まず、マクロとは、Excelで行う操作を自動化するための仕組みです。例えば、「毎月の請求書を印刷する」「特定の範囲だけを印刷する」といった作業を、ボタン一つで実行できるようになります。

印刷範囲をマクロで設定する方法

Excelでは、印刷範囲を設定するために「PageSetup.PrintArea」というプロパティを使用します。これを使って、印刷したい範囲を指定します。

例えば、からD20までの範囲を印刷したい場合、以下のように記述します。

vba

Sub 印刷範囲を設定()

    ActiveSheet.PageSetup.PrintArea = "D20"

End Sub

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

変数を使って印刷範囲を設定する

さらに、変数を使って印刷範囲を動的に設定することも可能です。例えば、印刷範囲の最終行や最終列を自動で取得して設定する方法です。

vba

Sub 動的に印刷範囲を設定()

    Dim 最終行 As Long

    Dim 最終列 As Long

    最終行 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    最終列 = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

    ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(最終行, 最終列)).Address

End Sub

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

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

設定した印刷範囲をクリアするには、以下のように記述します。

vba

Sub 印刷範囲をクリア()

    ActiveSheet.PageSetup.PrintArea = ""

End Sub

これで、印刷範囲が解除され、シート全体が印刷対象となります。

よくある質問や疑問

Q1: マクロを使うのは難しそうですが、初心者でもできますか？

はい、できます。今回ご紹介したコードは、コピーして貼り付けるだけで実行できます。手順に沿って進めれば、誰でも簡単にマクロを使いこなせます。

Q2: 印刷範囲を設定しても、印刷プレビューで範囲が反映されません。

印刷範囲が正しく設定されていない場合や、シートの設定に問題がある可能性があります。コードを再確認し、必要に応じてシートの設定を見直してください。

Q3: 複数のシートで同じ印刷範囲を設定したい場合はどうすればよいですか？

複数のシートに同じ印刷範囲を設定するには、以下のように記述します。

vba

Sub 複数シートに印刷範囲を設定()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Sheets

        ws.PageSetup.PrintArea = "D20"

    Next ws

End Sub

これで、すべてのシートにからD20までの印刷範囲が設定されます。