Druckerwarteschlange auslesen Mit diesem Code lassen sich alle noch anstehenden Druckaufträge in der Druckerwarteschlange auslesen.
Autor:   Dieter Otter	Bewertung:	Views:  22.790
www.tools4vb.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Sie möchten alle noch anstehenden Druckaufträge in der Windows Druckerwarteschlange auslesen und gezielt bestimmte Informationen zu den Druckaufträgen ermitteln?

Unter Verwendung von WMI ist das absolut kein Problem.

Erstellen Sie ein neues Projekt und fügen einen Verweis auf die System.Management-Assembly (System.Management.dll) hinzu.

Platzieren Sie auf die Form ein ListView-Control und ein Button und fügen nachfolgenden Code in den Codeteil der Form ein:

Imports System.Management
Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    ' ListView vorbereiten
    With ListView1
      With .Columns
        .Add("Dokument", 200)
        .Add("Drucker", 100)
        .Add("Status", 70)
        .Add("Seiten", 50, HorizontalAlignment.Center)
        .Add("Größe", 60, HorizontalAlignment.Right)
        .Add("Besitzer", 150)
      End With
      .View = View.Details
      .FullRowSelect = True
    End With
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' Druckerwarteschlange auslesen und in ListView eintragen
    Me.Cursor = Cursors.WaitCursor
    With ListView1
      .Items.Clear()
      .BeginUpdate()
 
      ' WMI-Abfrage erstellen und ausführen
      Dim sQuery As String = "SELECT * FROM Win32_PrintJob"
      Dim Jobs As New ManagementObjectSearcher(sQuery)
 
      ' Schleife durchlaufen und Infos zu den Druckaufträgen ermitteln
      For Each Job As ManagementObject In Jobs.Get()
        Dim Document As String = WMIGetInfo(Job, "Document")
        Dim Printer As String = WMIGetInfo(Job, "DriverName")
        Dim Status As String = WMIGetInfo(Job, "JobStatus")
        Dim Pages As String = WMIGetInfo(Job, "PagesPrinted") & " von " & _
          WMIGetInfo(Job, "TotalPages")
        Dim Size As Integer = Val(WMIGetInfo(Job, "Size"))
        Dim Owner As String = WMIGetInfo(Job, "Owner")
 
        With .Items.Add(Document)
          .SubItems.Add(Printer)
          .SubItems.Add(Status)
          .SubItems.Add(Pages)
          .SubItems.Add(FormatNumber(Size / 1024, 1, , , TriState.True) & " KB")
          .SubItems.Add(Owner)
        End With
      Next
 
      .EndUpdate()
    End With
    Me.Cursor = Cursors.Default
  End Sub

  ''' <summary>
  ''' Hilfsfunktion. Gibt den Eigenschaftenwert des Objekts zurück, falls vorhanden.
  ''' Ist der Eigenschaftenwert nicht verfügbar, wird ein Leerstring zurückgegeben.
  ''' </summary>
  Private Function WMIGetInfo(ByVal WMIObj As ManagementObject, _
    ByVal Key As String) As String
 
    If Not WMIObj(Key) Is Nothing Then
      Return WMIObj(Key).ToString
    Else
      Return ""
    End If
  End Function

End Class

Beim Klick auf den Button wird die Druckerwarteschlange ausgelesen und die jeweiligen Druckaufträge im ListView aufgelistet.

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.