Adding Multiple Reports to Print Preview

J

jjf117a

I have a report (Performance History Main Unbound) that gets it's
employee number input from a text box on the main form (forms![Main
Form]![Text11]).

I also have a table of employee numbers that I would like to run the
report on. It is called tblPrintWhs.

I got this so far to print the reports:

Dim stDocName As String
Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset

rst.Open "tblPrintWhs", CurrentProject.Connection
rst.MoveFirst
Do Until rst.EOF
Me![Text11] = rst(0)
stDocName = "Performance History Main Unbound"
DoCmd.OpenReport stDocName, acPrint
rst.MoveNext
Loop
rst.Close
Set rst = Nothing

When I use acPrint, it prints all of the reports coinciding with the
employes in tblPrintWhs. However, when I use acViewPreview, it only
shows the first report.

Is there a way to append all of the reports to a print preview?

Thanks!
 
Top