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