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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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