Home » Tipps & Tricks » Drucker » Druckereigenschaften » Schwarz/Weiß-Drucker erkennen

Schwarz/Weiß-Drucker erkennen

Wenn man in seinem Programm Grafiken ausdrucken möchte, ist es vielleicht interessant zu wissen, ob der Anwender einen Farb- oder einen S/W-Drucker installiert hat. Man kann so rechtzeitig reagieren und die Grafik in Graustufen umrechnen.

function IsBlackWhite: Boolean;
begin
  Result := (GetDeviceCaps(Printer.Handle, BITSPIXEL) *
             GetDeviceCaps(Printer.Handle, PLANES)) = 1;
end;

Es muss noch die Unit printers der USES-Klausel hinzugefügt werden, damit dieser Tipp funktioniert.