Bonjour
J'ai un problème pour mon impresion

Suite a remplissage de mon formulaire access2010 disponible sur tout les pc du réseau.
Je souhaite executer l'impression d'un fichier PDF sur une imprimante definit ("prt025") sans pour autant changer l'imprimante par defaut du pc definitivement.

J'ai donc ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande146_Click()
 
Dim stDocName As String
DoEvents
 
 
stDocName = Me.Texte8
Set wsh = CreateObject("WScript.Network")
wsh.SetDefaultPrinter "prt025"
 
ShellExecute Me.hwnd, "print", "S:\DEMLONE\Déclaration Incorporation\" & stDocName & ".PDF", "", "", 1
End Sub

mais je ne sais pas comment revenir a l'ancienne imprimante par défaut.

pouvez vous m'aider????