Hi Everyone,
I thought I would start a new thread regarding a problem I'm having with doing block justification in a foxpro report based on Mike Gagnon's excellent method of using RTF. (See Thread ID 1021253). I pasted his code below as well.
My problem is that this works on one computer running XP but not on a different computer running XP. I've made sure that the RICHTX32.OCX is the same on both and is registered and I'm running VFP 7 and VFP 8 on both and am running his sample code through each and on one computer justification is working beatifully and on the other it isn't
If anyone has any thoughts or ideas I would appreciate it.
Thanks!
********************************************************************
Mike Gagnon's Code
Here is an example.
1. Create a blank report, put a textbox on it and stretch it out as much as you need. And save it as rtfdemo (in this case)
2. Use the following code.
CLEAR ALL
CLOSE DATABASES all
LOCAL lcStr
lcstr = "Note that there is a limit of 32 characters total for the sum of text"+;
"before and text after for simple numbering. Multilevel numbering has a limit"+;
"of 64 characters total for the sum of all levels.NOTE: The file must have a"+;
".RTF extension to work properly."+;
"Note that there is a limit of 32 characters total for the sum of text"+;
"before and text after for simple numbering. Multilevel numbering has a limit"+;
"of 64 characters total for the sum of all levels.NOTE: The file must have a"+;
".RTF extension to work properly."
CREATE cursor ctext (lctext m,gText g)
INSERT INTO ctext (lctext) VALUES (lcStr)
_rtfFile = "c:\"+SYS(3)+".rtf"
SCAN
SET TEXTMERGE TO &_rtfFile NOSHOW
SET TEXTMERGE ON
\\{\rtf1\ansi\qj <
>}
SET TEXTMERGE TO
APPEND GENERAL gText FROM &_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1"
ENDSCAN
REPORT FORM rtfdemo PREVIEW NOCONSOLE
I wrote a piece on the subject (In French) that explain this, you can find it here:
http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000131
**************************************************************************
