Check this put
http://msdn.microsoft.com/
Sub SendDocByFax()
Dim FaxServer As Object
Dim FaxDoc As Object
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.Fa
'...and connect to it - no empty name allowed
FaxServer.Connect ("mycomputer")
'Create document
Set FaxDoc = FaxServer.CreateDocument("
FaxDoc.FaxNumber = "+99 (99) 999999"
FaxDoc.RecipientName = "John Doe"
FaxDoc.Send
Set FaxDoc = Nothing
FaxServer.Disconnect
Set FaxServer = Nothing
End Sub
Main Topics
Browse All Topics





by: 1WilliamPosted on 2007-01-18 at 02:56:20ID: 18339577
I suspect you will want to do Print Dev code to change your default printer to the FAX program. take a look here: /reports/r pt0011.htm
http://www.mvps.org/access
This is not for the faint of heart. Basically, it reads from the PC, all installed printers, stores the existing default printer, changes the default printer to be the FAX printer.
The report should be set to use the default printer. In code, your do a docmd to print the report. You will also have to access the API for the FAX printer to be able to send the telephone number and associated data.
Bottom line, is this can be fairly tricky to do and way above what can be answered here. I do something like this to create PDF reports and email them in batches.