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

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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…