impression sans couleur

[Marion]

Bonsoir le forum.

une petite question:
j'ai une feuille qui contient pas mal de couleur de cellule.

lors de son impression par bouton macro, j'utilise beaucoup de couleur de l'imprimante (les cartouches sont relativement chères).

peut-on sur la macro integrer un impression sans couleur mais avec le format et qu'aprés son exécution tout redevienne normale?


je ne sais pas si c'est possible?

merci si vous avez un idée

A+Marion

 

[JeanMarie]

Bonsoir

Tu as généralement dans les propriétés de l'imprimante, une option pour imprimer soit en niveaux de gris, soit en couleur.
Ce qui est intéressant, c'est que cette option est enregistrée dans le fichier.

@+Jean-Marie

 

[CBernardT]

Bonsoir Marion, JeanMarie et le forum,

L'Objet PageSetup contient tous les attributs de mise en page. La propriété BlackAndWhite définit l'impression en noir et blanc lorsqu'elle est égale à True. La valeur False définit l'impression en couleur.

Le code du style :

With Sheets('Feuil1')
With .PageSetup
.BlackAndWhite = True
End With
End With

Cordialement

CBernardT

 

[MichelXld]

bonsoir Marion , bonsoir Jean-Marie

en complément des infos données par Jean-Marie , tu peux par exemple ajouter les lignes ci dessous dans ta macro , pour imprimer la feuille active en noir et blanc


...en début de macro
ActiveSheet.PageSetup.BlackAndWhite = True

...la macro d'impression ...

...et en fin de macro
ActiveSheet.PageSetup.BlackAndWhite = False



bonne soiree
MichelXld

 

[MichelXld]

bonsoir Bernard

...la meme réponse et dans le meme minute ...;o)


je te souhaite une bonne soiree
MichelXld

 

[Marion]

Merci a vous trois pour ses précieuses information.

je vais essayer çà tout de suite


Gros bisous a tous les trois

A+Marion

 

[CBernardT]

Bonsoir Michel,

Ce n'est pas si souvent que cela arrive, ne dit-on pas que les grands esprits se rencontrent ? 🙂 🙂 🙂

Bien à toi

CBernardT