Print Multiple Reports from one button

[Scott_66701 via AccessMonster.com]

Hi, I have 5 reports, "Report1, Report2, 3, 4, 5" and I am wanting to be able
to click the "Print Reports" button and have all the report, 1-5 print by
just clicking that button. How can I do that?

 

[Tom Wickerath]

Hi Scott,

Try something like this:

Private Sub cmdPreviewReport_Click(Cancel As Integer)
On Error GoTo ProcError

DoCmd.OpenReport "Report1"
DoCmd.OpenReport "Report2"
DoCmd.OpenReport "Report3"
DoCmd.OpenReport "Report4"
DoCmd.OpenReport "Report5"

ExitProc:
Exit Sub
ProcError:
Select Case Err.Number
Case 2501 ' No data or user cancels, so ignore this error.
Case Else
MsgBox Err.Number & ": " & Err.Description, vbCritical, _
"Error in cmdPreviewReport_Click Event Procedure..."
End Select
Resume Next
End Sub



Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
__________________________________________