【VBA】印刷時のフッターを設定する

VBAコード

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

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

フッター種類	設定内容
左フッター	ファイル名
中央フッター	ページ番号と総ページ数
右フッター	現在の時刻

Sub sample()
    
    With Worksheets("sample").PageSetup
        '左フッター　：「ファイル名」
        .LeftFooter = "&F"
        '中央フッター：「ページ番号」と「総ページ数」
        .CenterFooter = "&P/&N"
        '右フッター　：「現在の時刻」
        .RightFooter = "&T"
    End With
    
End Sub

実行結果

印刷時のフッターを設定できました。

参考①

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

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

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

参考②

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

参考③

印刷時のヘッダーも設定できます。

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

参考④

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

参考⑤

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