comment imprimer un Hyperlinks

Bonjour

Je demande encore votre aide pour mon problème.:cry:

Je désire imprimer directement le lien hypertext, mais pour le moment je n'arrive qu'a l'afficher!!
voici mon code :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() If TextBox10 = "Texte" Then Worksheets("fcp").Activate Range("C1").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End If

---

comment afficher le PDF, l'imprimer, refermer le PDF
tout ça automatiquement?
merci pour votre aide