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
345

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 752
dernier inscrit
fred13340