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