スキルアップ・問題解決なら、モーグにおまかせ！

対象のワークシート、グラフシートの印刷時のページ設定情報を表すPageSetupオブジェクトを参照します。PageSetupオブジェクトには、左余白、下余白、用紙サイズなどの、すべてのページ設定属性がプロパティとして含まれています。

  構文  Object.PageSetup     取得のみ


  設定項目              内容
  Object                WorkSheet、Chartオブジェクト [省略不可]

次のサンプルは、アクティブなブックのすべてのシート中央ヘッダーに、シート名を設定します。

Sub PageSetupSamp1()
    Dim s As Worksheet

    For Each s In Worksheets     '---全てのワークシートに対して
        With s.PageSetup
            .CenterHeader = "&""ＭＳ Ｐゴシック,太字""&16&A"
            '---フォント名とフォントサイズを指定して、シート名を中央ヘッダーに指定
        End With
    Next s

End Sub

●ポイント●
PageSetupオブジェクトはWorkSheet、Chartオブジェクトの下位オブジェクトであり、それぞれのシートに独立して存在します。よって、ページ設定を複数のページで一度に行うことはできません。サンプルコードのように一枚ずつ行ってください。