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

[BlueStarHH]

Hallo,

wie kann ich ermitteln, ob der aktuelle Drucker ein Farb- oder Schwarzweißdrucker ist?

Ich nutze die Unit Printers und setze den aktuellen Drucker mit Printer.PrinterIndex := X

Vielen Dank im Voraus!

[Bolt Thrower]

Hallo BlueStarHH,

vielleicht hilft Dir ja dieser Link von den Schweizern weiter (hab's selber nicht getestet)?

Grüße,

Bolt Thrower

[himitsu]

das Printerobjekt hat IMHO auch Eigenschaften für die Anzahl der Farben und wieviel Bits für diese zur verfügung stehen.

2 Farben = SwarzWeiß
8 echte Mischfarben = 3 Farbpatronen
usw.

Wenn du es nicht findest, kann ich daheim ma 'ne alte Demo raussuchen.

*Notiz an mich selber ... ich sollte solche Dinge och ma mit auf'm USB-Stick ablegen*

[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;

[andreash]

Hallo!

Ein Funktion dafür steht auch hier: http://www.dsdt.info/tipps/?id=346

Ich habe sie allerdings noch nicht verwendet.

[Union]

Zitat:

Ein Funktion dafür steht auch hier: http://www.dsdt.info/tipps/?id=346

Wie immer war das natürlich die einfachere Lösung.. Ich würde dennoch mit NUMCOLORS arbeiten: Alles > 2 ist Farbe. Es sei denn, mann hat einen Rot/Grün-Drucker ;)

[BlueStarHH]

Danke für die vielen Antworten. Es gab 3 Lösungsvorschläge, die ich auf ihre Tauglichkeit untersucht habe.

Zur function GetPrinterNumColors(Printername : string)
Unter Windows XP wird durch diese Funktion das Druckerstatusfenster für den Bruchteil einer Sekunde geöffnet. Außerdem erscheint kurz das Druckersymbol im Tray und in der Taskleist. Bei einem virtuellen Druckertreiber (PDF-Konverter von Context), bleibt das Druckerstatusfenster über 10 Sekunden geöffnet. Diese Funktion sollte daher nicht genutzt werden.

Die beiden anderen Funktionen habe ich in ein kleines Testprojekt aufgenommen. Dieses Projekt erzeugt die folgende Tabelle. In der ersten Spalte sind die Namen der Drucker zu sehen.
Spalte SW1a: Ist der Drucker laut Funktion 1a ein Schwarzweißdrucker?
Spalte SW1a: Ist der Drucker laut Funktion 1b ein Schwarzweißdrucker?
Spalte SW2: Ist der Drucker laut Funktion 2 ein Schwarzweißdrucker?
Spalte *: Von mir angegeben, ob es sich wirklich um einen Schwarzweißdrucker handelt.

Delphi-Quellcode:

Drucker                       SW1a SW1b SW2  *
Canon iP4200..................N    N    N    N
pdfFactory ...................N    N    N    N
pdfFactory Pro................N    N    N    N
Kyocera FS-680................J    N    J    J
Kyocera FS-3750 KX............N    N    J    J
FRITZfax......................N    J    J    J
FinePrint.....................N    N    N    N
Canon i865....................N    N    N    N
BroadGun pdfMachine...........N    N    N    N
Adobe PDF.....................N    N    J    N

Wie man an der Tabelle sehen kann trifft keine der Funktionen in jedem Fall die Realität. Können einge von euch dieses Testprogramm hier herunterladen und die Ergebnisse hier posten? Damit man weiß, welche dieser Funktionen am zuverlässigsten ist. Danke!

[fkerber]

Hi!

Delphi-Quellcode:

Drucker                       SW1a SW1b SW2  
Office Document Image Writer..N    N    N    
Kyocera FS-920 KX.............N    N    J    
Kyocera FS-920................J    N    J    
FRITZfax Drucker..............J    N    J    
FRITZfax Color Drucker........N    N    N    
FreePDF XP....................N    N    J    
Canon PIXMA iP4000............N    N    N    
Adobe PDF.....................N    N    J

Kyocera ist SW-Laser, Canon ist Farbdrucker, Rest sollte sich erklären!

Die GetPrinterNumColors kann man etwas umbauen, sodass das von dir beschriebene Verhalten entfällt, allerdings ist laut ihr (vor und nach Umbau) mein SW-Laser ein Farbdrucker!


Ciao, Frederic

[andreash]

Von der Methode GetPrinterNumColors kann ich auch abraten. Ich verwende sie in unseren Programmen schon sehr lange. Seit Windows XP tritt das Problem auf, dass Schwarzweissdrucker als Farbdrucker identifiziert werden.

[himitsu]

Es wäre vielleicht auch mal nicht schlecht, wenn du mit einbeziehst, ob eventuell die Funktionen garkein Ergebnis (oder halt ein Falsches) zurückliefern.

Delphi-Quellcode:

Bits   := GetDeviceCaps(Printer.Handle, BITSPIXEL);
Planes := GetDeviceCaps(Printer.Handle, PLANES);
If (Planes = 1) and (Bits = 1) Then Result := Monocrome
Else If (Planes = 1) and (Bits > 1) Then Result := GrayScale
Else If (Planes > 1) and (Bits > 1) Then Result := Color
Else Result := Error;

Delphi-Quellcode:

Colors := GetDeviceCaps(Printer.Handle, NUMCOLORS);
If Colors > 2 Then Result := ColorOrGrayScale
Else If Colors = 2 Then Result := Monocrome
Else Colors < 2 Then Result := Error;

Zu den Schweizern, ich weiß nicht was das mit dem >1 bei .dmColor auf sich hat, aber dort gibt es keine "Farbanzahl" ... nur DMCOLOR_COLOR, oder DMCOLOR_MONOCHROME.
DocumentProperties > http://msdn.microsoft.com/library/de...tspol_7k1f.asp

Laut MSDN sähe es dann also so aus :gruebel:

Delphi-Quellcode:

Var DM: PDeviceMode;

Begin
  GetMem(DM, DocumentProperties(0, Printer.Handle, nil, nil, nil, 0));
  Try
    DocumentProperties(0, Printer.Handle, nil, DM, nil, DM_OUT_BUFFER);
    If DM1^.dmColor = DMCOLOR_COLOR Then Result := Color
    Else Result := Monocrome;
  Finally
    FreeMem(DM);
  End;
End;