Was the Previewed Report Printed

[Guest]

I have several reports that are to be printed with a single command.
I want to open the 1st report in preview mode to allow the user to select a
printer other that the default. If for some reason the user closes the
preview report without printing, I'd like to cancel the remainder of the
reports.

Is there a way to detect if the previewed report was actually printed or
cancelled?

 

[fredg]

I have several reports that are to be printed with a single command.
I want to open the 1st report in preview mode to allow the user to select a
printer other that the default. If for some reason the user closes the
preview report without printing, I'd like to cancel the remainder of the
reports.

Is there a way to detect if the previewed report was actually printed or
cancelled?

The actual starting value of intPreview depends upon if you have a
control in the report to compute [Pages].

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 "Report Printed"
End If
intPreview = intPreview + 1
End Sub

 

[Guest]

Thanks... That worked, but one more question.
How do I use the last printer selections (from the Print Dialog) for
subsequent reports?

I have several reports that are to be printed with a single command.
I want to open the 1st report in preview mode to allow the user to select a
printer other that the default. If for some reason the user closes the
preview report without printing, I'd like to cancel the remainder of the
reports.

Is there a way to detect if the previewed report was actually printed or
cancelled?

The actual starting value of intPreview depends upon if you have a
control in the report to compute [Pages].

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 "Report Printed"
End If
intPreview = intPreview + 1
End Sub