Time Stamping Records when a Report is done

[Joanne]

Does anyone know how to timestamp a record when a report
is printed? I have to do this as an audit trail for
Accounts receivable.

Thanks for your help!

 

[Douglas J. Steele]

I don't believe there's any real way to automate this, especially since the
fact that sending a report to the printer does not necessarily mean that the
report was printed (out of toner, paper jams, etc.)

 

[Arvin Meyer]

Unfortunately, there is no direct feedback to an application if there is an
error such as out of toner/ink etc. As a result, you'll need to decide just
how critical the timestamp is. If it is ultra critical, generate a random
number and print it in the report's footer. Then have the application check
it in the report's Close event. If you can trust your users to print and
record, you can use some code like this in the report's Close event.
(Unfinished):

Private Sub Report_Close()

If MsgBox("Did the report print correctly?", vbYesNo, "Verification") =
vbYes Then
DoCmd.RunSQL "UPDATE tblReports SET tblReports.LastPrinted = Now() WHERE
...."
End If

End Sub

--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access Downloads
http://www.datastrat.com
http://www.mvps.org/access