導入：なぜVBAでページ設定を自動化すべきなのか
実務において、Excelで作成した資料を印刷する際、毎回「余白」や「印刷の向き」を手動で調整していませんか？データ量が増減するたびに設定をやり直すのは非常に手間ですし、何より「設定漏れ」によるミスが発生しがちです。VBAを使えば、ボタン一つで帳票のレイアウトを整え、ミスなく印刷できる状態を作ることができます。今回は、VBAで印刷設定を制御する「PageSetupオブジェクト」の活用法を解説します。
基礎知識：PageSetupオブジェクトとは
Excel VBAでページ設定を司るのが「PageSetupオブジェクト」です。これはワークシート（Worksheet）の中に含まれており、余白、用紙サイズ、印刷の向き、ヘッダー・フッターなどの情報を保持しています。VBAで操作する際は、基本的に「対象のシート.PageSetup.プロパティ名 = 値」という形式で記述します。
実装：ページ設定の基本コード
ページ設定を行う際は、まず対象となるシートを指定し、そのPageSetupプロパティに値を代入します。実務でよく利用される「印刷の向き」や「用紙サイズ」の指定手順を見てみましょう。
サンプルプログラム：実用的なページ設定マクロ
以下は、アクティブなシートに対して、A4横向き・余白を狭く設定し、印刷範囲を自動調整するサンプルです。
Sub SetupPrintLayout()
‘ 対象シートを定義
Dim ws As Worksheet
Set ws = ActiveSheet
‘ Withステートメントを使うとPageSetupの記述がスッキリします
With ws.PageSetup
‘ 印刷の向きを横に設定（xlLandscape）
.Orientation = xlLandscape
‘ 用紙サイズをA4に設定
.PaperSize = xlPaperA4
‘ 余白を「狭い」設定（各0.5インチ相当）
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
‘ 印刷時、1ページに横幅を収める設定
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False ‘ 縦は自動で調整
‘ 中央揃え（水平・垂直）
.CenterHorizontally = True
.CenterVertically = False
End With
MsgBox “ページ設定が完了しました！”
End Sub
応用・注意点：現場で陥りやすいトラブル
1. プリンタドライバによる影響
ページ設定のプロパティは、現在設定されている「既定のプリンタ」の性能に依存することがあります。開発環境と実行環境で異なるプリンタを使っている場合、稀に設定が反映されないことがあります。その際は、コードの冒頭で明示的に用紙サイズ等を再設定するロジックを組むのが安全です。
2. Zoomプロパティの罠
サンプルコードにもある「.Zoom = False」は、FitToPages系プロパティを有効にするために必須です。ここを忘れると、ページ内に収める設定が無視されてしまうため注意してください。
3. 印刷範囲のクリア
過去に設定した印刷範囲（PrintArea）が残っていると、意図しない場所が印刷されることがあります。必要に応じて「.PrintArea = “”」と指定し、範囲をリセットしてから設定を行うのが実務のコツです。
このマクロをテンプレートブックに仕込んでおけば、どんなデータでも一瞬で正しいレイアウトに整えることができます。ぜひ活用してください。
