Hello Everyone,

Below is code in a method that creates a report using Crystal Reports and exports it to Word.

I'd like to set the tabs properties as well but can't find documentation for the settings in the MS Office Auto w/vfp book.

I mainly want to add "leaders" to the tabs so the document would look something like this:

Name Hip No.

name of hores..............123
second name of horse.......124
shorter name...............125
name.......................126

Can anyone direct me to where I can get these properties?

TIA

***stfrmindex.m_indexbydam()
local lc_dir, lc_dbf, lc_rpt, lc_word, odatabase, otables, otable
lc_dir = sys(5) + curdir()
lc_dbf = lc_dir + sys(3) + ".dbf"
lc_rpt = sys(5) + "\sales\garden\crystalreports\"
lc_word = "cr_indexbydam.doc"
select dam1, val(hip_no) as hip_no ;
from stnhorse ;
order by dam1 ;
into CURSOR SYS(2015)
COPY TO &LC_DBF TYPE FOX2X
use
thisform.crxapplication = createobject("CrystalRuntime.Application")
thisform.crxreport = thisform.crxapplication.openreport(lc_rpt + "cr_indexbydam.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 + lc_word)
endwith
thisform.crxreport.export(.f.)
otable = " "
otables = " "
odatabases = " "
thisform.crxreport = " "
thisform.crxapplication = " "
erase(lc_dbf)
oword = createobject("word.application")
oword.visible = .t.
mcrdoc = (lc_dir + lc_word)
oword.documents.open(mcrdoc)
********
*
* set up columns
*
*******
With oword.Selection.PageSetup.TextColumns
.SetCount(2)
.EvenlySpaced = .T.
.LineBetween = .F.
.Width = oword.InchesToPoints(3.83)
.Spacing = oword.InchesToPoints(0.5)
EndWith
*******
*
* select entire document
*
*********
OWORD.Selection.WholeStory
**********
*
* need code to set
* 1. tab stop position (2.67")
* 2. Alignment (left)
* 3. Leader (#2 .........)
*
*
*********
thisform.release