Fax Report Using VFP9

As resolved in "VFP Fax Integration" thread, I have been using Jaime's method to fax Reports with graphic/image and it works very well for VFP6.

set printer to name "Fax"
report form myReport to file "myfile.tif" noconsole

Recently I compiled and ran my program using VFP9, I got the following Program Error:

OLE IDispatch exception code 0 from FaxComEx.FaxDocument.1: Operation failed...

I found out my VFP9 program will work without error if I select Fax device in 'Printer and Faxes' window and 'Set as Default Printer' before running it (I don't need to do this with VFP6). But it is not a good solution.

Does anyone know how to best resolve the problem

Thanks,

Emery

I tried that, but it doesn't help.

I was thinking maybe I have to figure out a way to programmatically set/reset Fax as Default Printer before/after executing the commands. Does anyone know how to do that under VFP9

Thanks,

Emery

That sequence has always been in my program. It works for VFP6, but not for VFP9.

.....

myFaxDocument = createobject("FaxComEx.FaxDocument")
myFaxSender = myFaxDocument.Sender
myFaxSender.LoadDefaultSender()
myFaxDocument.Subject = "Test"
myFaxDocument.Recipients.Add(faxnumb, name)

SET PRINTER TO NAME (faxPtrName)

tmpFaxFile = homedir + "\tmpMSFax.tif"
REPORT FORM (fform) TO FILE (tmpFaxFile) noconsole

myFaxDocument.Body = (faxFile)

myFaxDocument.Submit(ServerName)

RELEASE myFaxDocument
SET PRINTER TO DEFAULT

......

Under VFP9, if I leave the default printer as HP Laser Jet, the REPORT FORM rendered it as a PCL file which then failed when Submit. If I manually set FAX as Default Printer before executing the program, the REPORT FORM will generate tif format file correctly and Submit successfully.

So I am wondering is there other programmatically way to replace the manually step of setting Fax as default printer

Emery

Yes, the Fax service was installed and started properly. I can use GETPRINTER() to select it. And that is how it works perfectly under VFP6, but just not under VFP9. I am wondering if it is a bug for VFP9 and try to walk around.

I'll try your suggestion of windows script SetDefaultPrinter if I got the chance.

Thanks,

Emery

Using Win32 GetDefaultPrinter and SetDefaultPrinter functions solved my problem. Thanks dni.

Emery