印刷フッターの設定をする
印刷フッターの設定をする構文は次のとおりです。
'フッター中央の設定
ActiveSheet.PageSetup.CenterFooter = "&P / &N" 'ページ番号 / 全ページ数
ActiveSheet.PageSetup.CenterFooter = "&P" 'ページ番号
'フッター左の設定
ActiveSheet.PageSetup.LeftFooter = "&A" 'シート名
'フッター右の設定
ActiveSheet.PageSetup.RightFooter = "&F" 'ファイル名
'フッターの解除
ActiveSheet.PageSetup.CenterFooter = ""
ActiveSheet.PageSetup.LeftFooter = ""
ActiveSheet.PageSetup.RightFooter = ""
代表的な設定値は次のとおりです。
| ＆P | ページ番号 |
|---|---|
| &N | 全ページ数 |
| &A | シート名 |
| &F | ファイル名 |
少し込み入った設定をする
少しだけ込み入った設定の例です。
'フォント24ptでページ番号を表示する
ActiveSheet.PageSetup.CenterFooter = "&24" & "&P"
'フォントメイリオ24ptでページ番号を表示する
ActiveSheet.PageSetup.CenterFooter = "&""メイリオ""&24" & "&P"
'フォントメイリオ24pt＋太字でページ番号を表示する
ActiveSheet.PageSetup.CenterFooter = "&""メイリオ,太字""&24" & "&P"
