Imprime en B/W ou couleur Brigitte

[brigitte]

Bonsoir,

Aprés l'aide que j'ai eu la dernière fois, me revoila.
Je souhaiterais imprimer ma feuil1 qui est en couleur.
En noir et blanc ou en couleur, je souhaiterais que l'on puisse
faire le choix par une macro. Quels mots clés faut-il utilisé

Merci d'avance...

Brigitte

 

[@Christophe@]

Bonsoir Brigitte

Pour le noir et blanc, dans ta macro tu mets

With Feuille.PageSetup
.BlackAndWhite = True
End With

Pour le couleur c'est un print simple

@Christophe@

 

[brigitte]

bonsoir Christophe,

J'ai essayé, mais j'ai du faire un faux pas quelque part.
Ca ne fonctionne toujours pas.

voici ma macro:

Sub Macro1()
With Feuille.PageSetup
BlackAndWhite = True
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

elle se bloque à la ligne With feuille.PageSetup

Brigitte

 

[@Christophe@]

Salut Brigitte

Essaye avec cette commande la

Sub imprimer()
Worksheets("Feuil1").PageSetup.BlackAndWhite = True
Worksheets("Feuil1").PrintOut Copies:=1, Collate:=True
End Sub

Cela vera imprimer en noir et blanc

@Christophe@

 

[brigitte]

Salut Christophe,

Merci pour le coup de main,
maintenant ça fonctionne.

@Brigitte@

 

[@Christophe@]

you're welcome Brigitte

See you soon

@Christophe@