Staat printer aan?

[SeringZH]

Kan ik vanuit excel een controle uitvoeren of de printer aan staat?

Iets van: If Printer niet aan Then
MsgBog "Melding..."
Else
Printout enz.

 

[edmoor]

Probeer eens iets als dit:

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

Als dat goed gaat kan je er wel een functie van maken die True of False terug geeft.

 

[SeringZH]

Dit werkt niet.
Verwacht Sub End.
Ik zoek wat eenvoudiger
Na een druk op een knop moet er een bericht komen als de printer niet aan staat, anders gewoon printen.
Het is eigenlijk een voorzorg als men vergeten is de printer in te schakelen

 

[edmoor]

Wat ik plaatste werkt gewoon.
"Dit werkt niet" is wel erg kort door de bocht.
De tekst "Verwacht Sub End" zal ook niet worden getoond.
Het zal End Sub zijn en dan heb je de laatste regel niet meegekopieerd of je veranderd er iets aan en verteld dat er niet bij.

De geplaatste Sub is goed.

 

[SeringZH]

Het was niet kort bedoeld hoor.
Ik heb alles opnieuw gekopieerd en het blijft End Sub wordt verwacht.
Zit er in je trukendoos niet iets simpeler?

 

[snb]

Ik zie de lol niet:

geef een printopdracht; als de printer niet aantsaat komt van windows een melding; als je de printer daarna aanzet is er toch weinig aan de hand ?

 

[SeringZH]

Klopt, maar ik vind een eigen melding wat mooier.

 

[edmoor]

Als 'ie End Sub zegt te verwachten heb je het echt niet goed gedaan of de dubbele quote tekens zijn niet goed over gekomen.
Plaats je document hier eens.

Zit er in je trukendoos niet iets simpeler?

Een simpeler stukje VBA kan ik me bijna niet voorstellen.
Daarnaast wil je iets over de printers weten en dat zal toch echt via WMI moeten.

 

[SeringZH]

Bedankt voor de moeite, maar ik laat het maar zoals het nu is.
Het is niet iets urgents en het werkt verder prima.