XL 2016 modifier paramétrages par défaut d'une imprimante (N&B->couleur)

[fredl]

Bonjour,
suite à recherche infructueuse sur le forum, je me permets de vous poser cette question :

Les imprimantes de mon entreprise sont paramétrées par défaut pour des impressions en noir et blanc.
Existe t'il un moyen par VBA de paramétrer l'impression en couleur d'une imprimante avant de lancer une impression ?
(aujourd'hui, pour ce faire, une action manuelle dans les paramètres de l'imprimante étant obligatoire...)
(PC sous W10)

Merci d'avance pour votre aide.

Frédéric

 

[patricktoulon]

Bonjour
malheureusement il y a tellement de model d'imprimantes qu'un com serait difficile a envisager
donc non selon moi
cherche quand même peut être du coté de WMI ou CreateObject("WScript.Network")
mais je pense que tu perdrais moins de temps a aller boire un café

peut etre devrait tu te faire une copie de ton imprimante dans tes imprimante et paramétrer la copie
panneau de config /imprimantes/etc... tu copie ton imprimante tu colle elle s'appellera nom de ton imprimante(copie) ou quelque chose comme ça et tu paramètre cette copie

 

[fredl]

Bonjour Patrick,
Merci pour ton retour. je vais regarder coté de WMI ou CreateObject("WScript.Network")
Cordialement
Frédéric

 

[fanch55]

Un peu tard, mais si ça peut servir :

Essayer :

ActiveSheet.PageSetup.BlackAndWhite = False​

A mon domicile, ça marche, je pilote en couleur ou en noir et blanc,
mais je ne peux plus vérifier sur un réseau d'entreprise ....