Modifier paramètres imprimante NoiretBlanc ou Couleur

[XceSs]

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

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

 

[ERIC S]

Re : Modifier paramètres imprimante NoiretBlanc ou Couleur

Bonjour
je vois que tu n'as pas eu de réponse. Je peux juste te proposer de regarder sendkeys qui simule des appui touches clavier.
tu effectues ta séquence à la main en notant tes actions (sans souris) et tu convertis

 

[XceSs]

Re : Modifier paramètres imprimante NoiretBlanc ou Couleur

Bonjour, ok je vais essayer ça. Si quelqu'un à une autre proposition aussi je suis preneur.

Merci