なぜVBAで印刷設定を自動化するのか
実務において、レポート作成や帳票出力の際、毎回手作業で印刷範囲を指定したり、改ページを調整したりするのは非常に手間がかかるものです。特に、データ量が増減するリストを定期的に印刷する場合、「印刷範囲の再設定」を忘れてしまい、不要な余白や意図しないページまで印刷されてしまうといったミスが多発します。
VBAを活用して印刷設定をプログラム化しておけば、ボタン一つで「常に最適な状態で印刷する」環境を構築でき、業務効率の大幅な向上とヒューマンエラーの削減が可能になります。
基礎知識：PageSetupオブジェクトとは
VBAで印刷設定を行う際に必ず登場するのがPageSetupオブジェクトです。これはWorksheetオブジェクトの下位にあり、印刷に関するあらゆる設定を司ります。
印刷範囲の設定には「PrintAreaプロパティ」、改ページの設定には「HPageBreaksコレクション（水平改ページ）」や「VPageBreaksコレクション（垂直改ページ）」を使用します。これらを理解することで、Excelの印刷機能を自由自在に操れるようになります。
実装：印刷設定のポイント
印刷範囲は「$A$1:$E$20」のようなアドレス形式の文字列を、PageSetup.PrintAreaプロパティに代入することで設定します。
また、改ページについては、特定のセルの直前や直上に改ページを挿入します。特に、動的なデータ行数に合わせて自動で改ページを入れたい場合は、Rangeオブジェクトの行番号を動的に取得するのがコツです。
サンプルプログラム：動的な印刷設定の実装例
以下のコードは、A列の最終行までを自動的に印刷範囲に設定し、10行ごとに改ページを挿入する実用的なサンプルです。
Sub SetupPrintSettings()
Dim ws As Worksheet
Dim lastRow As Long
‘ 対象シートを指定
Set ws = ThisWorkbook.Sheets(“Sheet1”)
‘ A列の最終行を取得
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ 1. 印刷範囲を動的に設定（A1からE列の最終行まで）
ws.PageSetup.PrintArea = ws.Range(“A1:E” & lastRow).Address
‘ 2. 既存の改ページをすべてクリア
ws.ResetAllPageBreaks
‘ 3. 10行ごとに改ページを挿入
Dim i As Long
For i = 11 To lastRow Step 10
‘ 指定した行の先頭セルに水平改ページを追加
ws.HPageBreaks.Add Before:=ws.Rows(i)
Next i
MsgBox “印刷設定が完了しました。”
End Sub
応用と注意点
1. 印刷範囲の解除とクリア
プログラムで印刷範囲を解除したい場合は、`ws.PageSetup.PrintArea = “”` と記述します。
2. ページ設定の競合を避ける
印刷範囲や改ページを頻繁に変更する場合、前回の設定が残っていると意図しない結果になることがあります。必ず `ResetAllPageBreaks` メソッドで改ページをリセットしてから設定し直すのが、バグを防ぐための鉄則です。
3. プレビューの活用
VBAで設定した後は、`ws.PrintPreview` を使って、印刷前にプログラムが意図通りに動いているか確認する習慣を付けましょう。これにより、実際の紙を無駄にすることなくテストが可能になります。
