Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
12. Nov 2007
Es kann nur so funktionieren:
// ...
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font.Assign(Memo1.Font);
Printer.Canvas.Font.size := 15;
// ...
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
12. Nov 2007
Was die Font-Size angeht, so schaue dir mal Printer.Canvas.Font an - da gibt es eine Eigenschaft Size.
Parallele Spalten drucken ist einfach, wenn du mit mono-spaced fonts (z.B. Courier) arbeitest. Es genügt dann, wenn du den Text der linken Spalte mit Leerzeichen auffüllst. Ansonsten wird es etwas komplizierter.
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
12. Nov 2007
Hallo,
du darfst die Druckausgabe erst mit CloseFile() schließen, wenn du fertig bist - sonst wird der Druckjob abgeschlossen und die Seite aus dem Drucker geschoben.
Grüße vom marabu