neu

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1093,8 +1093,28 @@ Public Class cFormularManager
     Public Shared Sub PrintViaSpirePDF(PDFFile As String(), Optional printerName As String = "")
         Try
             If printerName = "" Then
-                Dim oPS As New System.Drawing.Printing.PrinterSettings
-                printerName = oPS.PrinterName
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
+                    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
+                    For i As Integer = 0 To sPrinters.Count - 1
+                        If i.ToString.ToUpper.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToUpper) Then
+                            printerName = i
+                        End If
+                    Next
+
+                Else
+                    Dim oPS As New System.Drawing.Printing.PrinterSettings
+                    printerName = oPS.PrinterName
+                End If
+
             End If
             'Dim docs As Spire.Pdf.PdfDocument()            = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")}