![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・印刷時のヘッダーを設定
できます!
VBAコード
ここでは例として
・シート「sample」の
・ヘッダーを設定
します。
ここではヘッダーとして以下を設定します。
ヘッダー種類 | 設定内容 |
---|---|
左ヘッダー | ファイル名 |
中央ヘッダー | シート名 |
右ヘッダー | 現在の日付 |
Sub sample()
With Worksheets("sample").PageSetup
'左ヘッダー :「ファイル名」
.LeftHeader = "&F"
'中央ヘッダー:「シート名」
.CenterHeader = "&A"
'右ヘッダー :「現在の日付」
.RightHeader = "&D"
End With
End Sub
実行結果
印刷時のヘッダーを設定できました。
![設定されたヘッダー(印刷プレビュー画面)](https://excel-vba.work/wp-content/uploads/2021/12/vba_header_set_001.png)
参考①
上記で使用した以下の詳細は、公式サイトをご確認ください。
●「Worksheetオブジェクト」の「PageSetup」プロパティ
●「PageSetupオブジェクト」の3つのヘッダーのプロパティ
参考②
上記で使用した「&F(=ファイルの名前)」等の詳細は、公式サイトをご確認ください。
※上記で使用した以外にも色々あります。
参考③
印刷時のフッターも設定できます。
詳細は以下の記事をご確認ください。
参考④
以下の記事の内容と組み合わせることで、「全てのシートのヘッダー」を設定できます。
参考⑤
以下の記事の内容と組み合わせることで、「指定フォルダ配下の全てのExcelファイルのヘッダー」を設定できます。