XL 2010 Imprimer PDF NetB ou couleur

[jeanmi]

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

 

[Phil69970]

Bonjour @jeanmi

Je te propose ceci adapté de cette conversation que j'avais eu il y a quelques temps
(Non tester)

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

Microsoft 365 - Imprimer des fichiers issus d'une liste avec paramêtres imprimante.

Bonjour à tous, Je cherche à imprimer les fichiers contenus dans une liste. Le problème est que les différents codes que je trouve parlent de ActiveSheet.PageSetup ou autre mais de fait, cela fait référence au fichier excel en lui même et non pas à un fichier annexe (liste). Tout est expliqué...

www.excel-downloads.com

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

 

[jeanmi]

Bonjour @jeanmi

Je te propose ceci adapté de cette conversation que j'avais eu il y a quelques temps
(Non tester)

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

Microsoft 365 - Imprimer des fichiers issus d'une liste avec paramêtres imprimante.

Bonjour à tous, Je cherche à imprimer les fichiers contenus dans une liste. Le problème est que les différents codes que je trouve parlent de ActiveSheet.PageSetup ou autre mais de fait, cela fait référence au fichier excel en lui même et non pas à un fichier annexe (liste). Tout est expliqué...

www.excel-downloads.com

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 :

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

 

[Phil69970]

Le fil

@jeanmi

Je te propose cette version que j'ai testé

*Merci de ton retour

@Phil69970

 

[Deadpool_CC]

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

 

[jeanmi]

Le fil

@jeanmi

Je te propose cette version que j'ai testé

*Merci de ton retour

@Phil69970

Bonjour à tous,

Merci beaucoup #Phil69970, ça fonctionne nickel
juste une petite question, : lorsque l'on imprime en NetB les case de couleur ne ressorte pas en impression sur le PDF ?

 

[Phil69970]

Le fil

@jeanmi

lorsque l'on imprime en NetB les case de couleur ne ressorte pas en impression sur le PDF ?

Cela me semble normal car excel ignore la couleur et donc il fait comme si les cellules sont sans couleur donc sans rien.

Si la solution te convient n'oublie pas de la valider.

@Phil69970

 

[jeanmi]

Le fil

@jeanmi


Cela me semble normal car excel ignore la couleur et donc il fait comme si les cellules sont sans couleur donc sans rien.

Si la solution te convient n'oublie pas de la valider.

@Phil69970

Bonjour à #Phil69970 à tous,
Bien sur que la solution que tu m'as données me convient, même très bien.
Cordialement