neu

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -23,6 +23,11 @@ Public Class cAllgemein
 
     Public Shared BÜRO As String
 
+    Public Shared PRINTER_BON As String
+    Public Shared PRINTER_STANDARD As String
+    Public Shared PRINTER_LIST As ArrayList = Nothing
+
+
     Public Shared dpi As Integer
     Public Shared TESTSYSTEM As Boolean = True
 
@@ -110,6 +115,16 @@ Public Class cAllgemein
         LOAD_TRANSLATE()
         LOAD_FIRMEN()
         LOAD_FILIALEN()
+
+        Try 'DRUCKER LADEN
+            Dim sPrinters As New ArrayList
+            For Each sPrinter As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
+                sPrinters.Add(sPrinter)
+            Next
+            VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST = sPrinters
+        Catch ex As Exception
+        End Try
+
         If TESTSYSTEM Then
             AVISO_SERVER = "[DEVELOPER\DEVSQL]"
             FMZOLL_SERVER = "[DEVELOPER\DEVSQL]"