概要：なぜ「改ページプレビュー」の制御が必要なのか
Excelで帳票やレポートを作成する際、もっとも煩雑な作業の一つが「印刷範囲の調整」です。特に、動的にデータ行数が変化するシステム帳票では、標準ビューのままではどこで改ページが発生するのか把握できず、結果として「中途半端な場所でページが分かれた印刷物」ができあがってしまうことが多々あります。
VBAを活用することで、この「改ページプレビュー」をプログラムから制御し、印刷範囲を動的に再計算して設定することが可能です。本稿では、単に改ページプレビューを表示するだけでなく、自動的に最適な印刷範囲を設定し、プロフェッショナルな出力結果を保証するためのテクニックを網羅的に解説します。
詳細解説：PageBreakと印刷範囲のメカニズム
Excelの印刷制御には、大きく分けて「印刷範囲（PrintArea）」と「手動改ページ（PageBreak）」の二つの要素があります。
1. 印刷範囲（PrintArea）：
シート内のどの範囲を印刷対象とするかを決定します。これをVBAで動的に取得するには、データが存在する最終行を「Cells(Rows.Count, 1).End(xlUp).Row」で特定し、その範囲をPrintAreaプロパティに渡すのが定石です。
2. 改ページ（PageBreak）：
改ページには「自動改ページ」と「手動改ページ」の二種類があります。VBAで制御できるのは「手動改ページ」です。特定の項目ごとに強制的に改ページを入れたい場合、HPageBreaksコレクションを使用します。
3. 改ページプレビュー（Viewモード）：
VBAから「ActiveWindow.View = xlPageBreakPreview」を実行することで、ユーザーに視覚的な確認を促すことができます。これにより、印刷設定が正しく反映されたことを直感的に理解させることが可能です。
サンプルコード：動的印刷設定の決定版
以下のコードは、データ量に応じて自動的に印刷範囲を調整し、かつ改ページプレビューモードに切り替えて最適なレイアウトを提示する実用的なサンプルです。
Sub OptimizePrintLayout()
Dim ws As Worksheet
Dim lastRow As Long
Dim lastCol As Long
Set ws = ActiveSheet
' 画面更新を停止して高速化
Application.ScreenUpdating = False
' 1. データ範囲の最終行・最終列を取得
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
' 2. 印刷範囲を動的に設定
ws.PageSetup.PrintArea = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Address
' 3. 印刷設定の最適化
With ws.PageSetup
.Orientation = xlPortrait ' 縦向き
.Zoom = False ' 倍率を自動調整に設定
.FitToPagesWide = 1 ' 横幅を1ページに収める
.FitToPagesTall = False ' 縦は自動（ページ数制限なし）
End With
' 4. 改ページプレビューモードへ切り替え
ActiveWindow.View = xlPageBreakPreview
' 5. 全ての手動改ページを一度リセット（初期化）
ws.ResetAllPageBreaks
' 6. 完了通知
Application.ScreenUpdating = True
MsgBox "印刷範囲を最適化し、改ページプレビューを表示しました。", vbInformation
End Sub
実務アドバイス：現場で失敗しないための「3つの鉄則」
現場のベテランとして、この機能を実装する際に必ず守るべき「失敗しないための鉄則」を伝授します。
第一の鉄則：ResetAllPageBreaksを忘れずに行うこと
コードを再実行するたびに手動改ページが蓄積されていくと、予期せぬ位置で改ページが発生し、レイアウトが崩壊します。自動設定を行う直前には、必ずResetAllPageBreaksメソッドを呼び出し、環境をクリーンに保つことが不可欠です。
第二の鉄則：倍率設定（Zoom）の罠に注意
FitToPagesWide や FitToPagesTall を使用する場合、ZoomプロパティをFalseにしておく必要があります。ここがTrueのままだと、ページ幅に合わせる設定が無視されてしまいます。VBAで印刷設定をいじるときは、必ずこのセットで記述する癖をつけましょう。
第三の鉄則：改ページプレビューはあくまで「確認用」として扱う
VBAで改ページプレビューを強制的に表示させるのは、ユーザーへの親切心としては素晴らしいことですが、すべての環境で動作するとは限りません。特にマルチディスプレイ環境や、解像度が極端に低い環境では、プレビューの表示倍率によって見た目が変わることがあります。あくまで「設定の自動化」を主目的とし、表示はおまけ程度に考えるのが賢明です。
まとめ：プログラムが「文書の品質」を担保する
Excel VBAによる改ページプレビューと印刷範囲の制御は、単なる自動化ツールを超え、出力されるドキュメントの品質を担保する「品質管理プロセス」そのものです。
人間が手作業で「印刷範囲」を確認し、マウスで改ページラインをドラッグして調整する作業は、ミスが発生しやすく非常に非効率です。今回紹介した手法をマスターすれば、データが100行あろうと1万行あろうと、一瞬で「最も美しい印刷レイアウト」を生成できるようになります。
まずは、現在担当している業務の中で「毎月決まった印刷範囲の調整」を行っている箇所がないか見直してみてください。その小さな改善が、積み重なることで大きな業務時間の削減へと繋がります。VBAの真価は、こうした地味だが重要な「定型業務の自動化」にこそ宿るのです。次のステップとして、特定の項目（例：部署コード）が変わるたびに改ページを挿入するVBAの実装に挑戦してみてください。それができれば、あなたはもうExcel VBAの初級者を卒業し、中級者への道を確実に歩んでいると言えるでしょう。
