Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Impression sans couleurs de fond

Julien69

XLDnaute Nouveau
Bonjour à tous;

Je me tourne à nouveau vers votre savoir car pour finaliser mon projet il me manque plus qu'un bout de code.
Je m'explique sur mon fichier j'ai mis un code ou lorsque je click sur un bouton une check box me permet de choisir les feuilles que je souhaite imprimer, jusque là tout va bien.
Maintenant j'aimerais aussi via ce même bouton sélectionner les feuilles que je veux imprimer mais aussi que les couleurs des cases ne s'imprime pas.
Ci joint le bout de code( je ne met pas le code entier car tres long, juste la partie intérréssante)


Display the dialog box
CurrentSheet.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
For Each cb In PrintDlg.CheckBoxes
If cb.Value = xlOn Then
Worksheets(cb.Caption).Activate

ActiveSheet.PrintOut
End If
Next cb
End If
Else
MsgBox "Toutes les feuilles sont vides."
End If

' Delete temporary dialog sheet (without a warning)
Application.DisplayAlerts = False
PrintDlg.Delete

' Reactivate original sheet
CurrentSheet.Activate
End Sub

Je pensai rajouter au niveau "ActiveSheet.PrintOut" le code ColorIndex= None mais ca fonctionne pas.

Si quelqu'un à une solution je le remercie déjà

Merci
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Fond de couleur
Réponses
2
Affichages
798
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…