XL 2010 IMPRESSION EN COULEUR

IMRANE · 9 Août 2023

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

Phil69970 · 9 Août 2023

Bonjour @IMRANE et Vincent

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

VB:

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

vgendron · 9 Août 2023

Bonjour

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

vgendron · 9 Août 2023

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 · 9 Août 2023

vgendron à dit:
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 · 9 Août 2023

IMRANE à dit:
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 · 9 Août 2023

Bonjour @IMRANE et Vincent

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

VB:

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 · 10 Août 2023

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

Phil69970 à dit:

Bonjour @IMRANE et Vincent

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

VB:

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 · 10 Août 2023

Merci le forum
Merci phill 69970
le code marche parfaitement

XL 2010 IMPRESSION EN COULEUR

IMRANE

XLDnaute Occasionnel

Pièces jointes

Phil69970

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

IMRANE

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

IMRANE

XLDnaute Occasionnel

IMRANE

XLDnaute Occasionnel

Discussions similaires