Choix imprimante

[Whooki]

Bonjour à tous.

Sur ma page je dispose d'un bouton 'PDF'. Lorsque je clic sur ce bouton je désire que ca me l'imprime via PDF creator, puis que ça me remette mon imprimante par défaut. Le problème c'est que mon imprimante par défaut n'est pas la même chaque jour (pc portable). De plus je suis obligé d'utiliser la méthode ci dessous.

Je souhaiterais qu'à la fin de ce code initialiser mon imprimante par défaut.

Merci par avance.

Private Sub CommandButton4_Click()

Dim Variable_Imp As String

For aa = 0 To 9
Nom = 'PDF sur ne0' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next


End Sub

 

[Whooki]

Voici mon code:

Private Sub CommandButton1_Click()

Dim monimprimante

monimprimante = ActivePrinter 'récupérer imprimante active

For aa = 0 To 9
Nom = 'PDFcreator sur Ne00:' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next

'Là ta conversion en PDF puis

ActivePrinter = monimprimante 'remettre imprimante active

End Sub
et cà ne fonctionne toujours pas, j'ai réinstallé le logiciel.

Merci