neu

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1082,6 +1082,8 @@ Public Class cFormularManager
 
 
     Public Shared Sub mergePDFs(files As List(Of String), ByRef outputFile As String)
+
+        VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
         files.RemoveAll(Function(v) v.Equals("")) 'Alle leeren Stings löschen
         If files.Count > 0 Then
             Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
@@ -1095,10 +1097,9 @@ Public Class cFormularManager
     Public Shared Sub PrintViaSpirePDF(PDFFile As String(), Optional printerName As String = "")
         Try
             If printerName = "" Then
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
-                    Dim sPrinters As ArrayList
+                Dim sPrinters As ArrayList
 
-                    If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST IsNot Nothing Then
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST IsNot Nothing Then
                         sPrinters = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST
                     Else
                         sPrinters = New ArrayList
@@ -1106,13 +1107,17 @@ Public Class cFormularManager
                             sPrinters.Add(sPrinter)
                         Next
                     End If
+
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
+
                     For i As Integer = 0 To sPrinters.Count - 1
-                        If i.ToString.ToUpper.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToUpper) Then
+                        If i.ToString.ToLower.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToLower) Then
                             printerName = i
                         End If
                     Next
+                End If
 
-                Else
+                If printerName = "" Then
                     Dim oPS As New System.Drawing.Printing.PrinterSettings
                     printerName = oPS.PrinterName
                 End If
@@ -1120,6 +1125,10 @@ Public Class cFormularManager
             End If
             'Dim docs As Spire.Pdf.PdfDocument()            = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")}
 
+            If printerName = "" Then
+                MsgBox("Drucker konnte nicht ermittelt werden!")
+            End If
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
             For Each pdfPath In PDFFile
                 Dim doc As New Spire.Pdf.PdfDocument(pdfPath)
 
@@ -1202,6 +1211,8 @@ Public Class cFormularManager
 
     Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "")
         Try
+
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
             If printerName = "" Then
                 Dim oPS As New System.Drawing.Printing.PrinterSettings
                 printerName = oPS.PrinterName
@@ -1239,10 +1250,13 @@ Public Class cFormularManager
         Return System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".pdf"
     End Function
 
+
+
     Public Shared Function getPDFViaSpirePDF_FromURL(URL As String, Optional targetPath As String = "") As String
         Try
             If targetPath = "" Then targetPath = getTMPPath_PDF()
 
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
             Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL)
             doc.LoadFromHTML(URL, True, True, True)
             If doc IsNot Nothing Then