Discussion :

[frantzgac]

Bonjour

je voudrais extraire et sélectionner le nombre de page par feuille avant l'impression.

La fonction DeviceCapabilities
http://msdn.microsoft.com/en-us/library/dd183552
semble être au coeur de ce besoin mais quelques contributions sur le Net montrent que ce n'est peut être pas aussi trivial :

http://mc-computing.com/languages/De...abilities.html

Quoiqu'il en soit avec le paramètre DC_NUP et en suivant les prescriptions de ce qui précède (eu égard au dysfonctionnement apparent de windows.pas) le code suivant :

Code :

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

1
2
3
 
Printer.GetPrinter(Device, Driver, Port, hDevmode);
(Integer) Nup:=WinSpool.DeviceCapabilities(Device, Port, DC_NUP, nil, nil);

retourne -1 dans Nup quelquesoit l'imprimante par défaut. Evidemment j'ai vérifié par le panneau de configuration que les imprimantes testées permettaient bien d'imprimer plusieurs pages par feuille.

J'ai trouvé des mises en garde par rapport aux pilotes d'impression, en l’occurrence ce qui m'intéresse est de faire fonctionner l'impression avec PDF Creator 1.2.2. Mais la sélection de l'option DC_NUP n'a pas de raison de ne pas fonctionner avec l'API si elle fonctionne par les propriétés "manuelles" de l'imprimante je pense, et ce quelque soit l'imprimante ?

[frantzgac]

Problème résolu en entrant la constante 33 au lieu de DC_NUP (qui vaut 24).

Mais la question est de savoir si cette constante est sensible à la version de Windows ?

[Ph. B.]

@frantzgac m'a précédé, mais effectivement, il ne faut pas utiliser la constante fourni par défaut dans l'unité Windows car elle est fausse comme la constante suivante (cf. extrait)

Code :

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

1
2
3
4
5
6
  {$EXTERNALSYM DC_MODEL}
  DC_MODEL = 24;
  {$EXTERNALSYM DC_COLORDEVICE}
  DC_COLORDEVICE = 23;
  {$EXTERNALSYM DC_NUP}
  DC_NUP = 24;

C'est un bug qui a été référencé il y a longtemps : bug 33767
à résoudre comme ceci pour ceux qui ont une version de Delphi antérieure à la 15.0.3819.31711 soit Delphi XE si je ne me trompe pas....

Code :

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

1
2
3
 
DC_COLORDEVICE = 32; //(en conflit avec DC_MANUFACTURER)
DC_NUP = 33; // (en conflit avec DC_MODEL)

--
Philippe.