Checken of printer is online

Status
Niet open voor verdere reacties.
M

mark1987vw

Gebruiker
Lid geworden
19 mei 2009
Berichten
96
Goedemiddag,

Ik heb een kleine print macro die een bepaald gedeelte van de sheet uitprint door een bepaalde printer.
Nu wil ik vooraf dat deze gaat printen checken deze printer online is of niet.
Want anders geeft die een foutmelding en dat wil ik voor zijn.

Ik heb dit geprobeerd met deze code maar dit werkt niet.

Code: 
Sub PrintenBon()

If ActivePrinter = "EPSON TM-T70II Receipt" Then

    Sheets("Kassabon").Select
    Range("A1:D17").Select
    Selection.PrintOut Copies:=1, Collate:=True, ActivePrinter:="EPSON TM-T70II Receipt"

Else

MsgBox "Printer niet beschikbaar"

End If


End Sub

Heeft iemand een idee hoe dit mogelijk is. Of wat voor code ik moet toevoegen.
 
Zo bijvoorbeeld:
Code: 
Sub Afdrukken()
    If PrinterReady("EPSON TM-T70II Receipt") Then
        MsgBox "We kunnen gaan afdrukken"
    Else
        MsgBox "De printer is niet gereed"
    End If

End Sub

Function PrinterReady(PRT As String) As Boolean
    Dim strComputer As String
    Dim objWMIService
    Dim colInstalledPrinters
    Dim objPrinter
    strComputer = "."
    
    printer = """" & PRT & """"
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)
    For Each objPrinter In colInstalledPrinters
        If Split(objPrinter.Path_, "=")(1) = printer And objPrinter.PrinterStatus = 3 Then
            PrinterReady = True
        End If
    Next
End Function
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan