Here's my code:
- Code: Select all
PrintPreview1.BeginDoc;
begin
r.Left := 250;
r.Right := 900;
r.Top := 100;
r.Bottom := 5000;
PrintPreview1.Canvas.TextRect(r, r.Left, r.Top, Long Text);
end;
PrintPreview1.EndDoc;
Long Text is an memo field from database.
Thanks in Advance.