Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub PrinterStatus()
Dim strComputer As String
Dim objWMIService
Dim colInstalledPrinters
Dim objPrinter
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)
For Each objPrinter In colInstalledPrinters
Select Case objPrinter.PrinterStatus
Case 3
MsgBox "Printer is Idle", , objPrinter.Name
Case 4
MsgBox "Printer is Printing", , objPrinter.Name
Case 5
MsgBox "Printer is Warming up", , objPrinter.Name
Case Else
MsgBox "Printer is off line", , objPrinter.Name
End Select
Next
End Sub
Een simpeler stukje VBA kan ik me bijna niet voorstellen.Zit er in je trukendoos niet iets simpeler?
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.