Nabend ...,
Zitat von
oldie:
... Ist der FarbLaserDrucker als Standard ausgewählt druckt alles in den richtigen Farben. Ist der Drucker nicht Standard wird alles in Graustufen gedruckt.
Vielleicht einfach mal prüfen ob der 'nicht Standard' Drucker im System überhaupt als Farbdrucker registriert ist.
Delphi-Quellcode:
if (GetDeviceCaps(Printer.Handle, BITSPIXEL) * GetDeviceCaps(Printer.Handle, PLANES)) = 1 then
ShowMessage('Farbdrucker');
oder aber die Anzahl der Farben ermitteln
GetDeviceCaps(Printer.Handle, numcolors)
Grundsätzlich solltest du FontColor aber über das Canvas setzen
Printer.Canvas.Font.Color:= clred
Was mir noch gerade einfällt: Wenn dein Farblaser nicht als Standard eingetragen ist, welcher ist es dann? Vielleicht ein SW-Drucker?
LG Mario