neu

Aviso/frmEintragAviso.vb

@@ -113,7 +113,8 @@ Public Class frmEintragAviso
         If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
             ATILLA_NEUERAKTENDECKEL = True
         End If
-        initDrucker()
+        'initDrucker()
+        SDL.cProgramFunctions.initDrucker(cboPrinter)
 
         If StartFromOUTLOOK Then
             optSchriftlich.Checked = True
@@ -1258,32 +1259,32 @@ Public Class frmEintragAviso
     End Sub
 
 
-    Sub initDrucker()
-        ' 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
+    'Sub initDrucker()
+    '    ' 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
 
-        ' Array sortieren
-        sPrinters.Sort()
+    '    ' Array sortieren
+    '    sPrinters.Sort()
 
-        ' printer()
+    '    ' printer()
 
-        ' jetzt alle Drucker in sortierter Reihenfolge in einer
-        ' ComboBox zur Auswahl anbieten
-        Dim oPS As New System.Drawing.Printing.PrinterSettings
-        Dim pList As List(Of PrinterList) = PROG.getPrinterList
-        For i As Integer = 0 To sPrinters.Count - 1
-            If PROG.isPrinterOnlineByList(pList, sPrinters(i)) Then
-                setCboEntry(sPrinters(i)) ' cboPrinter.Items.Add(sPrinters(i))
-            End If
-        Next
+    '    ' jetzt alle Drucker in sortierter Reihenfolge in einer
+    '    ' ComboBox zur Auswahl anbieten
+    '    Dim oPS As New System.Drawing.Printing.PrinterSettings
+    '    Dim pList As List(Of PrinterList) = PROG.getPrinterList
+    '    For i As Integer = 0 To sPrinters.Count - 1
+    '        If PROG.isPrinterOnlineByList(pList, sPrinters(i)) Then
+    '            setCboEntry(sPrinters(i)) ' cboPrinter.Items.Add(sPrinters(i))
+    '        End If
+    '    Next
 
-        setCboSelected(oPS.PrinterName)
+    '    setCboSelected(oPS.PrinterName)
 
-    End Sub
+    'End Sub
 
 
     'threadsicherer Aufruf