Excel VBAでワークシートを印刷する時にヘッダーやフッターに、ブック名やページ数を表示する方法を記録します。
印刷時のヘッダー、フッターの指定は「PageSetup」オブジェクトのヘッダーやフッターのプロパティを使います。
< スポンサーリンク >
ヘッダー・フッタープロパティ
WorkSheetオブジェクト.PageSetup.ヘッダー・フッタープロパティ = "文字"
ヘッダー・フッタープロパティは以下
LeftHeader = ヘッダー左
CenterHeader = ヘッダー中央
RightHeader = ヘッダー右
LeftFooter = フッター左
CenterFooter = フッター中央
RightFooter = フッター右
文字にはブック名などを簡単に設定できる書式コードがあります。
&F = ブック名
&A = シート見出し
&D = 現在の日付
&T = 現在の時刻
&P = ページ番号
&N = 総ページ数
VBAでヘッダー、フッターの指定
ヘッダー左に指定
ヘッダー左にブック名を指定し、印刷プレビューを表示してみます。
Sub test()
ActiveSheet.PageSetup.LeftHeader = "&F"
ActiveSheet.PrintPreview
End Sub
ヘッダー左と右に指定
ヘッダーの左にブック名、ヘッダーの右に日付を指定し、印刷プレビューを表示してみます。
ヘッダーの左、右とフッターなど、複数指定する場合「With」ステートメントを使うと便利です。
Sub test()
With ActiveSheet.PageSetup
.LeftHeader = "&F"
.RightHeader = "&D"
End With
ActiveSheet.PrintPreview
End Sub
ヘッダー右の日付に続けて、スペース、私の名前を指定し、印刷プレビューを表示してみます。
Sub test()
With ActiveSheet.PageSetup
.LeftHeader = "&F"
.RightHeader = "&D リリア"
End With
ActiveSheet.PrintPreview
End Sub
フッター中央に指定
フッターの中央にページ数と総数を指定し、印刷プレビューを表示してみます。
Sub test()
With ActiveSheet.PageSetup
.LeftHeader = "&F"
.RightHeader = "&D リリア"
.CenterFooter = "&P / &N"
End With
ActiveSheet.PrintPreview
End Sub
こんな記事も書いています