XL 2010 IMPRESSION EN COULEUR

[IMRANE]

Bonjour le forum
j ai developpe une application excel dans la feuille livraison j ai une touche d impression du bon livraison
mais la macro que j ai ne fait que imprimer mon bon en noir et blanc meme si je change la couleur
svp si quelque peux m aider a resoudre ce probleme
je vais joindre un fichier pour bien expliquer

 

[vgendron]

Bonjour

elle est ou cette macro??
pas envie de me taper les 50 modules pour la trouver..

 

[vgendron]

et en général, les paramètres d'impression sont définis directement dans le gestionnaire de ton imprimante..
si elle est paramétrée par défaut en noir et blanc. et bien..il faut la passer en couleur

sinon, tu utilises l'enregistreur de macro pour voir comment vba code tout ca..

 

[IMRANE]

Bonjour

elle est ou cette macro??
pas envie de me taper les 50 modules pour la trouver..

BONJOUR
clic a droit sur icone impression au centre de la page affecter une macro modifier la macro

 

[vgendron]

BONJOUR
clic a droit sur icone impression au centre de la page affecter une macro modifier la macro

Ca.. ca dit juste comment elle s'appelle.. pas dans quel module elle se trouve..

 

[Phil69970]

Bonjour @IMRANE et Vincent

Je te propose ceci à mettre dans le module d'impression

Dim Retour, Mem
Retour = MsgBox("Voullez-vous une copie couleur : O/N ", vbYesNo + vbCritical)
If Retour = vbNo Then Mem = "N & B" Else Mem = "Couleur"

With Worksheets("LIVRAISON").PageSetup
    If Mem = "N & B" Then .BlackAndWhite = True Else .BlackAndWhite = False
End With

 

[IMRANE]

BONJOUR
clic a droit sur icone impression au centre de la page affecter une macro modifier la macro

Bonjour @IMRANE et Vincent

Je te propose ceci à mettre dans le module d'impression

Dim Retour, Mem
Retour = MsgBox("Voullez-vous une copie couleur : O/N ", vbYesNo + vbCritical)
If Retour = vbNo Then Mem = "N & B" Else Mem = "Couleur"

With Worksheets("LIVRAISON").PageSetup
    If Mem = "N & B" Then .BlackAndWhite = True Else .BlackAndWhite = False
End With[/
[/QUOTE]
BONJOUR [USER=247145]Phil69970[/USER]
Merci pour votre intervention votre code marche parfaitement 
un grand merci pour vous et pour ce forum

 

[IMRANE]

Merci le forum
Merci phill 69970
le code marche parfaitement