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????![]()
Partager