If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Faxing a report.
I have the following code that I began to work on last week and got
inturupted and now I have lost where i had found the code and cannot get it to work. Option Explicit Public strInvoiceWhere As String '************************************************* *************** 'This function will walk through the Customers table and fax the 'Invoice report that is filtered by the CustomerID field by using 'MS Fax through the MS Access SendObject. ' 'This function assumes that the Invoice report has the default printer 'set to MS Fax, and that the MS Fax driver is installed correctly. '************************************************* *************** Function FaxPurchaseOrder() Dim ragonew As DAO.Database Dim rstPOSuppliers As DAO.Recordset Set ragonew = CurrentDb() Set rstPOSuppliers = ragonew.OpenRecordset("POSuppliers", _ dbOpenDynaset) If MsgBox("Do you want to fax Purchase Order" & Chr(13) & _ "to all customers who are using Microsoft Fax?", 4) = 6 Then With rstCustomers Do Until .EOF 'Create the Invoice report Filter 'that is used by the Report_Open event. strInvoiceWhere = "[SupplierID] = '" & ![SupplierID] & "'" DoCmd.SendObject acReport, "Purchase Orders", acFormatRTF, _ "[FaxNumber: " & ![FaxNumber] & "]", , , , , False .MoveNext Loop End With End If rstPOSuppliers.Close End Function |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Reporting subreport total on main report | BobV | Setting Up & Running Reports | 22 | November 1st, 2005 03:19 AM |
To Sharkbyte and all: Calculate a total values in group level | Ally | General Discussion | 6 | June 13th, 2005 08:16 PM |
Set up a report using more than one query | jbeck2010 | Database Design | 6 | February 12th, 2005 06:59 AM |
Help!! I'm running around in circles! | CathyA | New Users | 19 | December 12th, 2004 07:50 PM |
Save Report With CreateReport Coding Issue | Jeff Conrad | Setting Up & Running Reports | 8 | July 12th, 2004 08:39 AM |