Afficher liste des imprimante dans combobox sur userform
cs_Le Pivert Messages postés 8437 Statut Contributeur -
<font size="2">Salut à tous</font>
J'ai un petit problème avec une macro.
En effet, lorsque je lance ma macro la liste des imprimantes s'affiche dans un combobox d'un userform:
Nom de l'imprimante sur PORTPROMPT:
Nom de l'imprimante sur SHRFAX:
Nom de l'imprimante sur USB002
Nom de l'imprimante sur USB001
...ETC...
Mon voeux est que je souhaiterais que la liste s'affiche comme suit:
Nom de l'imprimante sur Ne0..:
Nom de l'imprimante sur Ne0..:
Nom de l'imprimante sur Ne0..:
Nom de l'imprimante sur Ne0..:
...ETC...
Voici le code que j'utilise
'...………………………………………………………………………………………………………………………………………………………………..
Sub LISTE_IMPRIMANTE()
Dim NomPC, Printer As String
Dim ObjPrinter, ColInstalledPrinters, ObjWMiService As Object
Dim i As Integer
NomPC = "."
Set ObjWMiService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & NomPC & "\root\cimv2")
Set ColInstalledPrinters = ObjWMiService.ExecQuery("select * from win32_printer")
For Each ObjPrinter In ColInstalledPrinters
With Userform1
.ComboBox1.AddItem ObjPrinter.Name & " sur " & ObjPrinter.PortName
End With
Next
End Sub
'...………………………………………………………………………………………………………………………………………………………………..
Merci d'avance
5 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, d'où vient ce Ne0?
-
-
Je m'explique
Lorsque lance la macro les noms des imprimantes s'affiche comme par exemple
HP Deskjet 2700 série sur PORTPROMPT:
au lieu de
HP Deskjet 2700 série sur Ne05:
Comme je le souhaite
-
Le Ne05 vient de cette Macro lorsqu'on l'a lance
Sub Nom_Imprimante ( )
Dim NomPC, Printer As String Dim ObjPrinter, ColInstalledPrinters, ObjWMiService As Object Dim i As Integer NomPC = "." Set ObjWMiService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & NomPC & "\root\cimv2") Set ColInstalledPrinters = ObjWMiService.ExecQuery("select * from win32_printer")objPrinter = Application.activePrinter
Userform1.Combobox1.text = objPrinter
'Application.activePrinter=Userform1.Combobox1.text
End sub
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
