Discussion :

[dacid]

Bonjour à tous,

J'aimerais parcourir toutes les imprimantes installées sur le poste (facile avec Printers) et savoir lister celles qui savent faire du postScript.

Y a t-il un moyen pour récupérer de tels paramètres ?

Une piste:
Je sais que dans les imprimantes postScript, il y a des paramètres spécifiques dans "Clic droit/propriétés/paramètres/", comme "Convertir le texte gris en postscript", par exemple.
Y a pas moyen de voir si ce paramètre existe ?

... Mais il y a peut être mieux.

Merci d'avance.

[dacid]

Yes !

J'ai eureka un truc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function IsPostScriptPrinter(dc : hdc) : bool;
var TestInt : integer;
  a : array[0..255] of char;
  err : integer;
  s : string;
begin
  Result := false;
  TestInt := GETTECHNOLOGY;
  {$IFDEF WIN32}
  if ExtEscape(Dc, QUERYESCSUPPORT, sizeof(TestInt), @TestInt, 0, Nil) > 0 then begin
    Err := ExtEscape(Dc, GETTECHNOLOGY, 0, nil, 256, @a);
  {$ELSE}
  if Escape(Dc, QUERYESCSUPPORT, sizeof(TestInt), @TestInt, Nil) > 0 then begin
    Err := Escape(Dc, GetTechnology, 0, nil, @a);
  {$ENDIF}
    if Err > 0 then begin
      s := UpperCase(StrPas(a));
      if Pos('POSTSCRIPT', s) > 0 then
        result := true;
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if PrintDialog1.Execute then
if IsPostScriptPrinter(Printer.Handle) then
ShowMessage('This is a Postscript Printer') else
ShowMessage('This is not a Postscript Printer');
end;

Ca à l'air de fonctionner... Je ne connaissait pas cette classe (PDrvinNT).
Par curiosité, quelqu'un a une autre méthode ?

[dacid]

Juste un truc:

Comment faire pour récupérer le handle d'une imprimante sans la mettre par défaut ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  for i:=0 to Printer.Printers.Count-1 do begin
    Printer.PrinterIndex := i;
    estPs := IsPostScriptPrinter(Printer.Handle); // Printer.Handle

Pas comme ça, quoi.