ワークシートの印刷ヘッダー、フッターの設定

印刷ヘッダー、フッターはそれぞれ左、中央、右の3か所に設定でき、フォントやフォントサイズ、字体など細かく指定することができます。また、独自の変数により日付や時刻、ブック名やシート名などを表示することもできます。

印刷ヘッダー・フッターの使用方法

' 印刷ヘッダープロパティ（左、中央、右）
object.PageSetup.LeftHeader
object.PageSetup.CenterHeader
object.PageSetup.RightHeader

' 印刷フッタープロパティ（左、中央、右）
object.PageSetup.LeftFooter
object.PageSetup.CenterFooter
object.PageSetup.RightFooter

※objectはワークシートオブジェクトを表す変数

印刷ヘッダー・フッターの使用例

印刷ヘッダー・フッターに文言設定

ヘッダー、フッターそれぞれに文言を設定して、プレビュー表示する例です。中央ヘッダーについては文字太さとフォントサイズも指定しています。

Sub sample_eb07g_01()
    With ActiveSheet
        'ヘッダーの設定
        .PageSetup.LeftHeader = "左ヘッダー"
        '&B&20 ・・・ 太字、20pt
        .PageSetup.CenterHeader = "&B&20中央ヘッダー"
        .PageSetup.RightHeader = "右ヘッダー"

        'フッターの設定
        .PageSetup.LeftFooter = "左フッター"
        .PageSetup.CenterFooter = "中央フッター "
        .PageSetup.RightFooter = "右フッター"

        '印刷プレビュー表示
        .PrintPreview
    End With
End Sub

 PrintPreview メソッド Withステートメント

複数のフォントとフォントサイズを設定

中央ヘッダーに複数のフォント、フォントサイズを設定する例です。

Sub sample_eb07g_02()
    With ActiveSheet
        '太字斜体明朝20pt+シート名、注釈は標準11pt
        .PageSetup.CenterHeader = _
            "&B&I&""ＭＳ Ｐ明朝""&20&A 年間売上一覧表  " & _
            "&""-,標準""&11※関東地区のみ"

        '印刷プレビュー表示
        .PrintPreview
    End With
End Sub

 PrintPreview メソッド Withステートメント

日付と時刻を設定

右ヘッダーに日付と時刻を設定する例です。

Sub sample_eb07g_03()
    With ActiveSheet
        '日付、時刻を設定
        .PageSetup.RightHeader = "印刷日時 ： &D &T"

        '印刷プレビュー表示
        .PrintPreview
    End With
End Sub

 PrintPreview メソッド Withステートメント

ページを設定

中央フッターに現在ページと総ページ数を設定する例です。

Sub sample_eb07g_04()
    With ActiveSheet
        '現在ページと総ページ数
        .PageSetup.CenterFooter = "&P / &N"

        '印刷プレビュー表示
        .PrintPreview
    End With
End Sub

 PrintPreview メソッド Withステートメント