Printing multiple reports?

[sucoyant]

Hello all!

I have a combo box that is being pupulated by the following query: SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],3)="REP&quot ORDER BY MSysObjects.Name;

I was wondering if it is possible to print all of the reports that are being populated in the combo box with a command button?

Any help would be GREATLY appreciated!

 

[LonnieJohnson]

In the On Click event of the button you could put...

(I am using DAO)

Dim db as DAO.Database
Dim rs as DAO.Recordset

Set db = CurrentDb
set rs = db.OpenRecorsets("SELECT MSysObjects.Name as RPTNAME FROM MsysObjects WHERE Left([Name],3)='REP'&quot

Do Until rs.EOF
DoCmd.OpenReport rs("RPTNAME&quot
rs.MoveNext
Loop

Hope this helps

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

Contact me at ==>lonniejohnson@prodev.us

May God bless you beyond your imagination!!!