Indicate worksheet has been printed

[kurry11]

Is there a function or formula that will indicate on a worksheet when it has been printed and when?


Thanks!

 

[VoG]

Try like this in the ThisWorkbook module

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
    ws.Range("Z1").Value = "Last printed " & Format(Now, "dd/mm/yy hh:mm")
Next ws
End Sub