neu

SDL/cProgramFunctions.vb

@@ -510,20 +510,26 @@ Public Class cProgramFunctions
             End If
 
 
-            'Standard-Drucker:
-            Dim srchPrinter = ""
+            'Standard-Drucker as AVISO_OPTIONS:
             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
+                For Each i In cboPrinter.Items
+                    If i.ToString.ToUpper.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToUpper) Then '  If i.ToString = srchPrinter Then ' Contains, weil sonst \\dc02\ stört
+                        cboPrinter.SelectedItem = i
+                        Exit Sub
+                    End If
+                Next
             End If
+
+            'Standard-Drucker:
+            Dim oPS As New System.Drawing.Printing.PrinterSettings
             For Each i In cboPrinter.Items
-                If i.ToString.ToUpper.Contains(srchPrinter.ToUpper) Then '  If i.ToString = srchPrinter Then ' Contains, weil sonst \\dc02\ stört
+                If i.ToString.ToUpper.Contains(oPS.PrinterName.ToUpper) Then '  If i.ToString = srchPrinter Then ' Contains, weil sonst \\dc02\ stört
                     cboPrinter.SelectedItem = i
                     Exit Sub
                 End If
             Next
+
+
         End If
     End Sub