Simples Drucken einer RicheditBox

[skyquaker]

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, 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

[chaosben]

Zitat von Die Delphi-Hilfe © Borland:

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:
memo1{warum auch immer :)}.print('Titel des Dokuments'); und mehr nicht.