ACG Soft's Print Batch Manager (PBM) Add-In and code library can provide Microsoft Access applications enhanced capabilities for batch printing jobs and faxing and fax broadcasting using Symantec's WinFax®  Pro (all versions).  Versions of the Add-In are available for Access 97, 2000 and 2002 (Xp).

NOTE: Windows Xp and Winfax Version 10 Users:  The ACG Print Batch Manager Add In will function with the following versions of Winfax 10 when run on Windows Xp: 10.0, 10.01, 10.03 and Winfax Basic 10 included with Symantec System Works Professional.  Due to issues acknowledged by Symantec with version 10.02 of Winfax Pro, the ACG Soft Print Batch Manager Add In will not function properly on a Windows Xp machine with version 10.02. Please upgrade to Winfax Pro 10.03

Report Routing and Multiple Printer Set Up

Using Print Batch Manager (PBM), each report in the application can set up to be printed to multiple printers for report routing; multiple reports can be printed to multiple printers in one batch. For an example :

Your application may be required to print and distribute a single report to different locations during a single report run. Using PBM you could print to all the printers in one batch print job. Like the following:

 

Location	Printer
Local Printer	HP LaserJet III
Marketing Department	Textronix Phaser III
Finance Department	Lexmark Optra R
Regional Sales Office	WinFax Pro

In addition to changing printers, with each report printed you can specify a filter for the report by printing location.

Faxing and Fax Broadcasting

PBM provides an easy to use set of functions and interface for faxing and fax broadcasting Access reports using WinFax® Pro. With PBM you can:

Pre-established fax distribution batches for multiple Access reports.

Broadcast a single report to multiple different recipients, specifying a filter for the report to select only those records appropriate for the recipient.

Specify to fax the reports at a specific time so that you can lower telecom charges.

PBM will automatically switch to the WinFax printer for the fax job.

Use versions 4 through 10.x of WinFax Pro.

Sending a Fax Broadcast Uses Just Two Functions

Here's an example:

Sub SendSalesInfo()

     Dim Db as Database, qryTemp as QueryDef, rsSalesContacts as Recordset
     Dim strSQL as String
     Dim wOk as Integer, i as Integer, RecNum as Integer, CurFax as Integer

     Set Db = CurrentDB()
     Set qryTemp as Db.CreateQueryDef("") 
     strSQL = "Select * FROM tbl_Inquiries WHERE ([tbl_Inquiries].[faxsent] = 0);"
     qryTemp.SQL = strSQL
     Set  rsSalesContacts = qryTemp.OpenRecordset(DB_OPEN_SNAPSHOT)
     rsSalesContacts.MoveLast
     RecNum = rsSalesContacts.RecordCount
     rsSalesContacts.MoveFirst

     If RecNum =0 the Exit Function
     For i = 0 to RecNum -1

     'Test for the last fax recipient, if not then just send the recipient info
      If CurFax <> RecNum - 1 Then
          wOk = atsw_FaxRpt(Null, Null, Null, SalesContacts.FaxNumber, Null, _
                SalesContacts.Name, SalesContacts.Company, Chr$(32))
          CurFax = CurFax + 1
          rsSalesContacts.MoveNext 
      Else
           'This is the last fax recipient so set the report to send to all recipients.
           wOk = atsw_FaxRpt(MySalesInfoReport, Null, Null, SalesContacts.FaxNumber, _
                 Null, SalesContacts.Name, SalesContacts.Company, Chr$(32))
      End If
      Next i

      TempQry.Close
      Db.Close
      'release the faxes
      wOk = atsw_EndFaxBatch(True)
End Sub