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
375

Statistiques des forums

Discussions
313 344
Messages
2 097 337
Membres
106 916
dernier inscrit
Soltani mohamed