Abfragen ob ein Druckspooler ungedruckte Aufträge enthält

dive26 · 6. August 2014, 18:42

Ich habe lange nach einer Lösung dafür gesucht und heute auch gefunden. Ich möchte Euch mein Codeschnippsel zur Verfügung stellen, da in keinem Forum eine praktikable Lösung mit überschaubarem Code zu finden war.

Zuerst muss man den Dienstverweis zur System.Printing hinzufügen (siehe Screenshot)

Zur Info: Ich übergebe der Routine keine Parameter. Die einzelnen Druckernamen befinden sich in einer Auflistung DruckerHardware(0-256).Druckername

VB.NET-Quellcode

Imports System.Printing
''' <summary>
''' Überprüft ob ungedruckte Druckaufträge in den Drucker-Spoolern existieren
''' Die Druckernamen befinden sich in einem globalen Array
''' </summary>
''' <remarks></remarks>
Public Sub DruckSpoolerPruefung()
Dim ps As New LocalPrintServer()
Dim myPrintQueues As New PrintQueueCollection
Dim Alarm As Boolean = False
For i As Integer = 0 To 256
Alarm = False
If DruckerHardware(i).Druckername <> "" Then 'Die Druckernamen befinden sich in einem globalen Array
Dim PrQu As PrintQueue = ps.GetPrintQueue(DruckerHardware(i).Druckername)
Dim jobs As PrintJobInfoCollection = PrQu.GetPrintJobInfoCollection()
For Each job As PrintSystemJobInfo In jobs
'Sobald hier durchlaufen wird, existiert ein Job im Druckspooler
Alarm = True
Next job
If Alarm = True Then MessageBox.Show("Es befinden sich ungedruckte Aufträge im Spooler von " + _
DruckerHardware(i).Druckername + "." , "Spooler-Alarm", MessageBoxButtons.OK, MessageBoxIcon.Information)
jobs = Nothing
PrQu = Nothing
End If
Next i
myPrintQueues = Nothing
ps = Nothing
End Sub

VincentTB · 7. August 2014, 15:00

Das kann man aber an der Qualität noch wesentlich verbessern:

Alles sollte Englisch sein (Methodennamen, Variablennamen, ...)
Ob ein String leer ist überprüft man mit String.IsNullOrEmpty()
Strings verknüpft man nicht mit + sondern mit &, aber in dem Fall wäre String.Format() sinnvoll
Ob etwas in einem Array ist kann man mit .Length > 0 oder bei einer Liste mit .Count > 0 überprüfen
Wenn etwas nicht IDisponsable implementiert musst du nichts mit dem Objekt tun, wenn du es nicht mehr brauchst. Wenn etwas IDisponsable solltest du es Disponsen.
Übergib doch bitte die Drucker als Parameter, das ist so ziemlich unschön.
Wo brauchst du myPrintQueues?
Ich konnte den Code nicht testen, weil ich keine Ahnung habe, was DruckerHardware ist oder sein soll und wo man es herbekommt. Vielleicht könntest du mal einen vollständig funktionierenden Code bereitstellen, den man nur C & P muss, damit er funktioniert.

Hier mal ein bisschen optimierte Code:

VB.NET-Quellcode

''' <summary>
''' Überprüft ob ungedruckte Druckaufträge in den Drucker-Spoolern existieren
''' Die Druckernamen befinden sich in einem globalen Array
''' </summary>
''' <remarks></remarks>
Public Sub CheckPrintQueue()
Using ps As New LocalPrintServer()
For i As Integer = 0 To 256
If Not String.IsNullOrEmpty(DruckerHardware(i).Druckername) Then
Using jobs As PrintJobInfoCollection = ps.GetPrintQueue(DruckerHardware(i).Druckername).GetPrintJobInfoCollection()
If jobs.Count() > 0 Then MessageBox.Show(String.Format("Es befinden sich ungedruckte Aufträge im Spooler von {0}.", DruckerHardware(i).Druckername), "Spooler-Alarm", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Using
End If
Next
End Using
End Sub

dive26 · 7. August 2014, 16:37

Punkt 1-6 stimme ich natürlich zu.
Punkt 7: hast recht, brauch ich nicht.
Punkt 8:

Zur Info: Ich übergebe der Routine keine Parameter. Die einzelnen Druckernamen befinden sich in einer Auflistung DruckerHardware(0-256).Druckername

Für meine Bedürfnisse befinden sich in "Druckerhardware(0,256).Druckername natürlich noch andere Infos. Für das Beispiel könnte man auch Dim DruckerNamen(256) dimensionieren und übergeben.

nafets3646 · 7. August 2014, 17:35

Wieso deklarierst du die Methode denn nicht als Function und gibst dann die Informationen in der Rückgabe raus, anstatt diese direkt innerhalb der Sub zu verwerten.

dive26 · 7. August 2014, 20:05

Würde natürlich Sinn machen, wenn ich diese Funktion öfter benötigen würde.
Jedoch wird diese Funktion gerade einmal beim Start der Software aufgerufen und kann daher gleich "alles" übernehmen. Dann brauche ich an der Aufrufenden Stelle nur eine Zeile mit dem Funktionsaufruf zu schreiben - was die Hauptfunktionen übersichtlicher macht.

Mein Datenkonstrukt DruckerHardware() ist global für alle Funktionen erreichbar, da diese nur ausgelesen werden muss. Ist einfacher zu handhaben. Dort befinden sich in einer Liste alle Drucker im System und auch diverse andere Informationen die für den Belegdruck relevant sind.

VB.NET-Quellcode

<Serializable()> _
Public Structure DruckerHardwareStructure
Dim Druckername As String
Dim DruckertreiberName As String
Dim Anschluss As String
Dim aktiv As Boolean
Dim XOffsetRechnungen As Double
Dim XOffsetBerichte As Double
Dim Kopien As Integer
Dim Icon As Image
Dim Ersatzdrucker As String
Dim KlemmleisteOben As Double
Dim KlemmleisteUnten As Double
Dim EinzelbonsProArtikelnummer As Boolean
Dim Speisenfolgen As Boolean
Dim SchriftartKlein As Font
Dim SchriftartGross As Font
Dim TischErstbuchungsdatum As Boolean
Dim Tischnummer As Boolean
Dim TischnummerGross As Boolean
Dim Bondatum As Boolean
Dim Bedienername As Boolean
Dim Kassenkennung As Boolean
Dim Gastname As Boolean
Dim GastnameGross As Boolean
Dim Bonnummer As Boolean
Dim Artikelgross As Boolean
Dim Artikelpreise As Boolean
Dim Gesamtsumme As Boolean
Dim Barcode As Boolean
Dim Artikelzusatztexte As Boolean
Dim Vorhanden As Integer
Dim Signalgeber As Boolean
Dim Ausgabenummer As Boolean
End Structure
Public DruckerHardware(256) As DruckerHardwareStructure

Abfragen ob ein Druckspooler ungedruckte Aufträge enthält

Abfragen ob ein Druckspooler ungedruckte Aufträge enthält

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben