Printing mutiable reports from 1 button

[Keiath]

Hi Guys

I have a form that produces Year end accounts, therefore each page is totally different from one another, there are 10 reports per set of accounts.

I have created 10 buttons that out puts the desired report

Profit and Lost, Balance Sheet ect ect.

What I would like now is a way to print all 10 reports with the click of a button, how can this be done

Thanks

Keiath

 

[pbaldy]

DoCmd.OpenReport "Report1"
DoCmd.OpenReport "Report2"
...

 

[Keiath]

That kinda works only problem is it wants to print all of the accounts (490) of them, what i need it to do is to only print the reports for the form inview

Thanks

 

[pbaldy]

How do the existing buttons do it? I basically meant to use the same method, but repeat for each report. Presumably you're using this:

http://www.baldyweb.com/wherecondition.htm

 

[Keiath]

I use this for 1 report

Private Sub Command732_Click()
DoCmd.OpenReport "Budget2", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
End Sub

that ask for the site number of the form and report i want

I then tried this:-

Private Sub Command735_Click()
DoCmd.OpenReport "Front", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "Contents"
DoCmd.OpenReport "IandE1"
DoCmd.OpenReport "ExpAna"
DoCmd.OpenReport "CashRec"
DoCmd.OpenReport "Balance1"
DoCmd.OpenReport "SArrears"
DoCmd.OpenReport "RArrears"
DoCmd.OpenReport "ExpenseList"
DoCmd.OpenReport "Budget1"
End Sub

but that where it ask for the site number but them proceeds to print all 490 forms

 

[pbaldy]

I would expect more like:

DoCmd.OpenReport "Front", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "Contents", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "IandE1", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "ExpAna", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "CashRec", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "Balance1", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "SArrears", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "RArrears", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "ExpenseList", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"
DoCmd.OpenReport "Budget1", acViewPreview, , "[SITE NUMBER] = Me![SITE NUMBER]"

 

[Keiath]

Yes that opens up each report, but what I acctually want to do is print all the reports as 1

if that makes sense

 

[pbaldy]

Since you say they are all different, the only way that comes to mind is another report that includes the 10 reports as subreports. If you printed instead of previewing, they might all come out as if they were 1.