neu

SDL/cProgramFunctions.vb

@@ -24,6 +24,7 @@ Public Class cBerechtignungenFunctions
         For Each b In BERECHTIGUNEN
             If b.id = id And b.allowed Then Return True
         Next
+
         Return False
     End Function
 
@@ -449,21 +450,37 @@ Public Class cProgramFunctions
 
     End Function
 
+    Public Shared Sub initBONDrucker(cboPrinter As ComboBox, Optional srch As String = "")
+        'Wenn ein Standard BON Drucker existiert, dann diesen
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON <> String.Empty Then
+            initDrucker(cboPrinter, VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON)
+        Else
+            initDrucker(cboPrinter, srch)
+        End If
+
+    End Sub
+
+
 
     Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "")
         ' alle installierten Drucker ermitteln und 
         ' in in ein ArrayList-Objekt speichern
-        Dim sPrinters As New ArrayList
-        For Each sPrinter As String In PrinterSettings.InstalledPrinters
-            sPrinters.Add(sPrinter)
-        Next
+        Dim sPrinters As ArrayList
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST IsNot Nothing Then
+            sPrinters = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST
+        Else
+            sPrinters = New ArrayList
+            For Each sPrinter As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
+                sPrinters.Add(sPrinter)
+            Next
+        End If
 
         ' Array sortieren
         sPrinters.Sort()
 
         ' jetzt alle Drucker in sortierter Reihenfolge in einer
         ' ComboBox zur Auswahl anbieten
-        Dim oPS As New System.Drawing.Printing.PrinterSettings
         For i As Integer = 0 To sPrinters.Count - 1
             cboPrinter.Items.Add(sPrinters(i))
         Next
@@ -479,8 +496,17 @@ Public Class cProgramFunctions
                 Next
             End If
 
+
+            'Standard-Drucker:
+            Dim srchPrinter = ""
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
+                srchPrinter = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD
+            Else
+                Dim oPS As New System.Drawing.Printing.PrinterSettings
+                srchPrinter = oPS.PrinterName
+            End If
             For Each i In cboPrinter.Items
-                If i.ToString = oPS.PrinterName Then
+                If i.ToString.ToUpper.Contains(srchPrinter.ToUpper) Then '  If i.ToString = srchPrinter Then ' Contains, weil sonst \\dc02\ stört
                     cboPrinter.SelectedItem = i
                     Exit Sub
                 End If
@@ -501,19 +527,26 @@ Public Class cProgramFunctions
 
         ' jetzt alle Drucker in sortierter Reihenfolge in einer
         ' ComboBox zur Auswahl anbieten
-        Dim oPS As New System.Drawing.Printing.PrinterSettings
 
-        If PrinterSettings.InstalledPrinters.Count > 0 Then
+        If System.Drawing.Printing.PrinterSettings.InstalledPrinters.Count > 0 Then
             If srch <> "" Then
-                For Each i In PrinterSettings.InstalledPrinters
+                For Each i In System.Drawing.Printing.PrinterSettings.InstalledPrinters
                     If i.ToString.ToUpper.Contains(srch.ToUpper) Then
                         Return i
                     End If
                 Next
             End If
             If elseStandard Then
-                For Each i In PrinterSettings.InstalledPrinters
-                    If i.ToString = oPS.PrinterName Then
+                Dim srchPrinter = ""
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
+                    srchPrinter = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD
+                Else
+                    Dim oPS As New System.Drawing.Printing.PrinterSettings
+                    srchPrinter = oPS.PrinterName
+
+                End If
+                For Each i In System.Drawing.Printing.PrinterSettings.InstalledPrinters
+                    If i.ToString.ToUpper.Contains(srchPrinter.ToUpper) Then  '  If i.ToString = srchPrinter Then ' Contains, weil sonst \\dc02\ stört   
                         Return i
                     End If
                 Next