Bonjour

Je cherche depuis quelques heures à résoudre un souci d'impression PDF
Je crée une page de rapport graphique (zone d'impression) et je souhaite l'imprimer (ou l'exporter mais je n'ai pas trouver de solutions) en PDF.
J'utilise simplement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
    ActiveSheet.Range("Rapport").PrintOut
Mais j'obtiens un fichier PDF illisible
L'impression manuelle marche très bien
Je soupçonne la déclaration de l'imprimante mais je n'en ai pas la preuve
Voici le code complet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
    Chemin = "D:\Mes documents\Téléchargements"
    Nom = "Rapport de synthèse"
    CheminComplet = Chemin & "\" & Nom & ".pdf"
    ActiveSheet.Range("Rapport").PrintOut Copies:=1, Preview:=False, ActivePrinter:="Adobe PDF sur Ne08:", PrintToFile:=True, Collate:=True, PrToFilename:=CheminComplet
Si vous aviez une idée pour me guider
Merci de vos retours