Delphi-PRAXiS - Delphi Simples Drucken einer RicheditBox

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Simples Drucken einer RicheditBox (https://www.delphipraxis.net/79212-simples-drucken-einer-richeditbox.html)

Simples Drucken einer RicheditBox

Ich nutzte Delphi7 Professional und stehe vor einem Problem.
Ich habe einen kleinenes LAN CLient und Server Chat Programm geschrieben, welches auch begrenzt funktioniert.

Wenn das Programm den Befehl PRINT vom anderen Computer erhält, dann soll es die vorangegangenen Nachrichten, die in einer RichEditBox stehen ausdrucken.

Delphi-Quellcode:

			if t = 'print' then

begin

PrinterDialog1.Execute;

Printer.BeginDoc;

for x:= 0 to memo1.Lines.Count do //Schleife

memo1.Print(memo1.lines[x]);         //Druckt jede Zeile

Printer.EndDoc;

end;

So hab ich das mal geschreiben.
Leider funktioniert es nicht, :coder2: der Drucker verarbeitet zwar etwas, wenn das Programm geschlossen wird, es erscheint jedoch nur ein leeres Blatt Papier.

Für Hilfe währe ich dankbar :-D

Re: Simples Drucken einer RicheditBox

Zitat:

TCustomRichEdit.Print Methode

Formatiert und druckt den Inhalt des RTF-Eingabefeldes.

Klasse
TCustomRichEdit

Syntax
procedure Print(const Caption: string); virtual;

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.

Also solltes es so aussehen:

Delphi-Quellcode:

memo1{warum auch immer :)}.print('Titel des Dokuments');

und mehr nicht.