Hi Craig,

With help from you and other friends I've gotten a bit further in my quest to use Crystal Reports to create a vfp report to send to word, with all it's formatted text.

Below is the method which accomplishes this.

Now I'm setting up users on the LAN and am running into problems with some pc's.

Some are working okay, others are giving me "Physical database not found" error messages.

I've made sure the ODBC DSN is installed correctly on each computer, copied all the files into the local c:\winnt\crystal\ folder and, copied and regsvr32'd the craxdrt.dll.

There doesn't seem to be any consistency as far as the pc's OS, some are Win2000, some Win98, both working and not working.

Do you see what I'm missing?



********** stfrmtravel.m_word()
local lc_dir, lc_dbf
lc_dir = sys(5) + curdir()
lc_dbf = lc_dir + sys(3) + ".dbf"
select stnhorse.cons_no as cons_no, ;
name, ;
color, ;
sex, ;
date_foal, ;
sire1, ;
dam1, ;
iif(stnconsi.fname = " ",alltrim(stnconsi.lname),alltrim(stnconsi.fname) + " " + ;
alltrim(stnconsi.lname)) as consignor ;
from stnhorse, stnconsi ;
where stnhorse.cons_no = thisform.Sttxtcon.value and ;
stnhorse.cons_no = stnconsi.cons_no ;
order by stnhorse.cons_no, sire1, dam1 ;
into table (lc_dbf) ;
nofilter
use
local odatabase, otables, otable
thisform.crxapplication = createobject("CrystalRuntime.Application")
thisform.crxreport = thisform.crxapplication.openreport(lc_dir + "mmbfive.rpt")
odatabase = thisform.crxreport.database
otables = odatabase.tables
otable = otables.item(1)
otable.location = lc_dbf
thisform.crxexportoptions = thisform.crxreport.exportoptions
with thisform.crxexportoptions
.formattype = (14)
.destinationtype = (1)
.diskfilename = (lc_dir + "gmreport.doc")
endwith
thisform.crxreport.export(.f.)
otable = " "
otables = " "
odatabases = " "
thisform.crxreport = " "
thisform.crxapplication = " "
erase(lc_dbf)