General information
Category:
Coding, syntax & commands
Dear Kile,
Let me send u an exerpt from VFUG newsletter concerning winfax.
*********
In essence, WinFaxPro is used as a printer. WinFaxPro is evoked from
within VFP6 to fax (print) a report. The ***start here:*** is where the
WinFaxPro set up begins. This It is extracted from a PRG file that is
called on a Command button click . ***start faxing here** * is in the
middle of a loop that sends a report to 1 to 12 sites depending upon the
logic before ***start faxing here**. The fax numbers and recipient
information are fields in a table. The timing loop is used to give the
modem time to clear before the next fax is sent.
****************************************************************************
********************
* DO WHILE .T. &&..... inside the body of reporting program
**** start faxing here
faxNUM = TRIM(faxno) && faxno is field name
fax2name = TRIM(person) && person is a field name
************ NEED TIME FOR FAX TO CLEAR
* wait timeout 1.5
ts1 = SECONDS()
ts2 = SECONDS()
DO WHILE .T.
ts2 = SECONDS()
IF ts2-ts1 > 2
EXIT
ENDIF
ENDDO
faxtime = time()
faxdate = date()
FaxChan =DDEINITIATE("FAXMNG32","CONTROL")
retvar=DDEEXECUTE(FaxChan,"GO Idle")
retvar=DDEPOKE(FaxChan,"sendfax",'showsendscreen("0")')
retvar=DDEPOKE(FaxChan,"sendfax",'recipient("&faxnUM","&faxtime","&faxdate",
"&fax2name")')
retvar=DDEPOKE(FaxChan,"Sendfax",'resolution("HIGH")' )
***
REPORT FORM BOOKING1 TO PRINT NOCONSOLE &&===========>
***
retvar=DDEEXECUTE(FaxChan,"GO Active")
retvar=DDETERMINATE(FaxChan)
* *** * end faxing here
* test for exit or for next fax
*ENDDO
regards,
Albert
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only