Albert -

Thanks for digging deeper into this for me. We have already modified our reports so that all are now portrait (three of the reports that needed to be faxed were landscape).

With all reports being portrait, I can now just print, calling the select printer dialog, and choose the winfax printer. The only reason I was going through all the hassel of printing a report to a file, then converting it to a winfax document, and attaching it to a winfax send was because the winfax printer driver won't recognize landscape documents unless the user explicitly (and manually) clicks on the landscape buton.

The conversion and attachment process was taking much too long for this application too. In the long run, I think I'll be better off this way, until they provide a winfax printer driver that recognizes landscape documents.

I'll file this code with my example for later reference though.

Thanks Albert!


>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