Report Print All

[DMT Dave]

HI All, i have a report to print, there are 2 x criteria's on the report, 1 is a Date selected by a combo box and the other is a client again selected via a combo box, I currently click on each client to print their report, ie: if there are 40 clients, i click on each name to print the report 40 times!! is there a method to keep that client criteria in place (otherwise all clients will print on one continuous report) and have an option to print all instead of clicking on each client from the combo box ?? many thanks

[June7]

You have code in combobox AfterUpdate event to print report? Click, wait for report, click, wait for report, repeat 38 more times? yuck! Imagine if there were hundreds! Big yuck!

In VBA open a recordset of the desired clients. Will require filter criteria to define the desired set of clients. Loop through recordset to open filtered report, print, close.

If page numbering is not an issue and report designed for each client to start on new page, then apply the above filter criteria to report and print one long print job.

[DMT Dave]

You have code in combobox AfterUpdate event to print report? Click, wait for report, click, wait for report, repeat 38 more times? yuck! Imagine if there were hundreds! Big yuck!

In VBA open a recordset of the desired clients. Will require filter criteria to define the desired set of clients. Loop through recordset to open filtered report, print, close.

If page numbering is not an issue and report designed for each client to start on new page, then apply the above filter criteria to report and print one long print job.

Hi There thank you for you your reply, something like Set rs = Currentdb.OpenRecordset("Select * From Table WHERE Date = #" & Forms!frmJobDate!cboDate & "#") Then Do Until rs.EOF Then print from there, is this where you were pointing towards (printing all via rs instead of Yuck as you quite rightly say)

[June7]

Yes, something like that.

Dim rs As DAO.Recordset
Set rs = Currentdb.OpenRecordset("Select * From Table WHERE Date = #" & Forms!frmJobDate!cboDate & "#")
Do Until rs.EOF
DoCmd.OpenReport "reportname", , , "ClientID=" & rs!ClientID
rs.MoveNext
Loop

Reports will go straight to printer so should not need PrintOut and Close commands.