導入: なぜこの技術が重要なのか
実務において、複数のシートで構成されたブックを印刷する際、シートごとに「余白」や「ヘッダー・フッター」、「印刷の向き」がバラバラになっていると非常に見栄えが悪く、修正に手間がかかります。手動で一つずつ設定するのは非効率ですし、設定漏れの原因にもなります。本日は、VBAを使って一瞬でページ設定を同期させる方法を解説します。この手法をマスターすれば、大量のシートを持つブックの印刷準備をわずか数秒で完了できるようになります。
基礎知識: 作業グループとPageSetupオブジェクト
Excelには複数のシートを選択して一括操作する「作業グループ」という機能がありますが、VBAにおいても同様の考え方で「PageSetupオブジェクト」を操作します。PageSetupオブジェクトは、シートの印刷に関するあらゆる設定（用紙サイズ、余白、ヘッダー、フッターなど）を保持しています。特定のシートの設定を別のシートにコピーするということは、VBAのコード上で「AシートのPageSetupプロパティの値を、BシートのPageSetupプロパティに代入する」という処理を行います。
実装/解決策: ロジックの組み立て
もっとも効率的な方法は、まず基準となる「お手本シート」を一つ決め、他の全てのシートに対してループ処理を行い、そのお手本のページ設定を反映させることです。全てのプロパティを個別に転記するのは大変ですが、VBAではシートのコピー機能などを工夫することで効率化できます。今回は、汎用性の高い「設定の同期」コードを紹介します。
サンプルプログラム: ページ設定を同期するマクロ
以下のコードは、アクティブシートの設定を、ブック内の他の全シートに適用するマクロです。
Sub SyncPageSetup()
‘ 画面更新を停止して処理を高速化
Application.ScreenUpdating = False
Dim targetSheet As Worksheet
Dim baseSheet As Worksheet
‘ 現在選択しているシートを「お手本」とする
Set baseSheet = ActiveSheet
‘ ブック内の全シートをループ
For Each targetSheet In ThisWorkbook.Worksheets
‘ 自分自身以外に設定をコピー
If targetSheet.Name <> baseSheet.Name Then
With targetSheet.PageSetup
.LeftHeader = baseSheet.PageSetup.LeftHeader
.CenterHeader = baseSheet.PageSetup.CenterHeader
.RightHeader = baseSheet.PageSetup.RightHeader
.LeftMargin = baseSheet.PageSetup.LeftMargin
.RightMargin = baseSheet.PageSetup.RightMargin
.TopMargin = baseSheet.PageSetup.TopMargin
.BottomMargin = baseSheet.PageSetup.BottomMargin
.Orientation = baseSheet.PageSetup.Orientation ‘ 印刷の向き
.PaperSize = baseSheet.PageSetup.PaperSize ‘ 用紙サイズ
.Zoom = baseSheet.PageSetup.Zoom ‘ 拡大縮小倍率
End With
End If
Next targetSheet
Application.ScreenUpdating = True
MsgBox “全シートのページ設定を同期しました！”
End Sub
応用・注意点: 現場で役立つ補足
注意点1：Zoomプロパティの扱い
PageSetupのZoomプロパティは、FitToPagesWideやFitToPagesTall（「横1ページに収める」などの設定）と同時に使用できません。これらが設定されているとエラーになる場合があります。必要に応じて、これらのプロパティも合わせて転記するように調整してください。
注意点2：シート保護
シートが保護されている場合、PageSetupの変更ができないことがあります。保護されているシートが含まれる場合は、コード内で一時的に保護を解除する処理を入れるなどの工夫が必要です。
ヒント：
もし全てのプロパティを網羅したい場合は、シート自体をコピーしてデータだけをクリアする方法もありますが、今回のように「既存のレイアウトを崩さずに設定だけ合わせたい」というケースでは、上記のプロパティ個別指定が最も安全でバグを抑えられる方法です。ぜひ実務でご活用ください。
