nodata event / still printing form data

[cobolguy]

I have a report that I run from a Macro. This macro executes when you click the printer icon button on the form. The macro is simple: 1. open report 2. printout 3. close report . All this works fine - except when I do not want to print the report if no data exist. I have the nodata event with cancel = true. It works but, a print is generated that looks like a snapshot of the form with the printer icon with the 2 test records. Why is that printing? How can I get rid of it? Thanks in advance.

The report has this event procedure:

Private Sub Report_NoData(Cancel As Integer)
Cancel = True
'
MsgBox ("report cancelled")
End Sub

[DonRayner]

Your problem is being caused because of the macro. The cancel event on the report doesn't stop the macro from running, it just stops the form from opening. The print command still runs and since the form is now active instead of the report it is printing the form.

Instead of using a Macro to print the report you need to open it directly from the command button that you click to print. Assuming your button is named print the vba for the on click event would be as follows. Just replace ReportName with the actual name of your report.

Private Sub Print_Click()
On Error GoTo ErrPoint
DoCmd.OpenReport "ReportName", acViewNormal
 
ExitPoint:
Exit Sub
 
ErrPoint:
If Err.Number = 2501 Then
    MsgBox "Report Cancelled"
    Resume ExitPoint
Else
    MsgBox Err.Number & " " & Err.Description
End If
End Sub

The cancel event generates error number 2501 that you can trap and use to display your message box.

[Stewart Ross]

Hi. I guess from what you say about the steps performed by your macro it opens the report in print preview mode, then uses printout as the next macro action. The cancel event will leave you with no report to print, as it closes the open report immediately (there being nothing to print preview).

If I am right about this you can instead send the report directly to print and take out your printout and close macro actions. The print and print preview options are under View in your open report macro action.

-Stewart

[cobolguy]

Don and Stewart - much thanks for your response. I have tried to like Macros but they can be a pain - like this example has shown. Here is the final solution taken from Don's code. There are actually 4 reports run at the same time, but only the 4th will have no data sometimes. A Query is done for reports 1-3 and another done for report 4 (which may have scanned documents or not). It was the ChemicalReport4ScanDoc that has the nodata event. So the final analysis is: the Macro was creating extra print after the report was cancelled with the nodata event.

Public Sub ChemicalPrintSub()
    On Error GoTo ErrPoint
'
DoCmd.OpenReport "ChemicalReport1", acViewNormal
DoCmd.OpenReport "ChemicalReport2", acViewNormal
DoCmd.OpenReport "ChemicalReport3", acViewNormal
DoCmd.OpenReport "ChemicalReport4ScanDoc", acViewNormal
'
ExitPoint:
Exit Sub
 
ErrPoint:
If Err.Number = 2501 Then
    Resume ExitPoint
Else
    MsgBox Err.Number & " " & Err.Description
End If
'
End Sub

[DonRayner]

You're quite welcome, good luck with your project.

Don