Afficher liste des imprimante dans combobox sur userform
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
<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
- Afficher liste des imprimante dans combobox sur userform
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Spouleur imprimante - Guide
- Télécharger pilote imprimante hp - Télécharger - Pilotes & Matériel
- Comment cacher sa liste d'amis sur facebook - Guide
5 réponses
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