Bonjour,
Je recherche en vain le moyen de modifier la configuration d'une imprimante dans une application VBA sous Excel 2013.
J'ai trouvé sur de nombreux forums le code permettant d'afficher la configuration complète des imprimantes déclarées sur mon poste, mais je ne parviens pas à modifier quelque paramètre que ce soit.
En l'occurrence, je cherche le moyen de forcer l'impression en couleur sur une imprimante dont la configuration par défaut est Noir et Blanc.
Le code suivant me confirme que l'imprimante est configurée en N&B.
Sub verifier_parametre_Couleur_NB_Imprimante_V02() ' en VBA
Dim objWMIService As Object, colItems As Object
Dim objItem As Object
Dim strComputer As String
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
Select Case objItem.Color
Case 1: MsgBox objItem.Name & " : 'noir et blanc'"
Case 2: MsgBox objItem.Name & " : 'couleur'"
End Select
Next
End Sub
Comment, à partir de là, puis-je la forcer en couleur ?
J'ai essayé ça :
For Each objItem In colItems
if objitem.name = <nom de l'imprimante> then
objitem.color = 2
end if
next
A l'exécution, il passe bien sur l'instruction objitem.color = 2 pour l'imprimante recherchée, mais l'impression sort toujours en N&B
Pourriez-vous m'aider ?
Merci d'avance.
