>Crystal exports to an older version of Word. Sounds like you need to install the conversion template for Word.
>

Hello Craig,

Thanks for answering.

I'm not familiar with the converion template you mention.

How would I go about finding out how to do this.?

Here's the code I'm using:

***hsfrmmaresbooked.m_toword()
wait window at 25,50 "Please be patient, creating report..." nowait
*thisform.lockscreen = .t.
local lc_word, lc_dbf, lc_crreport
lc_dbf = fullpath("") + substr(sys(2015),3,10) + ".dbf"
lc_word = fullpath("") + substr(sys(2015),3,10) + ".doc"
lc_crreport = sys(5) + "\foxdat\crystalreports\cr_marebook.rpt"
*********************
with thisform.hscntmaresbooked
with .hsoptpage
if .option1.value = 1
mreport = " hsrpmarebooknewpage "
else
mreport = " hsrpmarebook "
endif
endwith
*********************
with .hsoptcategory
do case
case .option1.value = 1
mcategory = " category <> ' ' "
case .option2.value = 1
mcategory = " category = 'F' "
case option3.value = 1
mcategory = " category = 'O' "
otherwise
mcategory = " category <> ' ' "
endcase
endwith
*********************
with .hsoptorder
do case
case .option1.value = 1
morder = " BOOKED_TO,NAME "
case .option2.value = 1
morder = " BOOKED_TO, accounts.lname_comp, accounts.fname, name "
case .option3.value = 1
morder = " name "
case .option4.value = 1
morder = " accountys.lname_comp, accounts.fname, name "
case .option5.value = 1
morder = " syn_mem.lname, syn_mem.fname, name "
otherwise
morder = " name "
endcase
endwith
**************************
if .hscmbstallions.value <> " "
mbookedto = " booked_to = [" + alltrim(.hscmbstallions.value ) + "] "
else
mbookedto = " ! inlist(booked_to,'CANCEL','UNKNOW','RETIRE','SELL','DELETE',' ') "
endif
**************************
myear = " yr_bred = " + str(.hslstyear.value)
**************************
select ;
master.yr_foaled, ;
master.p_b, ;
master.last_bred, ;
master.category, ;
master.type, ;
master.p_s_c, ;
master.acct_no as acct_no, ;
master.name, ;
master.booked_to, ;
master.yr_bred, ;
master.syn_acct as syn_acct, ;
master.age_rec, ;
master.life_earn, ;
master.sire1, ;
master.dam1, ;
iif(accounts.fname = " ",alltrim(accounts.lname_comp),alltrim(accounts.fname) + ;
" " + alltrim(accounts.lname_comp)) as owner, ;
iif(syn_mem.fname = " ",alltrim(syn_mem.lname),alltrim(syn_mem.fname) + ;
" " + alltrim(syn_mem.lname)) as synmember ;
from ;
master ;
left outer join ;
accounts ;
on master.acct_no = accounts.acct_no ;
left outer join ;
syn_mem ;
on master.syn_acct = syn_mem.syn_acct ;
where ;
&mbookedto ;
and ;
&mcategory ;
and ;
&myear ;
and ;
type = "B" ;
order by ;
&morder ;
into cursor sys(2015) noconsole
copy to &lc_dbf type fox2x
with thisform
.r_crystalapp = createobject("crystalruntime.application")
.r_crreport = .r_crystalapp.openreport(lc_crreport)
.odatabase = .r_crreport.database
.otables = .odatabase.tables
.otable = .otables.item(1)
.otable.location = lc_dbf
.r_crreportoptions = .r_crreport.exportoptions
with .r_crreportoptions
.formattype = (14)
.destinationtype = (1)
.diskfilename = (lc_word)
endwith
.r_crreport.export(.f.)
.otable = " "
.otables = " "
.odatabase = " "
.r_crreport = " "
.r_crystalapp = " "
endwith
erase(lc_dbf)
oword = createobject("word.application")
oword.visible = .t.
oword.documents.open(lc_word)
oword.selection.wholestory
#define autoinchestopoint 72
with oword.selection.pagesetup
.orientation = 1
endwith
thisform.refresh
messagebox("You may now edit your document." + chr(13) + "Please do a 'SAVE AS' in ;
'Word' before continuing, otherwise your file will not be saved","'Save As' and Close 'Word'")
on error do errtrap with error()
oword.documents.close(0)
oword.application.quit()
erase(lc_word)
on error
with .hsoptcategory
.option1.value = 0
.option2.value = 0
.option3.value = 0
endwith
with .hsoptorder
.option1.value = 0
.option2.value = 0
.option3.value = 0
.option4.value = 0
.option5.value = 0
endwith
with .hsoptdestination
.option1.value = 0
.option2.value = 0
.option3.value = 0
endwith
with .hsoptpage
.option1.value = 0
.option2.value = 0
endwith
.hschknotbred.value = 0
.hslstyear.value = 0
wait clear
* thisform.lockscreen = .f.
endwith
thisform.refresh