Home > 即効テクニック > Excel VBA > ページ設定関連のテクニック > ヘッダーやフッターにセルの内容を表示する

即効テクニック
ページ設定関連のテクニック

ヘッダーやフッターにセルの内容を表示する

(Excel 97/2000)
次のサンプルは、ヘッダーにセルA1の情報、フッターにセルA2の情報を設定し、印刷プレビューを表示するマクロです。

Sub SetPageData()
    ' アクティブシートのPageSetupオブジェクトに対して・・・
    With ActiveSheet.PageSetup
       ' 中央に配置するヘッダーを設定
       .CenterHeader = Range("A1").Value
       ' 中央に配置するフッターを設定
       .CenterFooter = Range("A2").Value
    End With
    ' 印刷プレビューを表示
    ActiveSheet.PrintPreview
End Sub

ちなみに、マクロ以外ではヘッダーやフッターにグラフィックやセル参照を挿入することはできません。すべてのページにセルの内容やグラフィックを印刷する場合は、メニューの「ファイル」「ページ設定」で表示されるダイアログ画面の「シート」タブの「印刷タイトル」のところにある「行のタイトル」、「列のタイトル」に、行や列を指定することで実現可能です。(複数行、複数列の指定も可能)