Zollstopp, Anhänge Atilla, div.

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -1785,4 +1785,29 @@ Public Class usrcntlAktDetailsATILLANeu
         End Try
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        ' ContextMenuStrip2.Show(Cursor.Position)
+        If dgvanhaenge.SelectedRows.Count >= 1 Then
+            Try
+                Dim files As New List(Of String) ' String() = New String() {"Sample1.pdf", "Sample2.pdf", "Sample3.pdf"}
+                Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
+
+                'Dim outl As New Outlook.Application
+                'Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                'Mail = outl.CreateItem(0)
+
+                For Each r As DataGridViewRow In dgvanhaenge.SelectedRows
+                    files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
+                Next
+                VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
+                'Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
+                'doc.Save(outputFile, Spire.Pdf.FileFormat.PDF)
+                Process.Start(outputFile)
+                ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH()
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End If
+    End Sub
 End Class