エクセル小僧：印刷時に、現在の日時を印刷日としてフッターに印字する [コンピューター]
エクセル印刷時に、右下のフッターに「2016/02/07(日) 20:03:05印刷」のように現在の日時を設定するマクロを作成してみました。![[猫]](https://blog.ss-blog.jp/_images_e/101.gif)
【動作】
１．印刷をトリガとして、マクロを自動的に起動する。
２．現在の日時を元に「2016/02/07(日) 20:03:05印刷」のような文字列を作成し、右下のフッターに設定する。
【マクロ構成】
今回作成したマクロは、１つです。
１．Workbook_BeforePrint：上記動作をするマクロ。ThisWorkbookにマクロを記述。
【マクロコード】
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' 【機能】右フッターに日付と曜日、時刻を設定します
ActiveSheet.PageSetup.RightFooter = Format(Now, "yyyy/mm/dd(aaa) hh:mm:ss印刷")
End Sub
（注）ThisWorkbookに記述するマクロのマクロ名（今回の場合はWorkbook_BeforePrint）は意味がありますので、変更しないでください。（酔っ払っていて、適当な日本語が思いつかない。。すみません！）つまり、印刷前に起動されるマクロを作成するには、マクロ名を必ず「Workbook_BeforePrint」とする必要があり、それ以外の名前はダメということです。（違ったかな。。？）
【動作】
１．印刷をトリガとして、マクロを自動的に起動する。
２．現在の日時を元に「2016/02/07(日) 20:03:05印刷」のような文字列を作成し、右下のフッターに設定する。
【マクロ構成】
今回作成したマクロは、１つです。
１．Workbook_BeforePrint：上記動作をするマクロ。ThisWorkbookにマクロを記述。
【マクロコード】
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' 【機能】右フッターに日付と曜日、時刻を設定します
ActiveSheet.PageSetup.RightFooter = Format(Now, "yyyy/mm/dd(aaa) hh:mm:ss印刷")
End Sub
（注）ThisWorkbookに記述するマクロのマクロ名（今回の場合はWorkbook_BeforePrint）は意味がありますので、変更しないでください。（酔っ払っていて、適当な日本語が思いつかない。。すみません！）つまり、印刷前に起動されるマクロを作成するには、マクロ名を必ず「Workbook_BeforePrint」とする必要があり、それ以外の名前はダメということです。（違ったかな。。？）
ヤバイぜ! ありがとうございます[__猫]
by cheese999 (2016-02-07 20:30)