ExcelVBA ページ設定でExcel印刷時のレイアウトを自動指定する方法

以下のようなシーンで利用で表示します。

1.大量のシートの印刷設定を自動化
一括で同じ印刷レイアウトを適用したいとき。

2.印刷フォーマットの調整
特定のデザイン（例：横向き1ページに収める）で印刷する。

3.プロジェクト管理やレポート作成
一定のフォーマットで印刷可能な報告書を作成する。

Option Explicit

Sub SetPageSetup()
    Dim ws As Worksheet
    
    ' 対象のシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' ページ設定を適用
    With ws.PageSetup
        .Orientation = xlLandscape ' 横向き
        .PaperSize = xlPaperA4     ' A4用紙
        .FitToPagesWide = 1        ' 横方向1ページに収める
        .FitToPagesTall = 1        ' 縦方向1ページに収める
        .Zoom = False              ' 縮尺を無効にする
    End With
    
    MsgBox "ページ設定を完了しました！"
End Sub

余白とヘッダー・フッターの設定

Option Explicit

Sub SetMarginsAndHeaderFooter()
    Dim ws As Worksheet
    
    ' 対象のシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' ページ設定
    With ws.PageSetup
        .LeftMargin = Application.InchesToPoints(0.5)  ' 左余白0.5インチ
        .RightMargin = Application.InchesToPoints(0.5) ' 右余白0.5インチ
        .TopMargin = Application.InchesToPoints(1)    ' 上余白1インチ
        .BottomMargin = Application.InchesToPoints(1) ' 下余白1インチ
        
        ' ヘッダーとフッターを設定
        .CenterHeader = "レポート"   ' 中央ヘッダー
        .CenterFooter = "ページ &P / &N" ' 中央フッター（ページ番号）
    End With
    
    MsgBox "余白とヘッダー・フッターを設定しました！"
End Sub

すべてのシートに統一したページ設定を適用

Option Explicit

Sub ApplyPageSetupToAllSheets()
    Dim ws As Worksheet
    
    ' すべてのシートをループ
    For Each ws In ThisWorkbook.Sheets
        With ws.PageSetup
            .Orientation = xlPortrait ' 縦向き
            .PaperSize = xlPaperA4    ' A4用紙
            .FitToPagesWide = 1       ' 横1ページ
            .FitToPagesTall = False   ' 縦方向は制限なし
            .CenterHeader = "統一レポート" ' ヘッダー設定
        End With
    Next ws
    
    MsgBox "すべてのシートにページ設定を適用しました！"
End Sub

ページ設定をExcelVBAで行うことで、手動で設定する手間を省き、効率的に統一した印刷レイアウトを実現できます。特に、大量のシートを扱う場合に役立ちます。PageSetup を柔軟に活用して、印刷作業を簡単にしましょう。