[VB.NET] การ Merge หรือรวมหน้าเอกสารไฟล์ PDF ด้วยของฟรีจากค่าย Syncfusion

thongkorn

การ Merge (เมิร์จ) หรือการรวมหน้าเอกสารไฟล์ PDF ในโค้ดตัวอย่างชุดนี้ จะสามารถเลือกจากหน้าเอกสาร PDF เพียง 1 ไฟล์ เพื่อมาทำการบันทึกเป็นไฟล์ใหม่ก็ได้ หรือเลือกหน้าจาก 2 ไฟล์ เพื่อมาทำการรวมกันเข้าไป และสุดท้ายเป็นการ Merge รวมไฟล์ทั้ง 2 ชุดเข้าหากันได้ทั้งหมดทุกหน้า ...

Add References ... ย้ำว่า Syncfusion Community จะต้องใช้ Net FrameWork ตั้งแต่เวอร์ชั่น 4.0 ขึ้นไป  เท่านั้น (Client จะใช้งานไม่ได้)


มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports Syncfusion.Pdf.Parsing
   
2. Imports Syncfusion.Pdf
   
3. Imports System.IO
   
4. 
   
5. Public Class frmMergePDF
   
6. 
   
7.     Dim GetPath As String = MyPath(Application.StartupPath)
   
8.     '// พาธและชื่อไฟล์ที่เป็นเอ้าพุท
   
9.     Dim PdfFileOutput As String = GetPath & "Sample.pdf"
   
10. 
    
11.     Private Sub btnMergePage_Click(sender As System.Object, e As System.EventArgs) Handles btnMergePage.Click
    
12.         '/ Loads a document
    
13.         Dim FirstDocument As New PdfLoadedDocument(GetPath & "FirstPDF.pdf")
    
14.         Dim SecondDocument As New PdfLoadedDocument(GetPath & "SecondPDF.pdf")
    
15.         '/ Create a new document
    
16.         Dim Document As New PdfDocument()
    
17.         Try
    
18.             '// โหลดไฟล์ PDF ตัวแรก แล้ววนรอบตามจำนวนหน้าที่ต้องการ
    
19.             '// เป็นการเลือกหมายเลขหน้า มาทำการจัดเรียง หรือสร้างในไฟล์ PDF ตัวใหม่
    
20.             For i As Integer = 0 To 0 'FirstDocument.Pages.Count - 1
    
21.                 '/ Imports loaded document page to the new document
    
22.                 Document.ImportPage(FirstDocument, i)
    
23.                 '/ Save the document
    
24.                 Document.Save(PdfFileOutput)
    
25.             Next
    
26.             '// หากไม่ต้องการเอกสารไฟล์ PDF ชุดที่ 2 ก็ตัดชุดนี้ทิ้งไป
    
27.             With Document
    
28.                 '/ ดึงไฟล์ PDF ตัวที่ 2 เข้ามา ตัวอย่างคือเลือกแค่หน้าแรกมาต่อท้ายเข้าไป
    
29.                 .ImportPage(SecondDocument, 0)  '<-- เพิ่มหน้าแรกสุด
    
30.                 '.ImportPage(SecondDocument, 2) '<-- เพิ่มหน้าที่ 3 (Index = 2)
    
31.                 '/ บันทึก Document
    
32.                 .Save(PdfFileOutput)
    
33.                 '/ Closes the documents
    
34.                 .Close(True)
    
35.             End With
    
36.             FirstDocument.Close(True)
    
37.             SecondDocument.Close(True)
    
38.             '/ Display new PDF
    
39.             Me.PdfViewerControl1.Load(PdfFileOutput, "")
    
40.             '//
    
41.         Catch ex As Exception
    
42.             MessageBox.Show(ex.Message)
    
43.         End Try
    
44.         Document.Dispose()
    
45.         FirstDocument.Dispose()
    
46.         SecondDocument.Dispose()
    
47.     End Sub
    
48. 
    
49.     Private Sub btnMergeAll_Click(sender As System.Object, e As System.EventArgs) Handles btnMergeAll.Click
    
50.         Try
    
51.             Dim FinalDoc As New PdfDocument()
    
52.             ' Creates a string array of source files to be merged.
    
53.             '/ Loads a document
    
54.             Dim Source As String() = {GetPath & "FirstPDF.pdf", GetPath & "SecondPDF.pdf"}
    
55.             '/ Merges PDFDocument.
    
56.             PdfDocument.Merge(FinalDoc, Source)
    
57.             '/ Saves the final document
    
58.             FinalDoc.Save("Sample.pdf")
    
59.             '/ Saves the final document
    
60.             FinalDoc.Save(PdfFileOutput)
    
61.             '/ Closes the document
    
62.             FinalDoc.Close(True)
    
63.             '/ Display new PDF
    
64.             Me.PdfViewerControl1.Load(PdfFileOutput, "")
    
65.             '//
    
66.             FinalDoc.Dispose()
    
67.         Catch ex As Exception
    
68.             MessageBox.Show(ex.Message)
    
69.         End Try
    
70.     End Sub
    
71. 
    
72.     Function MyPath(ByVal AppPath As String) As String
    
73.         '/ MessageBox.Show(AppPath);
    
74.         AppPath = AppPath.ToLower()
    
75.         '/ Return Value
    
76.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
    
77.         '// If not found folder then put the \ (BackSlash) at the end.
    
78.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
79.     End Function
    
80. 
    
81.     Private Sub frmMergePDF_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
82.         Me.Dispose()
    
83.         GC.SuppressFinalize(Me)
    
84.         Application.Exit()
    
85.     End Sub
    
86. 
    
87. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้จากที่นี่ ...