Printing reports

[Alu_GK]

Hello -
Access 2003, vista
I've an application that runs tests report. each test is a different report
with its own info, and some times different report (3 different reports
format based on 3 different tables, eith core informatio that regards all of
them).
according to one of the fields is the main tables i know which report to
print.
the list is marked with the id of the test which is uniqe.
The print action is being preform in that order
mark all the tests required -->
Open the first report --> print it --> close it --> open the next one
-->print it...
and so on...
When i have a 150 reports, the amount of time to wait untill this procedure
is ending, is to long, and i can't do anything with the computer because it
keeps opening and closing stuff....
if i print them all as a filtered report, I'm losing the report footer and
it shown only after 150 pages. and also i lose the page count per test, and
recieve "page 1 of 150" instead of "page 1 of 1/2/etc.", and this limits me
to show only one reports format.
I want to know if there is any way i can print those reports to a pdf file
or even an access report, in a way that will still show the correct page
count per test, and the footer info in the bottom of each page.
I will be happy with any suggestions...
Thanks

 

[Klatuu]

You can print each report individually without having to sit there and do it
manually.
I wouln't bother with doing a preview before printing, that is surely a
waste of time.

First, create a table that has a record for each report you want to print
with the name of the report in a field. You could include other fields such
as a flag to determine whether the report should be included in the current
run and maybe a field to put the reports in a specific order. Then, all you
need is a Sub with a loop to print each report. It might look something like
this:

Sub PrintReports()
Dim rstRpts As Recordset

Set rstRpts = Currentdb.OpenRecordset("tblReports")

With rstRpts
Do While Not .EOF
Docmd.OpenReport .ReportName
.MoveNext
Loop
.Close
End With

Set rstRpts = Nothing

End Sub