has this been printed

[GREGORY HICKMOTT]

I know that there are many things like out of ink and so that can effect the
printing but the user can reprint if not able to read printout for some
reason . I need to know when they sent it to the printer and not just
previewed (TELL Access that certain rows/data have been printed) to flag as
billed so that I can mark data as billed and archive the data and not
include in next billing

 

[Mike Painter]

I know that there are many things like out of ink and so that can
effect the printing but the user can reprint if not able to read
printout for some reason . I need to know when they sent it to the
printer and not just previewed (TELL Access that certain rows/data
have been printed) to flag as billed so that I can mark data as
billed and archive the data and not include in next billing

If you are controlling the printing then just add code to update a query
after the reports run.
The same query you use to do the printing can be used to update a "printed?"
field to True.

This is always a separate manual step for me because it will require a good
bit of hand work if all but three pages print and they are in the middle of
the run and they are not real sure which ones are missing.

 

[fredg]

I know that there are many things like out of ink and so that can effect the
printing but the user can reprint if not able to read printout for some
reason . I need to know when they sent it to the printer and not just
previewed (TELL Access that certain rows/data have been printed) to flag as
billed so that I can mark data as billed and archive the data and not
include in next billing

The following code will alert you when the report is sent to the
printer.
The actual starting value of intPreview depends upon if you have a
control in the report to compute [pages].

Note that intPreview is declared up in the Declarations section of the
code.

Option Compare Database
Option Explicit
Dim intPreview As Integer

Private Sub Report_Activate()
intPreview = -1 ' If [Pages] is not used
' intPreview = -2 ' If [Pages] used
End Sub

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As
Integer)
If intPreview >= 0 Then ' If [Pages] not used
' If intPreview >= 1 Then ' If [Pages] used
MsgBox "Sent to Printer"
' It's been sent to be printed
' Do whatever you need here
End If
intPreview = intPreview + 1
End Sub

If you need to enter into a table that the report has been printed,
you can run an Update query from the Report Header where indicated.