Printing RTF from memo

We have table with memo field. In this memo field we have rich text format
file. How can we print this field on report. We can extract field into file
on disk and then use append general like in following code:

= StrToFile(Table.mField,'\temp\rtf\aaa.rtf',0)

Select rtf_file

If Reccount() <= 0

Append Blank

EndIf

Append General gField from '\temp\rtf\aaa.rtf'class
"richtext.richtextctrl.1"

Is there any better and faster way to do this?

Thanks,

Eric
Wed Oct 20 11:41:03 CDT 2004

You can use the SelPrint() method of the rich text active x control. If you
have to print it as a FRX report, then the only way I know is the APPEND
GENERAL method you're already using.
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts - Powered By VFP8