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

[HolgerX]

Hmm..

Also, ich will dich nicht ärgern, aber ich sehe in deiner Procedure kein Richedit!

Du verwendest dort ein Memo, welches deine Formatierungen nicht als Text-Zeile kennt!

Mal ein paar (google) Links:

http://stackoverflow.com/questions/2...-of-a-richedit
http://www.delphipraxis.net/139544-r...t-drucken.html

[jacky213]

Das Memo wird für etwas ganz anderes verwendet. Die Komponennte mit dem
name RE ist das RichEdit. Ich schau mir mal die Links an. Danke schonmal dafür

[nahpets]

Die Delphi-7-Hilfe sagt:

Zitat:

Print (Methode von TCustomRichEdit)

Die Methode Print formatiert und druckt den Inhalt des RTF-Eingabefeldes.

Delphi-Syntax:

procedure Print(const Caption: string); virtual;

C++ Syntax:

virtual void __fastcall Print(const AnsiString Caption);

Beschreibung

Mithilfe von Print kann der Inhalt eines RTF-Eingabefeldes gedruckt werden. Der Parameter Caption gibt dabei den Titel an, der im Druckmanager und auf Netzwerk-Titelseiten angezeigt wird.