tutorials.de Buch-Aktion 05/2012
ERLEDIGT
NEIN
ANTWORTEN
2
ZUGRIFFE
456
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #1
    Outsider77 Outsider77 ist offline Mitglied Silber
    Registriert seit
    Sep 2008
    Beiträge
    96
    Hallo zusammen!
    Mit folgendem Code lese ich die lokal installierten Drucker und deren Satus aus.
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    
    Public Class Form1
     
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim objWMIService As Object
            Dim colPrint As Object
            Dim strprinter As Object
            Dim strpstatus As String
            Dim pstatus As String
     
            objWMIService = GetObject("winmgmts://./root/cimv2")
            colPrint = objWMIService.execquery("select * from win32_Printer")
     
            For Each colPrnt In colPrint
                strprinter = colPrnt.caption
                strpstatus = colPrnt.printerstatus
     
                Select Case strpstatus
                    Case 1
                        pstatus = "Fehler"
                    Case 2
                        pstatus = "Unbekannt"
                    Case 3
                        pstatus = "Bereit"
                    Case 4
                        pstatus = "Druckt"
                    Case 5
                        pstatus = "Aufwärmen"
                    Case 6
                        pstatus = "Druck beendet"
                    Case 7
                        pstatus = "Offline"
                End Select
     
                Me.ListBox1.Items.Add(strprinter)
                Me.ListBox2.Items.Add(pstatus)
     
            Next
        End Sub

    Allerdings verstehe ich nicht, warum mir als Satus "Bereit" angezeigt wird, obwohl der Drucker ausgeschaltet ist.
    Hab ich da vielleicht was falsch verstanden? Ich dachte, dann zeigt er "Offline" an.
    Der Drucker hängt am parallelen Anschluß.
    Oder muß ich das anders abfragen und wenn ja, wie?
    Danke schonmal!
    Gruß Outi
     

  2. #2
    Avatar von Shakie
    Shakie Shakie ist offline Mitglied Diamant
    Registriert seit
    May 2004
    Ort
    Europa
    Beiträge
    2.048
    Ich vermute du sprichst damit nur den Spooler an, nicht den Drucker selber. Schau dir mal das hier und das hier an, vielleicht hilft dir das weiter.
    Geändert von Shakie (28.06.10 um 16:05 Uhr)
     

  3. #3
    Outsider77 Outsider77 ist offline Mitglied Silber
    Registriert seit
    Sep 2008
    Beiträge
    96
    Danke für Deine schnelle Antwort!
    Leider erhalten ich bei diesen Beispielen das selbe Ergebnis!
    Es muß doch irgendwie möglich sein, den Status "Offline" zu erhalten,
    wenn der Drucker ausgeschaltet ist.
    Für jede Hilfe bin ich dankbar!

    Edit:
    Ich habe was von der inpout32.dll gelesen.
    Ist es vielleicht damit möglich, den Port oder vielmehr das angeschlossene Gerät "auszulesen"?
    Geändert von Outsider77 (30.06.10 um 06:16 Uhr)
     

Ähnliche Themen

  1. usb drucker
    Von mostly_harmless im Forum C/C++
    Antworten: 2
    Letzter Beitrag: 10.11.08, 21:20
  2. Drucker?
    Von firstlord18 im Forum Hardware
    Antworten: 6
    Letzter Beitrag: 10.12.05, 15:24
  3. Status?
    Von Janares im Forum Visual Basic 6.0
    Antworten: 10
    Letzter Beitrag: 23.04.03, 11:40