Multiple Report Printing

[Alan Forman]

Hi Guys

I'm trying to print out several reports from one button. I have created individual buttons for each of the reports and they work fine.

But when I try to amalgamate them it stops printing after the first two reports regardless of which ones are at the top of the list.

Any suggestions, or workarounds appreicated.

Thanks


The code I'm using is ......

Private Sub Print_All_Click()

Dim strFilter As String
strFilter = "Business_ID = Forms!frm_Business!Business_ID"

DoCmd.OpenReport "rpt_Front_Page", acPrint, , strFilter
DoCmd.OpenReport "rpt_D_and_N_Suitability", acPrint, , strFilter
DoCmd.OpenReport "rpt_Profile", acViewNormal, acPrint, , strFilter
DoCmd.OpenReport "rpt_Important_Points", acPrint, , strFilter
DoCmd.OpenReport "rpt_TOBA_1", acViewNormal, acPrint, , strFilter
DoCmd.OpenReport "rpt_TOBA_2", acViewNormal, acPrint, , strFilter
DoCmd.OpenReport "rpt_TOBA_3", acViewNormal, acPrint, , strFilter
DoCmd.OpenReport "rpt_Premium_Payment", acPrint, , strFilter

 

[JHB]

Do you get some error message?
Have you tried to step through you code?

 

[Alan Forman]

Hi

Thanks for reading my thread.

No error code is displayed, just prints the first to reports, and I don't know how to step through the code.

Thanks

Alan

 

[JHB]

Below is a link how you set a breakpoint.
http://office.microsoft.com/en-us/access-help/HV080755512.aspx

 

[Alan Forman]

That doesn't seem to give any clues, the sequence just stops after the first 2 reports.

Thanks for your time.

Alan

 

[JHB]

Are you sure the filter is correct, for me it looks suspicious, I would have thought is should be:

strFilter = "Business_ID =" & Forms!frm_Business!Business_ID

Else try by removing the filter from all reports.