>I have a program that sends to the printer a cover page and a quote.
>All is generated through VFP and it is run as 2 separate report forms.
>The output is generated through a batch process that runs this combination for >many clients. I am looking to add FAXing as an output option.
>The first problem is that I need to send both in one dial up. The second >problem is that I have no experience in this area.
>Does anyone know of any product or method that might be an option to this >situation?
>Any advice would be appreciated.

WinFax Pro 8.0.. Nice and easy DDE functions.

This is their code sample from the help file:

** This program uses the stock variables
** “FaxChan” and “retvar”.
** NOTE: FoxPro requires you to use different
** types of quotation marks, as shown below.
** (...'"showsendscreen("0")')
** ==================================

** Set the WinFax state to CONTROL mode.

FaxChan = DDEInitiate("FAXMNG32","CONTROL")

** Take the modem offline.

retvar=DDEExecute(FaxChan,"GoIdle")

** Set the WinFax state to TRANSMIT mode.

FaxChan = DDEInitiate("FAXMNG32","TRANSMIT")

** Set up the fax including attachments and
** cover pages.
** setcoverpage

retvar=DDEPoke(FaxChan,"sendfax", 'setcoverpage("C:\WINFAX\DATA\9886000.CVR")')

**fillcoverpage

retvar=DDEPoke(FaxChan,"sendfax", 'fillcoverpage("C:\WINFAX\DATA\TEMP1.TXT")')

**attach

retvar=DDEPoke(FaxChan,"sendfax", 'attach(“C:\WINFAX\DATA\1605002.FXR”)')

** Set up the recipient information.
** NOTE: Recipient data is sensitive
** to position and to separators. However,
** you do not need to enter parameters after
** the last required one.

retvar=DDEPoke(FaxChan,"sendfax",
'recipient("011444161234","11:11:11","12/12/95","Bob Dobbs","Delta Creations","Annual Budget","Budget","20321","Fax")')

** Set the fax resolution.

retvar=DDEPoke(FaxChan,"Sendfax",'resolution("HIGH")')

** or

**retvar=DDEPoke(FaxChan,"Sendfax",'resolution("LOW")')

** Turn the modem back on.

retvar=DDEExecute(FaxChan,"GoActive")

** Use this line to bypass the WinFax PRO Send dialog.
** Change the "0" to "1" to show the Send
** dialog (this forces a “manual” send).

retvar=DDEPoke(FaxChan,"sendfax",'showsendscreen("0")')

** Send the fax.

retvar=DDEPoke(FaxChan,"sendfax","SendFaxUI")

** Close the DDE channel to release
** the resource.

retvar=DDETerminate(FaxChan)


---
Erik Niese-Petersen