farbig drucken an Standarddrucker ok - sonst sw

[Hobby-Programmierer]

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