XL 2019 Imprimer en format PDF

Bonsoir,
j'ai cette petite vba qui fonctionne très bien , Cependant j'aurai souhaité :
- que l'impression se fasse en PDF et non vers mon imprimante par défaut
- Cette impression va dans un dossier sans lettres de lecteur , car dans le disque externe.
Est-ce possible ?
Par avance, merci



Sub Aperçu()
With Sheets("Fiche Article")
.PageSetup.PrintArea = .Range("A1:k" & _
.Range("A65536").End(xlUp).Row).Address
.PrintOut
End With
End Sub