Code pour impression en pdf

Julien69

XLDnaute Nouveau
Bonjour a tous

J'ai trouver un code pour l'impression en format pdf, mais j'aimerai appronfondir ce code car je souhaiterai que lors de l'impression en pdf de mes feuille n'apparaissent pas les couleurs de fond.
Si quelqu un peu m'aider
Voici le code dejà mis en place et qui fonctionne

"Private Sub CommandButton2_Click()



' Masquage des feuilles qui n'apparaissent pas dans le rapport
Sheets("accueil").Visible = False
Sheets("incert").Visible = False
Dim temp1(), temp2()



' Sauvegarde du fihcier sous forme de PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Desktop\Rapport 2012\" + CStr(Worksheets("Données").Cells(5, 4).Value) + " - " + CStr(Worksheets("accueil").Cells(5, 4).Value) + ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True



End Sub

Merci
 

Discussions similaires

Réponses
2
Affichages
418

Membres actuellement en ligne

Statistiques des forums

Discussions
313 769
Messages
2 102 234
Membres
108 181
dernier inscrit
Chr1sD