Printer check

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
880
Goedenavond allen,

Zit met een vraagje en zit al een tijdje te zoeken.

Wil graag weten of m'n printer aan staat (om gegevens verlies tegen te gaan).

Is er een (simpele) optie?

Als m'n printer uit staat krijg ik wel een melding van Windows, maar ben de gegevens al kwijt dan..

Dacht iets meer aan Error nummer, maar ook dat niet.

Heeft iemand een idee?

Many thanks already

Vr. Gr.

Dutch
 
Dat kan bijvoorbeeld hiermee, met in het rood de naam van je printer
Code: 
Sub Afdrukken()
    If PrinterReady("[COLOR="#FF0000"]Send To OneNote 2016[/COLOR]") Then
        MsgBox "We 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
 
Laatst bewerkt:
Hee Edmoor thanks, morgenochtend ff checken, ga nu stoppen

Vr. Gr.

Dutch
 
Work around: wellicht wat off-topic.

Ik heb pdfcreator als default printer geïnstalleerd. Heb vaak met niet standaard situaties te maken en om dan een hele hoop papier te besparen print ik het eerst als pdf.
Van en aantal zaken wordt dat ook meteen als archief gebruikt en een aantal zaken gaat nog naar de "echte" printer.
Voor wat het waard is....het is vooral een "aanpak kwestie" en geen antwoord op jouw vraag.
Eens ding is zeker....als pdfcreator geïnstalleerd is heb je iig nooit een foutmelding en das heel veel ward, imho.... :cool:
 
He thanks voor de tip route99,

heb het ooit eens gemaakt, weet niet of ik nog een pdfcreator heb.

toevallig een adresje, waar ik er eentje zou kunnen downloaden?
 
In Windows 10 is standaard Microsoft Print to PDF aanwezig.
 
Goedemorgen Edmoor,

Gebruik windows 7.

Ben ff aan het stoeien geweest, heb hem aan de praat maar hij geeft alleen aan welke printer ik gebruik zeg maar.

Als de printer uit staat doet ie dat ook.

Bedoeling is, dat als de printer uit staat hij dit zegt zodat ik hierop kan reageren voordat er gegevens verloren zijn.

Heb ff een vb-tje gemaakt.
 

Bijlagen

Dat hele Run commando is overbodig, daar is een functie niet voor.
Code: 
Private Sub CommandButton1_Click()
    If Not PrinterReady("Canon iP7200 series XPS") Then
        MsgBox "De printer is niet gereed"
        Exit Sub
    End If
    [COLOR="#008000"]'Nu gaan we afdrukken[/COLOR]
End Sub
 
Kort anders teveel off topic : pdf rector kun je vooraf flink configureren eventueel met opslaglokatie en nog meer zaken, waaronder via command line aanroepen dus ook in een script. Als de printer een netwerk printer is kunnen je dan een ping check inbouwen? Geen goede reply dan niet kiezen.
 
Hoi Edmoor,

Van alles geprobeerd, maar krijg het niet goed werkend dat ie de juiste status v/d printer weergeeft..

Wat doe ik fout?
 

Bijlagen

Waarom gebruik je niet gewoon het voorbeeld uit #8?
In je document staat achter de knop wat anders.
 
Hoi Edmoor,

omdat deze ook niet werkt.. probeer van alles

zie het vb-tje...

De vraag was, of er de mogelijkheid was of je kon zien of je printer aan staat of niet...

Wat ie nu doet is alleen checken of de printer voor komt in de lijst op Windows, zoja dan zegt ie True

Maar gaat erom of ie uit staat...
 

Bijlagen

Laatst bewerkt:
Dan weet ik het ook niet.
Het werkt hier goed dus ik kan er niks aan wijzigen.
 
Ook als je printer uit hebt staan?

Als je printer uit staat en je wilt printen geeft ie geen error number, klopt dat?
 
Laatst bewerkt:
Ik zal dat morgen op kantoor eens testen.
Daar werkte het vanochtend ook goed maar niet de printer helemaal uit gezet.
 
Ja en daar gaat het juist om, of je kan herkennen of je printer "uit" staat...
 
Ik heb Offline getest, wellicht dat 'ie dan een andere status code terug geeft.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan