Turn a 500 page print job into 500 print jobs?

[Mr Matt]

Hello,

I'm using Access 2002 to generate a report with formatted pages that
must be faxed to recipients. Each page must fax to a different
recipient with a unique fax number. 250 page report generates 250
faxes etc. # of pages varies from week to week. Currently printing
to a laser printer, then manually feeding/dialing a fax machine one
sheet at a time.

My new automated fax solution, Captaris RightFax 8.5, can use embedded
codes to dial/send to fax numbers automatically. The catch: RightFax
only pays attention to codes on page one of any given print job.
Subsequent pages are not scanned for codes, and wind up sending to
whatever number was on page one.

I'd like to submit my pages to the RightFax printer (HP Laserjet4
generic driver) as separate print jobs.

Questions:

* Can Access be coded to split up a report so that each page is sent
to the printer as a separate print job? Can Word? Can Windows 2000?

* Or, can a 500 page report be split into 500 reports
programmatically?

My rudimentary VB skills are not up to the task - I'm at beginner
level.

Thank you for any help

Matt

 

[Steve Schapel]

Matt,

Assuming your report recipients are identified by a RecipientID field,
and that the report is based on a query named YourQuery, you could use
code along these lines...

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT RecipientID FROM YourQuery")
With rst
Do Until .EOF
DoCmd.OpenReport "YourReport", , , "[RecipientID]=" & ![RecipientID]
.MoveNext
Loop
.Close
End With
Set rst = Nothing

 

[Mr Matt]

Thank you Steve, I'll give it a go