aide pour une impression pdf via une option d'impression

[yannick63430]

bonjour à tous,

je sollicites encore votre aide sur un point particulier car je débutes dans les macro vba.
Après de nombreuses recherches, j'ai pu trouver une macro pour créer une boite de dialogue pour imprimer certains onglets
dans cette optique, j'ai insérer une choix d'imprimante spécifique : pdf
ET je voudrais insérer l'option suivante pour que le nom du fichier et de l'onglet soient insérer automatiquement avant d'enregistrer sous:
.cOption("AutosaveFilename") = _
PDFName & "-" & ActiveSheet.Name



ainsi ma macro donne pour le moment sans l'option :
Private Sub commandbutton1_click()

Dim x As Byte
Dim verif As Boolean

verif = False

For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(x) = True Then
verif = True
Sheets(Me.ListBox1.List(x)).PrintOut , Copies:=1, ActivePrinter:="PDFCreator"


End If
Next

If verif = False Then MsgBox "Pas de selection pour impression"
End Sub

malheureusement je bloques sur cette option, je pense qu'il faut que je définisse d'autres paramètres mais je suis perdu.

merci d'avance pour votre aide.


Cordialement
Yannick