Imprimer une zone sans la couleur de fond

[Domi_d]

Bonjour,
J'ai un bouton qui m'imprime une zone bien défini, dont le code est :

Sub Imprim_16j()
Sheets('Tirage 16j').Range('A1:Q31').PrintOut Copies:=1, Collate:=True
End Sub

A l'écran, les cellules sont colorées.
Que faut-il changer pour qu'à l'impression, les cellules ne soient pas colorées ?

-------------------------
Merci d'avance

 

[CBernardT]

Bonjour Domi_d,

Essayes avec ce code :

Sub Imprim_16j()
With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
Sheets('Tirage 16j').Range('A1:Q31').PrintOut Copies:=1, Collate:=True
End Sub

Cordialement

Bernard

 

[Domi_d]

Bonjour CBernardT, et merci
Le fond est toujours présent à l'impression...

 

[CBernardT]

Re Domi_d,

le code précédent fonctionne pour les colorations de cellules.

S'il s'agit d'une image en arrière plan, la suppression de l'arrière plan est, je pense, la seule solution pour qu'il ne soit pas imprimé.

Cordialement

Bernard

 

[Marc_du_78]

Bonsoir Domi_d, CBernardT,
Dans mise en page onglet feuille, cocher imprimer en noir et blanc.
Bonne continuation.