Lignes grasses aléatoires à l'impression PDF

Bonjour,

Quand je lance la macro (enregistrement manuel) :

Code:

---

1 2 3 4 5 6

Sub ENR_PDF()   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=True   End Sub

---

Je n'ai pas de problèmes. Ma page sort en PDF sans lignes "grasses" aléatoires.

Mais avec le code (pour un enregistrement auto)

Code:

---

1 2 3

ActiveSheet.Outline.ShowLevels RowLevels:=1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=snom_et_path_FICHIER, IgnorePrintAreas:=True, OpenAfterPublish:=True

---

J'obtiens des lignes épaisses et noires au niveau de mes tableaux et cela de manière aléatoire.

Une proposition de solution svp ? merci

Edit : J'ai désinstallé l'imprimante virtuelle Adobe PDF

Bonjour,

Une piste (non testé):

Code:

---

1 2 3 4 5 6 7

ActiveSheet.Outline.ShowLevels RowLevels:=1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ Filename:=snom_et_path_FICHIER, _ IgnorePrintAreas:=True, _ OpenAfterPublish:=True

---

avec ou sans Quality
avec ou sans IncludeDocProperties
et essayer cela aussi en mettant dans la mise en page de la feuille un zoom à 99%.

Cordialement.