導入：なぜVBAで印刷設定を行うのか
日常業務において、Excelの印刷設定は意外と手間がかかるものです。「印刷するたびに余白を調整し、改ページ位置を確認し、印刷範囲を指定する…」これらを毎回手動で行っていませんか？VBAを使えば、ボタン一つで「余白設定」「用紙サイズ」「印刷範囲」を完璧に制御できます。これにより、印刷ミスをゼロにし、誰が操作しても同じ結果が得られる「標準化」が可能になります。
基礎知識：PageSetupオブジェクトの重要性
Excel VBAで印刷設定を操作する場合、PageSetupオブジェクトを利用します。これはワークシート（Worksheetオブジェクト）の中に含まれており、ヘッダー、フッター、余白、印刷の向き、用紙サイズといった「ページ設定」のほぼ全てを網羅しています。このオブジェクトをコードから呼び出すことで、手動操作を一切不要にできるのです。
実装：印刷設定の自動化手順
印刷設定を自動化するには、以下の3つのステップを踏みます。
1. 対象のワークシートを特定する（With句を使うとコードがスッキリします）。
2. PageSetupプロパティで各種設定（余白、向き、倍率など）を記述する。
3. 最後に印刷（またはプレビュー）を実行する。
サンプルプログラム：実務で使える印刷設定テンプレート
以下のコードは、アクティブシートを「A4横向き」「余白を狭く」「シート全体を1ページに収める」という、実務で最も頻繁に発生する設定を自動化する例です。
Sub SetupAndPrint()
‘ 対象シートを変数にセット
Dim ws As Worksheet
Set ws = ActiveSheet
‘ With句でPageSetupを操作
With ws.PageSetup
.Orientation = xlLandscape ‘ 用紙を横向きに設定
.PaperSize = xlPaperA4 ‘ 用紙サイズをA4に設定
.LeftMargin = Application.InchesToPoints(0.5) ‘ 左余白を0.5インチに
.RightMargin = Application.InchesToPoints(0.5) ‘ 右余白を0.5インチに
.TopMargin = Application.InchesToPoints(0.5) ‘ 上余白を0.5インチに
.BottomMargin = Application.InchesToPoints(0.5) ‘ 下余白を0.5インチに
‘ 印刷範囲を1ページに収めるための設定
.Zoom = False ‘ 倍率設定を無効化
.FitToPagesWide = 1 ‘ 横を1ページに収める
.FitToPagesTall = 1 ‘ 縦を1ページに収める
End With
‘ 印刷プレビューを表示（本番印刷したい場合は .PrintOut を使用）
ws.PrintPreview
MsgBox “印刷設定が完了しました。”
End Sub
応用・注意点：現場で陥りやすい罠
1. 単位の換算に注意：
VBAでの余白設定は「ポイント」単位です。上記のコードのように `Application.InchesToPoints(0.5)` を使うと、直感的に設定できるためバグを減らせます。
2. 印刷範囲のクリア：
既存の印刷範囲設定が残っていると、意図しない場所で改ページされることがあります。必要に応じて `ws.PageSetup.PrintArea = “”` で印刷範囲を一旦クリアしてから再設定する癖をつけましょう。
3. プレビューでの確認：
いきなり `.PrintOut` で印刷するのではなく、まずは `.PrintPreview` で確認するフローを組むことで、紙とインクの無駄遣いを防ぐことができます。
これらのテクニックを組み合わせれば、毎日の報告書作成や帳票出力の時間が劇的に短縮されます。ぜひご自身の業務に合わせてカスタマイズしてみてください。
