各シートごとの印刷日時取得

質問

タイトルにありますように、各シートの印刷日時を取得したいと考えております。
　ブックの印刷日を保管して日時の差でどちらのシートの印刷か把握している現状です。
　　　同日印刷は基本的にありませんが、シート１の印刷が別の日にあるとシート２がどこからなのか把握が困難です。

以前、こちらでご教授頂き、Workbook_BeforePrintをつかいブックの印刷日時は取得できます。
単純にWorkbookをWorksheetに変更しただけでは動作しないのでどうすればシート毎の印刷日時を取得できるかご教授のほどお願い致します。

印刷日時の表示は以下のようにして行っております。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets(3).Cells(2, 13) = "" Then
Worksheets(3).Cells(2, 13).Value = Now()
Else
Worksheets(3).Cells(Rows.Count, 13).End(xlUp).Offset(1, 0) = Now()
End If
End Sub

＊コマンドボタンからPrintを実行させる際に表示する方法も考えましたが、「コマンドボタンからいちいち印刷よりは印刷ボタンからの印刷でWorkbookからどのシートか判断させてやりたい」という思いからです。

回答No.1

keithin · ベストアンサー

今あるWorkbook_BeforePrintを消して、下記に差し替えます。

private sub Workbook_BeforePrint(Cancel as boolean)
　dim w as worksheet
　for each w in activewindow.selectedsheets
　　w.range("M65536").end(xlup).offset(1) = now
　next
end sub

お礼

ご教授に感謝致します。

補足

早々にご教授頂きありがとうございます。

実行させて頂いた結果、選択してあるそれぞれのシートで表示可能でした。
ただ、シート1のみ除外などということは可能なのでしょうか？