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ファイルのヘッダー」を設定できます。