【VBA】印刷時のヘッダーを設定する

VBAコード

ここでは例として
　・シート「sample」の
　・ヘッダーを設定
します。

ここではヘッダーとして以下を設定します。

ヘッダー種類	設定内容
左ヘッダー	ファイル名
中央ヘッダー	シート名
右ヘッダー	現在の日付

Sub sample()
    
    With Worksheets("sample").PageSetup
        '左ヘッダー　：「ファイル名」
        .LeftHeader = "&F"
        '中央ヘッダー：「シート名」
        .CenterHeader = "&A"
        '右ヘッダー　：「現在の日付」
        .RightHeader = "&D"
    End With
    
End Sub

実行結果

印刷時のヘッダーを設定できました。

参考①

上記で使用した以下の詳細は、公式サイトをご確認ください。

●「Worksheetオブジェクト」の「PageSetup」プロパティ

●「PageSetupオブジェクト」の3つのヘッダーのプロパティ

参考②

上記で使用した「&F(=ファイルの名前)」等の詳細は、公式サイトをご確認ください。
※上記で使用した以外にも色々あります。

参考③

印刷時のフッターも設定できます。

詳細は以下の記事をご確認ください。

参考④

以下の記事の内容と組み合わせることで、「全てのシートのヘッダー」を設定できます。

参考⑤

以下の記事の内容と組み合わせることで、「指定フォルダ配下の全てのExcelファイルのヘッダー」を設定できます。