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?