Imprimante par défault
Astro8899
Messages postés
77
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
-
15 févr. 2006 à 16:56
gallyhc Messages postés 386 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 19 février 2018 - 15 févr. 2006 à 20:17
gallyhc Messages postés 386 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 19 février 2018 - 15 févr. 2006 à 20:17
1 réponse
gallyhc
Messages postés
386
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
19 février 2018
2
15 févr. 2006 à 20:17
15 févr. 2006 à 20:17
Bonjour,
Sa, sa devrait te donné un petit coup de main.
' Déclaration des variables.
Dim wshnetwork As Object
' Installation de l'imprimante.
Set wshnetwork = CreateObject("wscript.network")
wshnetwork.addwindowsPrinterConnection "\" & txtServer & "" & UCase(txtPrinter.Text)
wshnetwork.setdefaultprinter "\" & txtServer & "" & UCase(txtPrinter.Text)
Bonne programmation,
[Gally Home Corp]
Sa, sa devrait te donné un petit coup de main.
' Déclaration des variables.
Dim wshnetwork As Object
' Installation de l'imprimante.
Set wshnetwork = CreateObject("wscript.network")
wshnetwork.addwindowsPrinterConnection "\" & txtServer & "" & UCase(txtPrinter.Text)
wshnetwork.setdefaultprinter "\" & txtServer & "" & UCase(txtPrinter.Text)
Bonne programmation,
[Gally Home Corp]
