neu

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1081,6 +1081,15 @@ Public Class cFormularManager
     End Sub
 
 
+    Public Shared Sub mergePDFs(files As List(Of String), ByRef outputFile As String)
+        Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
+        doc.Save(outputFile, Spire.Pdf.FileFormat.PDF)
+
+    End Sub
+
+
+
+
     Public Shared Sub PrintViaSpirePDF(PDFFile As String(), Optional printerName As String = "")
         Try
             If printerName = "" Then
@@ -1095,8 +1104,25 @@ Public Class cFormularManager
                 doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
                 doc.PrintDocument.DefaultPageSettings.Landscape = True
                 doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize
+
                 doc.PrinterName = printerName
                 doc.PrintDocument.Print()
+
+
+                'Dim doc As New Spire.Pdf.PdfDocument
+                'doc.LoadFromFile(pdfPath)
+                'doc.Pages(0).TryCompressImage(0)
+                ''signature.SetSignNameWidth(float width);
+                'doc.SaveToFile("C:\Users\DEVELOPER1\Desktop\TEST.pdf", 0, 0, Spire.Pdf.FileFormat.PDF)
+
+
+                'Dim doc2 As New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\TEST.pdf")
+                'doc2.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
+                'doc2.PrintDocument.DefaultPageSettings.Landscape = True
+                'doc2.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize
+
+                'doc2.PrinterName = printerName
+                'doc2.PrintDocument.Print()
             Next
 
 
@@ -1106,6 +1132,17 @@ Public Class cFormularManager
     End Sub
 
 
+
+    'Public Shared Sub PrintViaitext7(PDFFile As String(), Optional printerName As String = "")
+    '    Try
+
+
+    '    Catch ex As Exception
+    '        MsgBox(ex.Message & ex.StackTrace)
+    '    End Try
+    'End Sub
+
+
     Public Shared Sub Print_PICTURE(File As String(), Optional printerName As String = "")
         Try
             If printerName = "" Then