Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Faxing VFP reports
Message
From
14/05/2008 12:39:10
 
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 7 SP1
Miscellaneous
Thread ID:
01316972
Message ID:
01317053
Views:
22
Thanks Sergey,
I'm doing this with XP. Works great but not on w2k.
Are you saying that "faxserver.faxserver" will work for w2k?
And what about Vista?

pname = set("printer",3) && Save current printer
tmpFaxFile = FULLPATH(CURDIR()) + sys(2015)+".TIF" && temporary workfile for fax (.TIF)
oFax = CreateObject("FAXCOMEX.FaxServer") && instantiate FAXCOMEX class server
oFax.connect(eFaxSoftW) && Connect \\TERM-003

SET PRINTER TO NAME eFaxSoftW +"\Fax" && \Fax
Report Form anyreport TO FILE (tmpFaxFile) Noconsole for mark="Y"

oFaxDoc = CreateObject("FAXCOMEX.FaxDocument") && instantiate object document
oFaxDoc.Body = (tmpFaxFile) && .Body is the report

faxnum = AdjFaxNos(faxnum) && adjust fax numbers
oFaxDoc.DocumentName = "Wizebuys Log Verification"
oFaxDoc.Recipients.Add (faxnum)
oFaxDoc.Sender.Name = gluser
oFaxDoc.Sender.Email = ""
oFaxDoc.Sender.FaxNumber = ""

oFaxDoc.ConnectedSubmit(oFax) && Fax it out
=MESSAGEBOX("Sending Fax ...",64,"Faxserver",4)

oFax.Disconnect() && Disconnect oFax object
release oFax, oFaxDoc && Cleanup
delete file (tmpFaxFile) && Delete working file
set printer to name (pname) && Restore printer
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform