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

VBAで
 ・印刷時のヘッダーを設定
できます!

PR

VBAコード

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

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

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

「Worksheetオブジェクト」の「PageSetup」プロパティにより、「PageSetupオブジェクト」を取得します(3行目)。

「PageSetupオブジェクト」の
 ・「LeftHeader」プロパティで「ヘッダー」
 ・「CenterHeader」プロパティで「中央ヘッダー」
 ・「RightHeader」プロパティで「ヘッダー」
を設定します(5~9行目)。

PR

実行結果

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

設定されたヘッダー(印刷プレビュー画面)
設定されたヘッダー(印刷プレビュー画面)
PR

参考①

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

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


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



PR

参考②

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

PR

参考③

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

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

PR

参考④

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

PR

参考⑤

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

タイトルとURLをコピーしました