Create a sheet named "PrintLog",
then insert following code in ThisWorkbook.
HTH
--
AP
'----------------------------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("PrintLog")
.Cells(Rows.Count, "A").End(xlUp).items(2).Value = Now
End With
End Sub
'----------------------------------------------------------------------------------------
"History of print jobs" <History of print
[email protected]> a
écrit dans le message de
[email protected]...