Wie erkennen, ob Drucker Farb- oder Schwarzweißdrucker ist?

[Union]

Ich würd's so machen (nicht elegant, aber ich brauche ein Startdoc für den DC):

Delphi-Quellcode:

function GetPrinterNumColors(Printername : string)
var
   i : integer;
begin
   result := -1;
   i := Printer.Printers.IndexOf(Printername);
   if i > 0 then
   begin
      Printers.Printer.PrinterIndex := i;
      Printers.Printer.BeginDoc;
      result := GetDeviceCaps(Printers.Printer.Canvas.Handle, NUMCOLORS);
      Printers.Printer.Abort;
   end;
end;