各シートごとの印刷日時取得
タイトルにありますように、各シートの印刷日時を取得したいと考えております。
ブックの印刷日を保管して日時の差でどちらのシートの印刷か把握している現状です。
同日印刷は基本的にありませんが、シート１の印刷が別の日にあるとシート２がどこからなのか把握が困難です。
以前、こちらでご教授頂き、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からどのシートか判断させてやりたい」という思いからです。
お礼
それいただき＾＾