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
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