Comment récupérer et modifier les paramètres d'imprimante (réseau) sous VBA Excel?

Bonjour à tous,
Cela fait plusieurs jours que je butte sur ce problème de programmation et je suis sure que au moins une personne du forum va me permettre de débloquer la situation et ouvrir de nouvelles perspectives pour nombreux d’entre nous.

Je travaille sous Excel 2016 MSO Office 365 ProPlus et tente de réaliser un programme de gestion de base de données qui sera utilisée sur le site sur lequel je travaille. La difficulté est que le site est étendu et donc il y a plusieurs imprimantes en réseau qui sont, la plupart des fois, paramétrées en N/B. Le programme sur lequel je travaille permet à différents utilisateurs d’imprimer des fiches environnementales en fonction de données enregistrées dans une BDD. Ces fiches doivent être impérativement imprimées en couleurs et nous ne souhaitons pas que les utilisateurs aient à changer manuellement les paramètres de leur imprimante. J’ai testé plusieurs solutions et je n’arrive pas à récupérer (et afficher dans une userform) et modifier les paramètres des imprimantes.

Je ne souhaite pas passer par la fenêtre « Application.Dialogs(xlDialogPrinterSetup).Show » (instruction utilisée si l’utilisateur souhaite changer d’imprimante) ni utiliser des « sendkeys » et la fonction « ActiveSheet.PageSetup.BlackAndWhite » n’intervient que sur le paramétrage de la feuille et non sur les paramètres de l’imprimante.
De plus l’enregistreur de macro n’enregistre que le lancement de l’impression et rien correspondant au passage de paramètre d’impression N/B à couleur.

J’ai aussi essayé le bout de code suivant (pour tester) qui me donne toujours le même résultat que l'imprimante couleur soit paramétrée en N/B ou en Couleur:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

ImprActive = Application.ActivePrinter On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = _ objWMIService.ExecQuery("Select * from Win32_PrinterConfiguration", , 48) For Each objItem In colItems longImprim = Len(objItem.Name) ImprActiveb = Left(Application.ActivePrinter, longImprim) If objItem.Name = ImprActiveb Then Select Case objItem.Color Case 1: NBouCouleur = "Couleur" Case 2: NBouCouleur = "N&B" End Select End If Next

---

Je sens que je ne suis pas loin de la solution et personne dans mon entourage, pas même le service info de mon entreprise, n'a pu me venir en aide. J'ai trouvé de nombreux forum avec ce type de requête mais aucun ne nous a permis de trouver une solution.
Je remercie d'avance toutes les personnes qui pourrons apporter une réponse qui, j'en suis sûre, aidera de nombreux programmateurs en herbe.

Compte tenu du nombre de vues, je pense que je ne suis pas la seule à avoir ce problème. Y a-t'il une solution?

Salut.

Je propose la solution suivante:

Installer l'imprimante plusieurs fois avec différents paramètres et choisir la bonne imprimante lors de l'impression. Sauf à disposer de la bibliothèque de fonctions permettant de dialoguer avec l'imprimante, je ne vois pas d'autre solution. C'est, de plus, celle qui est la plus facile à mettre en oeuvre, notamment en cas de modification d'imprimante.

Merci Pierre pour ta réponse mais compte tenu du nombre d'imprimantes disponibles, le service informatique ne souhaite pas installer la même imprimante avec plusieurs paramétrages. Leur 2nd argument, avec lequel je suis d'accord, est que les imprimantes avec paramétrage couleur risquent de devenir les imprimantes par défaut...:roll:

Hum...

Je pense que le problème vient de tes admins réseau/windows. Normalement, c'est leur job de configurer les droits des groupes et des utilisateurs et donc, de déterminer qui peut faire quoi avec quel matériel. Je ne suis pas spécialiste , mais je pense que la possibilité de modifier l'imprimante par défaut existe, parmi beaucoup d'autres choses qui peuvent être permises/interdites par une bonne gestion des groupes/utilisateurs Windows.

Comme je l'ai dit précédemment, je pense que, sans avoir une bibliothèque livrée par le fabricant de l'imprimante permettant de manipuler les propriétés par code, tu n'y arriveras pas.

Par contre, je suis dubitatif sur l'emploi du français et du N/B dans ton code. Si une solution existait par ce biais, je pense que tu aurais plus de chances en utilisant l'anglais. Peut-être serait-il intéressant d'aller fureter sur le site du constructeur à la recherche d'un forum dédié. Cela m'étonnerait beaucoup qu'il existe une solution "simple et pur vba".

Bonjour à tous,

peut-être une piste : https://www.edinkapic.com/2011/01/ho...er-bin-in.html
C'est pour un autre paramètre et en VB, mais on trouve dmColor et l'adaptation en VBA devrait pouvoir se faire.
N'oublie pas de mettre l'adaptation ici si tes tests sont positifs ;-)
eric

Edit en plus court et en VBA : https://stackoverflow.com/questions/...our-and-duplex

Salut Eric,

Merci pour ces liens, notamment le deuxième, qui pourrait confirmer ce que j'ai dit par rapport aux valeurs "en français"...

Code:

---

1 2 3

'Change DEVMODE Stucture as required dm.dmColor = 1 ' 1 = colour, 2 = b/w dm.dmDuplex = 2 ' 1 = simplex, 2 = duplex

---

Peut-être faudrait-il essayer 1 au lieu de "couleur" à la ligne 12 du code proposé dans le premier message...

Bonjour

Je suis vraiment désolé (presque totalement mobilisé à d'autres fins) de ne pouvoir intervenir dans cette discussion qu'à coups de grandes lignes.

1) Une imprimante ne peut être totalement "pilotée" depuis une application Windows que si elle est totalement compatible Windows
2) Une imprimante se comporte exactement comme se comporte tout dispositif "graphique" (pictureboxe, ipicturedisp, ou stdpicture, etc ...) doté, donc d'un handle de contexte (HDC)
3) en ce qui concerne le mode couleur ou non, le choix fait n'agit pas sur l'imprimante, mais sur le document à imprimer, avant son impression. A ce propos : "en noir et blanc" est en réalité "en monochrome et niveaux de gris" (toutes les cartouches couleurs sont par exemple utilisées, mais à des niveaux moins gourmands).
4) rien n'interdit d'agir soi-même (en lieu et place du logiciel pilote) sur le traitement avant impression.

Je n'ai vraiment pas le temps (encore désolé) d'aller plus loin dans ce sens.
Amitiés à tous.