[VB.NET] การสร้างเอกสาร PDF จาก DataTable ด้วย Syncfusion PDF .NET Library

thongkorn

สำหรับโค้ดชุดนี้เป็นการใช้งาน Syncfusion PDF .NET Library ของฟรีจากค่าย Syncfusion ในการนำข้อมูลจาก DataTable มาแสดงผลในรูปแบบของตาราง รวมไปถึงวิธีการเพิ่มโลโก้กราฟิค และข้อความเข้ามาใส่ในเอกสาร แล้วแปลง (Convert) ให้เอกสารอยู่ในรูปแบบ PDF (Portable Document Format) ...

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

1. Imports Syncfusion.Pdf
   
2. Imports Syncfusion.Windows.Forms
   
3. Imports Syncfusion.Pdf.Parsing
   
4. Imports Syncfusion.Windows.Forms.Grid
   
5. Imports Syncfusion.Pdf.Graphics
   
6. Imports Syncfusion.Pdf.Tables
   
7. 
   
8. '/ H E L P
   
9. '/ https://help.syncfusion.com/cr/file-formats/Syncfusion.Pdf.Tables.PdfLightTable.html
   
10. 
    
11. Public Class frmPdfLightTable
    
12.     '/ Customize the application path.
    
13.     Dim strPathPDF As String = MyPath(Application.StartupPath)
    
14. 
    
15.     ' / --------------------------------------------------------------------------------
    
16.     ' / Get my project path
    
17.     ' / AppPath = C:\My Project\bin\debug
    
18.     ' / Replace "\bin\debug" with ""
    
19.     ' / Return : C:\My Project\
    
20.     Function MyPath(ByVal AppPath As String) As String
    
21.         '/ Return Value
    
22.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
23.         '// Put the \ (BackSlash) at the end.
    
24.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
25.     End Function
    
26. 
    
27.     '/ START HERE
    
28.     Private Sub frmPdfLightTable_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
29.         Call SamplePDF()
    
30.     End Sub
    
31. 
    
32.     ' / --------------------------------------------------------------------------------
    
33.     ' / Create or Generate PDF with Syncfusion.
    
34.     Private Sub SamplePDF()
    
35.         '/ Create a new PDF Document.
    
36.         Dim Doc As New PdfDocument()
    
37.         Doc.PageSettings.Size = PdfPageSize.A4
    
38.         Doc.PageSettings.Orientation = PdfPageOrientation.Portrait
    
39.         '/ Size A5 and Landscape
    
40.         'Doc.PageSettings.Size = PdfPageSize.A5
    
41.         'Doc.PageSettings.Orientation = PdfPageOrientation.Landscape
    
42.         '/ Add a Page.
    
43.         Dim Page As PdfPage = Doc.Pages.Add()
    
44. 
    
45.         '/ Create a PdfLightTable  
    
46.         Dim PdfLightTable As New PdfLightTable
    
47.         Try
    
48.             '/ Assign data source.
    
49.             PdfLightTable.DataSource = GetDataTable()
    
50.             '/ Set Column Headers of PdfLightTable
    
51.             With PdfLightTable
    
52.                 .Columns(0).ColumnName = "Primary Key"
    
53.                 .Columns(1).ColumnName = "รหัสสินค้า"
    
54.                 .Columns(2).ColumnName = "ชื่อสินค้า"
    
55.                 .Columns(3).ColumnName = "ราคา"
    
56.             End With
    
57.             '/ Create PDF graphics for the page
    
58.             Dim logo As PdfGraphics = Page.Graphics
    
59.             '/ Load the image from the disk.
    
60.             Dim image As New PdfBitmap(strPathPDF & "g2gnet.png")
    
61.             '/ Draw the image.
    
62.             logo.DrawImage(image, 10, 0)
    
63.             '/ Create Text Header.
    
64.             Dim HeaderFont As PdfFont = New PdfTrueTypeFont(New Font("Century Gothic", 18, FontStyle.Bold), True)
    
65.             '/ Create PDF graphics for the page.
    
66.             Dim graphics As PdfGraphics = Page.Graphics
    
67.             '/ Draw the text.
    
68.             graphics.DrawString("PDF Light Table Syncfusion (PDF .NET Library)", HeaderFont, PdfBrushes.Black, New PointF(100, 10))
    
69.             '/ Set new Font.
    
70.             HeaderFont = New PdfTrueTypeFont(New Font("Arial Unicode MS", 20, FontStyle.Bold), True)    '/ True = Unicode
    
71.             graphics.DrawString("ทดสอบภาษาไทย ประถมศึกษาชั้นปีที่ 1", HeaderFont, PdfBrushes.Black, New PointF(130, 35))
    
72. 
    
73.             '/ Declare font and define the header style in the table.
    
74.             Dim Font As PdfFont = New PdfTrueTypeFont(New Font("Arial Unicode MS", 12, FontStyle.Regular), True)
    
75.             Dim MyStyle = New PdfCellStyle(Font, PdfBrushes.Black, PdfPens.Orange)
    
76.             Dim HeaderStyle As New PdfCellStyle(Font, PdfBrushes.White, PdfPens.Orange)
    
77.             HeaderStyle.BackgroundBrush = PdfBrushes.Orange
    
78.             With PdfLightTable
    
79.                 .Style.HeaderStyle = HeaderStyle
    
80.                 .Style.DefaultStyle = MyStyle
    
81.                 '/ Set cell padding, Spacing.
    
82.                 .Style.CellPadding = 5
    
83.                 .Style.CellSpacing = 0
    
84.             End With
    
85. 
    
86.             '/ Create a new string format.
    
87.             Dim Format As New PdfStringFormat
    
88.             For i = 0 To 2
    
89.                 '/ Set the text Alignment columns 0- 2.
    
90.                 Format.Alignment = PdfTextAlignment.Left
    
91.                 Format.LineAlignment = PdfVerticalAlignment.Middle
    
92.                 PdfLightTable.Columns(i).StringFormat = Format
    
93.             Next
    
94.             '/ Set new stringformat.
    
95.             Format = New PdfStringFormat
    
96.             With Format
    
97.                 .Alignment = PdfTextAlignment.Right
    
98.                 .LineAlignment = PdfVerticalAlignment.Middle
    
99.             End With
    
100.             '/ Add the string format to PdfLightTable column.
     
101.             PdfLightTable.Columns(3).StringFormat = Format
     
102. 
     
103.             '/ Show header in the table.
     
104.             PdfLightTable.Style.ShowHeader = True
     
105.             '/ Draw grid to the Page of PDF Document.
     
106.             PdfLightTable.Draw(Page, New PointF(10, 76))
     
107. 
     
108.             '/ Save the Document
     
109.             Doc.Save(strPathPDF & "Output.pdf")
     
110.             '/ Close the Document
     
111.             Doc.Close(True)
     
112.             '/ Open PDF on PDFViewerControl
     
113.             Me.PdfViewerControl1.Load(strPathPDF & "Output.pdf", "")    '/ "" No Password
     
114. 
     
115.         Catch ex As Exception
     
116.             MessageBoxAdv.MessageBoxStyle = MessageBoxAdv.Style.Metro
     
117.             MessageBoxAdv.MessageFont = New Font("Tahoma", 12, FontStyle.Regular)
     
118.             MessageBoxAdv.Show(ex.Message, "รายงานความผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
119.         End Try
     
120. 
     
121.     End Sub
     
122. 
     
123.     ' / --------------------------------------------------------------------------------
     
124.     '// SAMPLE DATATABLE
     
125.     Private Function GetDataTable() As DataTable
     
126.         Dim DT As New DataTable
     
127.         '// Add Columns
     
128.         With DT.Columns
     
129.             .Add("PK", GetType(Integer))
     
130.             .Add("ProductID", GetType(String))
     
131.             .Add("ProductName", GetType(String))
     
132.             .Add("UnitPrice", GetType(String))
     
133.         End With
     
134.         '// Add Rows
     
135.         With DT.Rows
     
136.             '// PK, ProductID, ProductName, UnitPrice
     
137.             .Add(1, "01", "Classic Chicken", "45.00")
     
138.             .Add(2, "02", "Mexicana", "85.00")
     
139.             .Add(3, "03", "Lemon Shrimp", "110.00")
     
140.             .Add(4, "04", "Bacon", "90.00")
     
141.             .Add(5, "05", "Spicy Shrimp", "120.00")
     
142.             .Add(6, "06", "Tex Supreme", "80.00")
     
143.             .Add(7, "07", "Fish", "100.00")
     
144.             .Add(8, "08", "Pepsi Small", "20.00")
     
145.             .Add(9, "09", "Coke Small", "20.00")
     
146.             .Add(10, "10", "7Up Small", "20.00")
     
147.             .Add(11, "11", "มอคค่า", "85.00")
     
148.             .Add(12, "12", "อเมริกาโน่", "95.00")
     
149.             .Add(13, "13", "เอ็กซ์เพรสโซ่", "115.00")
     
150.             .Add(14, "14", "ชานมไข่มุก", "45.00")
     
151.             .Add(15, "15", "เหล้าเป็ก", "99.00")
     
152.         End With
     
153.         Return DT
     
154.     End Function
     
155. 
     
156.     Private Sub frmPdfLightTable_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
157.         Me.Dispose()
     
158.         GC.SuppressFinalize(Me)
     
159.         Application.Exit()
     
160.     End Sub
     
161. 
     
162. End Class

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

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

nakana51

ขอบคุณครับ