Thanks for all the help and advice but for whatever reason I can't seem to
get either of the methods in the links below to work for me.
I am running vfp9 and here is the code I'm using now, which does work.
As you can see Crystal Reports is involved with vfp and Word and the results
are perfect so I'll stay with this for a while longer.
Jim
***stfrmindex.m_alpha()
with thisform.stcntindex.stoptall
do case
case .option1.value = 1
mtype = " type_horse <> ' ' "
case .option2.value = 1
mtype = " type_horse <> 'Y' "
case .option3.value = 1
mtype = " type_horse = 'Y' "
otherwise
mtype = " type_horse <> ' ' "
endcase
endwith
local lc_dir, lc_dbf, lc_rpt, lc_word, odatabase, otables, otable
set decimals to 0
morder = " name "
thisform.r_crystalteport = "cr_alpha.rpt"
lc_word = "cr_indexalpha.doc"
lc_dir = sys(5) + curdir()
lc_dbf = lc_dir + sys(3) + ".dbf"
lc_rpt = sys(5) + "\sales\stndbred\crystalreports\"
select ;
val(hip_no) as hip_no, ;
name, ;
hbstb as barn, ;
hbrw as row, ;
hbstl as stall, ;
SUBSTR(name,1,1) as groupname ;
from stnhorse ;
where ;
type_horse <> "Y" ;
order by name ;
into cursor sys(2015)
copy to &lc_dbf type fox2x
use
thisform.crxapplication = createobject("CrystalRuntime.Application")
thisform.crxreport = thisform.crxapplication.openreport(lc_rpt +
thisform.r_crystalteport)
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)
#define wdtableaderdots 1
#define wdaligntabright 1
#define wdaligntableft 0
with oword.selection.pagesetup
.bottommargin = 2.10 * autoinchestopoints
.topmargin = .50 * autoinchestopoints
.leftmargin = 1.50 * autoinchestopoints
.rightmargin = 1.25 * autoinchestopoints
endwith
lnpointsfirsttab = oword.application.inchestopoints( 2.68 )
lnpointssecondtab = oword.application.inchestopoints( 3.96 )
with oword.selection
.wholestory
.paragraphformat.tabstops.add(lnpointsfirsttab, wdaligntabright,
wdtableaderdots)
.paragraphformat.tabstops.add(lnpointssecondtab, wdaligntableft,
wdtableaderdots)
.font.name = "Arial"
.font.size = 10
endwith
set decimals to
thisform.release
James E. Harvey
Corresponding Officer/M.I.S.
Hanover Shoe Farms, Inc.
www.hanoverpa.com
[EMAIL PROTECTED]
717-637-8931
fax: 717-637-6766
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf
Of Ted Roche
Sent: Monday, August 21, 2006 4:02 PM
To: [email protected]
Subject: Re: Append ellipsis in report column
On 8/21/06, James E. Harvey <[EMAIL PROTECTED]> wrote:
> I meant tab leader dots, not "ellipsis", sorry.
>
Not easy, since you run into foxel issues, but you want to do something
like:
replicate(".", LengthOfBox - textlength(yourtext)) + yourText
Where LengthOfBox and textlength need to be calculated based on the
specific font and font size.
Googling "leader dots FoxPro report" yields:
http://msdn.microsoft.com/library/en-us/dnfoxgen9/html/VFP9Reports2.asp?fram
e=true
if you're in VFP 9 and
http://www.hentzenwerke.com/catalog/vfprwfaq.htm
if you're not.
--
Ted "The Answers Are Out There" Roche
Ted Roche & Associates, LLC
http://www.tedroche.com
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
