asked on

How to print a trichEdit with quickReport

Hi,
I want to print the containt of a trichtext in a tqrrichEdit.
The only way I found to make it work is the following :

beforeEdit.Lines.SaveToFile('Before.rtf');
backEdit.Lines.SaveToFile('Behind.rtf');
form2.QRbackEdit.Lines.LoadFromFile('Behind.rtf');
form2.QRbeforeEdit.Lines.LoadFromFile('Before.rtf');
form2.jacket.Print;

The problem is that the text seems to be stretched even with true type
fonts.

I know that I have to link the parentRichEdit property to my trichedit. But if
I do so, the text prints very small, like when you ask a trichedit to print.

At the printpreview the text looks like it should, but I know it's normal :
96 dpi on the screen and 600dpi on the printer.

So, how do I properly print the contain of a trichedit with the help of a
tqrrichedit. What's the right and working method ?
Thanks for your help.

Greedy

This is how I do it...This is for if the RTF data was stored in a database but if you have it stored in another string then create the stream off that instead. The only other thing I do is set AutoStretch to True and set the Height to 20...but that's just normal stuff.

var
MyStream : TStringStream;

begin
MyStream := TStringStream.Create(Table1.FieldByName('YourFieldHere').AsString + #13 + #10);
QRRichText1.Lines.Clear;
QRRichText1.Lines.LoadFromStream(MyStream);
MyStream.Free;
end;

ASKER CERTIFIED SOLUTION

Jacco

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial