Bonsoir, je souhaiterai si possible modifier les paramètres d'impression selon l'appui sur un bouton (choix entre noir et blanc ou couleur). J'ai trouvé une macro mais je ne vois pas comment l'utiliser afin de pouvoir modifier ces paramètres (sachant que Activesheet.Pagesetup..BlackAndWhite = True/False ne fonctionne pas).
Merci de votre aide
Merci de votre aide
Code:
Sub verifier_parametre_Couleur_NB_Imprimante_V02()
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 where Name = 'KNB22XM6_RICHO Aficio MPC 3300 PCL 6'")
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