XL 2010 Imprimer PDF NetB ou couleur

Phil69970 à dit:

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

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

Cliquez pour agrandir...

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

Phil69970 à dit:

Le fil

@jeanmi

Je te propose cette version que j'ai testé

*Merci de ton retour

@Phil69970

Cliquez pour agrandir...

jeanmi à dit:

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

Cliquez pour agrandir...

Phil69970 à dit:

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

Cliquez pour agrandir...