Discussion :

[shepard01]

Bonjour,

Quand je lance la macro (enregistrement manuel) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EricDgn]

Bonjour,

Une piste (non testé):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.