Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Imprimer une zone sans la couleur de fond

  • Initiateur de la discussion Domi_d
  • Date de début
D

Domi_d

Guest
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

XLDnaute Barbatruc
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
 

CBernardT

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…