XL 2010 Imprimer PDF NetB ou couleur

jeanmi

XLDnaute Occasionnel
Bonjour à tous,

J’ai essayé à partir de codes trouvés sur le net de faire des impressions noires et blanc ou couleur en PDF.

Et je n’arrive qu’à imprimer en couleur.

Pouvez-vous me dire ce qu’il faudrait changer dans ce code pour que ça fonctionne, soit en N et B soit en couleur suivant la demande.

Merci d’avance pour votre aide.

j'ai mis mon fichier pour simplifier.

Cordialement
 

Pièces jointes

  • essaisimp couleur ou NB-V1.xlsm
    19.9 KB · Affichages: 5

Phil69970

XLDnaute Barbatruc
Bonjour @jeanmi

Je te propose ceci adapté de cette conversation que j'avais eu il y a quelques temps
(Non tester)
VB:
If Retour = vbNo Then
    ActiveSheet.PageSetup.BlackAndWhite = True
Else
    ActiveSheet.PageSetup.BlackAndWhite = False
End If


Si la solution te convient n'oublie pas de la valider.
*Un exemple avec de la couleur aurait été plus judicieux ;)

*Merci de ton retour

@Phil69970
 
Dernière édition:

jeanmi

XLDnaute Occasionnel
Bonjour @jeanmi

Je te propose ceci adapté de cette conversation que j'avais eu il y a quelques temps
(Non tester)
VB:
If Retour = vbNo Then
    ActiveSheet.PageSetup.BlackAndWhite = True
Else
    ActiveSheet.PageSetup.BlackAndWhite = False
End If


Si la solution te convient n'oublie pas de la valider.
*Un exemple avec de la couleur aurait été plus judicieux ;)

*Merci de ton retour

@Phil69970
Re bonjour
merci pour ta réponse, mais malheureusement pour moi ça ne fonctionne pas j'ai toujours en couleur.
dans mon fichier joint au début, je souhaite imprimer deux onglets (e 1 et le 3) ça marche bien mais peut-être que je place pas bien le code dans le miens.

voici en plus du fichier joint au post1 le code que j'utilise avec l'ajout de ta proposition :

VB:
Retour = MsgBox("Voullez-vous une copie couleur : O/N ", vbYesNo + vbCritical)

If Retour = vbNo Then
    ActiveSheet.PageSetup.BlackAndWhite = True
Else
    ActiveSheet.PageSetup.BlackAndWhite = False
End If

Sheets(Array("Feuil1", "Feuil3")).Select

    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                   Filename:=oNomFichier, _
                                   Quality:=xlQualityStandard, _
                                   IncludeDocProperties:=True, _
                                   IgnorePrintAreas:=False, _
                                   OpenAfterPublish:=False

Merci pour l'aide.

Cordialement
 

Deadpool_CC

XLDnaute Accro
Pour l'avoir vécu sur mon parc de PC ...

Si cela ne fonctionne pas, vérifies aussi du coté de ton driver d'imprimante :
* selon les paramétrages tu peux avoir un forçage par défaut de la Couleur ou du N&B (surtout si piloter en central dans ton entreprise).
* Certaines marques d'imprimante ont des drivers qui ne sont pas 100% compatibles avec Windows concernant la transmission des options d'impressions des softs vers l'imprimante.
* si tu as un driver "générique" et non pas le driver du modèle exacte de ton imprimante tu peux aussi avoir des soucis de ce genre.

... A avoir en tête au cas ou
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof