Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Reports / Printing / October 2004

Tip: Looking for answers? Try searching our database.

Turn a 500 page print job into 500 print jobs?

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Mr Matt - 08 Oct 2004 16:35 GMT
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 - 09 Oct 2004 09:59 GMT
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

Signature

Steve Schapel, Microsoft Access MVP

> Hello,
>
[quoted text clipped - 28 lines]
>
> Matt
Mr Matt - 10 Oct 2004 19:03 GMT
Thank you Steve, I'll give it a go
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.