Problem beim Ausdrucken

[Power-Poler]

Langsam könnte ich gegen die Wand rennen, irgenwas ist immer

Folgendes Problem habe ich diesesmal:
Ich habe ein RichText feld, mit Text drin:
der ungefähr so ausieht

Code:

Name                       Wort  
Name2              Wort2   Wort3
Name3
Name4

also, wie man hier sieht, Wort3 unter Wort steht.
Rauskommen tut es aber so:

Code:

Name         Wort
Name2                Wort2   Wort3
Name3
Name4

Also ganz anderes vom aufbau her.

der code den ich zum drucken nehme:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
if printdialog1.execute
then
richedit1.print('Name');
end;

Ich war der meinung, das dieser code den RichText exakt ausdruckt, so wie er auf dem Bilschim steht, aber irgenwie wärden Leerzeichen vergessen, oder sonst was, kann auch daran liegen, das die Schrieftart nicht übernohmen wird. Diese ist nämlich: "Courier", und bei dieser hat ja jeder Buchstabe und jedes zeichen die gleiche grösse, aber auf dem Blatt widerrum nicht. Kann ich bei dieser art von Druckcode noch irgenwo sagen, das er Courier nehmen soll? Probiert habe ich schon mit:

Delphi-Quellcode:

richedit1.print('Name');
Printer.Canvas.Font.Name:='Courier';
und
Printer.Canvas.Font.Name:='Courier';
richedit1.print('Name');

Beides nimmt er nicht, gibt es da noch eine andere Methode?