Bonjour,
Je bute sur un problème qui doit être vraiment élémentaire, mais j'avoue que je manque d'inspiration:
Comment détecter si l'imprimante par défaut supporte le format A3?
Merci pour votre aide.
Jacques13

Bonjour jmfMarques,
Une fois de plus tu m'as bien orienté et je t'en remercie!
Puis-je abuser?
Grâce à toi j'ai déniché ce bout de code qui correspond à mes attentes:
Option Explicit
Const DC_PAPERS = 2
Private Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As String, ByVal lpPort As String, ByVal iIndex As Long, lpOutput As Any, lpDevMode As Any) As Long
Private Sub Form_Load()
Dim Ret As Long, PaperSizes() As Integer
Ret = DeviceCapabilities(Printer.DeviceName, ByVal 0&, DC_PAPERS, ByVal 0&, ByVal 0&)
ReDim PaperSizes(1 To Ret) As Integer
Call DeviceCapabilities(Printer.DeviceName, ByVal 0&, DC_PAPERS, PaperSizes(1), ByVal 0&)
Me.AutoRedraw = True
Me.Print "Supported papersizes:"
Dim Cnt As Long
For Cnt = 1 To Ret
Me.Print Str$(PaperSizes(Cnt))
Next
End Sub
Est-il possible de le modifier de telle sorte qu'il m'indique si l'imprimante courante est une imprimante couleur?
Jacques13

Bonsoir,

C'est un peu plus difficile car dépendant du pilote de ton imprimante et ... de sa totale compatibilité Windows...

Je te suggère alors une méthode :

Gestion d'erreur sur l'utilisation de la propriété ColorMode de l'objet Printer (ouvre ton aide en ligne sur le mot ColorMode et lis tout jusqu'au bout...tout en étant conscient de ce que tu n'obtiendras pas toujours un message d'erreur en donnant la valeur 2 ...).

Ce n'est pas évident ...

Ah oui (j'oubliais) ...

Il y a plus embêtant encore :

L'utilisateur final peut très bien, avec certaines imprimantes et leur pilote, décider de configurer une imprimante pouvant imprimer en couleur, de telle sorte qu'elle imprime en ... monochrome !!!

Autre possibilité :

ouvrir et lire la clé de la BDR :

HKEY_CURRENT_USER\Printers\Settings

Y rechercher ton imprimante par défaut (propriété DeviceName de l'objet Printer sous VB6)

Mais alors là : dur dur ! (en Reg_Binary) !!!!! pour y voir ses ajustements en cours et y déceler si elle est ajustée pour imprimer ou non en couleur ...

Si je comprends bien, tu me découragerais plutôt d'explorer la voie de la détection de la couleur.
Je te fais confiance.
Pour revenir au problème des formats de papier, je me posais la question de savoir si l'imprimante courante était également capable d'imprimer en A2, A1 ou A0.
Pour commander l'impression (par exemple) en A0, on n'utilise pas la propriété Printer.PaperSize qui ne possède pas de valeur correspondant à ce format mais plutôt: Printer.Height = 47040: Printer.Width = 66767.
Résumons:en mode détection, si on récupère les valeurs 8 ou 9 pour la propriété PaperSize, on sait que l'imprimante accepte les formats A3 et A4; quelles valeurs m'indiqueront son aptitude à gérer les formats A2, A1, et A0?

Je me rends compte que mon exposé est mal tourné, mais je suis sûr que tu as compris le sens de ma question.

Jacques13

 

Bien que je n'aie pas une telle imprimante pour le vérifier, il me semble que Windows n'est pas tout seul capable de reconnaître une habilité supérieure au format A3 (valeur 8).

Je choisirais personnellement dans un tel cas de figure le mécanisme suivant :

- un programme annexe forçant l'utilisateur à déclarer les imprimantes susceptibles d'être utilisées par ton application ====>> écriture d'un fichier texte contenant les spécifications qui intéressent ton appli, pour chaque imprimante ainsi "déclarée"
- depuis ton appli : lecture du fichier texte pour s'assurer de ce que l'imprimante a bien les spécifications requises et rejet éventuel avec message (rejet si l'imprimante n'est pas ainsi déclarée ou que, l'étant, elle "ne fait pas l'affaire".

C'est vrai que les formats supérieurs à A3 n'appraissent pas dans la liste des valeurs de PaperSize!

Je posais la question car, lorsque je fais tourner la routine ci-dessus, des valeurs exotiques apparaissent:

257  258  259  260  261  9  8  66  271  272  273  274  275  276  295  301  607  608  609  610  611  618  619  620  621  622  623  624  625  626  645  651

Notamment toutes ces valeurs supérieures à 256 (pourtant borne supérieure relatée dans l'aide de VB6);
Peut-être que dans le tas, une correspond au A0? Peut-être existe-t-il une formule permettant de passer de l'une à l'autre?