neu

Aviso/frmSendungsdetailsNEU.vb

@@ -1726,10 +1726,17 @@ Public Class frmSendungsdetailsNEU
 
             ' 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 PrinterSettings.InstalledPrinters
+                    sPrinters.Add(sPrinter)
+                Next
+            End If
+
 
             ' Array sortieren
             sPrinters.Sort()
@@ -1746,29 +1753,13 @@ Public Class frmSendungsdetailsNEU
                 End If
             Next
 
-            setCboSelected(oPS.PrinterName)
 
-            If False Then
-
-                If sPrinters.Count > 0 Then
-                    cboPrinter.SelectedIndex = 0
-                    For Each i In cboPrinter.Items
-                        If i.ToString = oPS.PrinterName Then
-                            cboPrinter.SelectedItem = i
-                            Exit For
-                        End If
-                    Next
-                End If
-
-
-                '  For Each i In cboPrinter.Items
-                'If i.ToString.ToUpper.Contains("TALLY") Then
-                'cboPrinter.SelectedItem = i : Exit For
-                ' End If
-                '    Next
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
+                setCboSelected(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD)
+            Else
+                setCboSelected(oPS.PrinterName)
             End If
 
-
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim initialisieren der Drucker!")
         End Try
@@ -1808,7 +1799,7 @@ Public Class frmSendungsdetailsNEU
             If found = False Then 'Falls kein TALLY, Standarddrucker
                 cboPrinter.SelectedIndex = 0
                 For Each i In cboPrinter.Items
-                    If i.ToString = standardDrucker Then
+                    If i.ToString.ToUpper.Contains(standardDrucker.ToUpper) Then  '  If i.ToString = standardDrucker Then ' Contains, weil sonst \\dc02\ stört   
                         cboPrinter.SelectedItem = i
                         Exit For
                     End If