Sub ImprimantesListeEtStatut() 'Lister imprimantes installées et préciser laquelle est active
Dim objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object
Dim nomPC As String, Resultat As String
nomPC = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & nomPC & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objPrinter In colInstalledPrinters
Resultat = Resultat & objPrinter.Name & " imprimante active : " & objPrinter.Default & vbLf
Next
MsgBox Resultat
End Sub
Application.Dialogs(xlDialogPrinterSetup).Show
Private Sub UserForm_Initialize()
ImprimantesListeEtStatut
End Sub
Sub ImprimantesListeEtStatut() 'Lister imprimantes installées et préciser laquelle est active
Dim objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object
Dim nomPC As String, Resultat As String
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 & " : " & objPrinter.Default
End With
Next
End Sub