Delphi Drucken eines Rich Edit oder Memo

[kein pc wissen]

Hallo,

Ich möchte gerne in Delphi ein Programm schreiben, bei dem man am Ende ein Bericht hat der gespeichert und gedruckt werden kann.

Ich habe mich schlau gemacht und herausgefunden, dass das Drucken mit dem Rich Edit am einfachsten geht.

Nun zum Problem:

Der Befehl zum Drucken wurde mit einem Printdialog verbunden um den richtigen Drucker zu suchen. (Befehl ist in einem Button)

Es Passiert Folgendes:

Button angeklickt => Dialog(Drucker wechseln) öffnet sich => Drucker ausgewählt und auf Drucken geklickt => Datei in der Warteschlange, aber kein Ausdruck

Der eingegebene Befehl war:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if printdialog1.Execute then
  begin
    richedit1.Print('Delphi_RichEdit');
  end;
end;

Wo liegt der Fehler?

Vielen Dank für eure Antworten