AW: Hallo Ransi, habe Drucker ...
22.07.2008 14:30:00
ransi
HAllo Kurt
Was muß ich jetzt machen ?
Erstmal ein genauso dummes Gesicht wie ich.
Kann ich nicht erklären.
;-)
Ausserdem kannst du noch versuchen ob hiervon etwas brauchen kannst:
Public Sub Noch_Mehr_Infos()
'Angepasst
'Original ist von Nepumuk ?
Dim objWMI As Object, objItem As Object, I, c As Long
Dim b As Integer
b = 1
Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
ExecQuery("Select * from Win32_Printer")
On Error Resume Next
For Each objItem In objWMI
b = b + 1
For Each I In objItem.properties_
c = c + 1
Cells(c, 1) = I.Name
Cells(c, b) = I.Value
Next
c = 0
Next
Set objWMI = Nothing
End Sub
Public Sub ander_Infos()
Dim objWMI As Object, objItem As Object, I, c As Long, b As Integer
Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
ExecQuery("Select * from Win32_PrinterConfiguration")
On Error Resume Next
For Each objItem In objWMI
b = b + 1
For Each I In objItem.properties_
c = c + 1
Cells(c, 1) = I.Name
Cells(c, b) = I.Value
Next
c = 0
Next
Set objWMI = Nothing
End Sub
Starte die Proceduren in 2 verschiedenen leeren Blättern.
Evtl. kann jemand da noch etwas rauslesen.
Ich weiss nicht mehr weiter.
ransi