Diese ganzen Eigenschaften gibst Du bei Printer.Canvas.Font an
Bsp:
Delphi-Quellcode:
WITH Printer.Canvas.Font DO
BEGIN
Name := 'MS Sans Serif';
Size := 14;
Color :=clRed;
END;
Wenn das alles nicht gesetzt werden soll, ist Luckie's Lösung sicherlich noch einfacher
Gruß
Stephan
edit: Am besten das Ganze in ne Proc./Func. auslagern, mit FileName und Font als Parameter (dann Font mit Printer.Canvas.FontAssign(UebergebeneFont); zuweisen) und dann haste's ziemlich allgemein und wiederverwendbar
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...