Richedit samt layout drucken

[jacky213]

Hallo,

ich habe ein Richedit mit Formatiertem Text und möchte diesen
auch so wie er ist drucken. Leider verwirft Delphi beim drucken
das gesamte Layout. Mein Code zum Drucken sieht wie folgt aus.

Delphi-Quellcode:

Procedure PrepairAndPrint (mem:TMemo; pnummer:integer);
var
line: Integer;
PrintText: TextFile;
begin
    PrepairRE(mem);
    Printer.PrinterIndex := pnummer;
    Printer.NewInstance;
    AssignPrn(PrintText);
    Rewrite(PrintText);
    try
      Printer.Canvas.Font := RE.Font;
      for Line := 0 to RE.Lines.Count - 1 do
      Writeln(PrintText,  RE.Lines[Line]);
    finally
      CloseFile(PrintText);
    end;
 RE.Clear;
end;

Danke für die Hilfe