VB.NET 合并PDF工具(PDF批量打印)

PdfSharp.ChartingPdfSharp

 ''' <summary> ''' 合并PDF文件 ''' </summary> ''' <param name="Save_Path">保存的地址</param> ''' <param name="files">文件列表</param> ''' <returns></returns> Public Function MergePdf(Save_Path As String, files As List(Of String)) As Boolean Try Using out_doc As New PdfDocument() For Each file As String In files Using input_doc As PdfDocument = PdfReader.Open(file, PdfDocumentOpenMode.Import) For Each page As PdfPage In input_doc.Pages out_doc.AddPage(page) Next input_doc.Close() End Using Next out_doc.Save(Save_Path) out_doc.Close() End Using Return True Catch e As Exception MessageBox.Show("合并错误:" & e.Message, "合并", Nothing, MessageBoxIcon.Error) End Try Return False End Function

https://vbee.lanzous.com/ijrOQk08ayh