[VB.NET] พื้นฐานการพิมพ์รายงานด้วย ActiveReports .NET ลงบนกระดาษขนาด A4

thongkorn

การทำรายงาน หรือ Report แบบ Hard Copy ก็จะมีอยู่ 2 ค่ายหลักใหญ่ๆคือ Crystal Report หรือ CR และ ActiveReports หรือ (AR) สำหรับตัวแอดมินเองถนัดและชื่นชอบการใช้งาน AR มาตั้งแต่ยุค AR2 ActiveX/COM ซึ่งเดิมเป็นของค่าย DataDynamics แต่ตอนหลังก็ถูกรวบไปขึ้นอยู่กับเมืององุ่น GrapeCity สาเหตุที่แอดมินชอบเจ้า AR เป็นพิเศษ ก็เพราะว่าลักษณะการทำงานของ AR จะเหมือนกับฟอร์มๆหนึ่งในตัว Visual Basic เอง และตัวมันเองสามารถทำการแสดงผลข้อมูลได้ดีและรวดเร็วทั้ง Bound Data และ UnBound Data ... จบ ...
อ่านรายละเอียดเพิ่มเติมกับแหล่งข้อมูลของ ActiveReports รุ่นต่างๆได้ที่นี่ ...
หรือ
ดาวน์โหลดชุดติดตั้ง ActiveReports .NET (V6) ได้ที่นี่ (เฉพาะสมาชิกเท่านั้น)
อ่านวิธีการเรียกใช้งาน ActiveReports แบบเบื้องต้น
ก้าวแรกกับการพิมพ์รายงานด้วย ActiveReports .NET
ขอสรุปการทำงานของ AR ให้ฟังแบบสั้นๆก็คือ ... ทุกๆครั้งที่เรียกใช้งาน ActiveReports จะเริ่มกระบวนการขั้นตอนแรกที่โปรแกรมย่อยที่มีชื่อว่า ReportStart เพื่อทำการตั้งค่าหน้ากระดาษ ค่าตัวแปร หรือ Control ต่างๆในแบบ @Run Time เพียงครั้งแรกครั้งเดียวก่อนที่จะทำการพิมพ์ แต่หลังจากนั้น ...

หลักการที่สำคัญของ ActiveReports
(1) เริ่มการอ่านแถวข้อมูลเข้ามาจากโปรแกรมย่อย FetchData โดยทำการเปรียบเทียบค่าด้วยการนับรายการ (หากใช้ฐานข้อมูลจริง ส่วนนี้ก็จะใช้ในการทำกรุ๊ปด้วย)
(2) หากข้อมูลหรือจำนวนแถวยังไม่หมด นั่นคือ EOF (หรือ End Of File) = False ก็กระโดดมาทำการพิมพ์ที่  Detail1_Format หากหมดข้อมูลแล้ว EOF = True ก็จะสิ้นสุดกระบวนการพิมพ์
(3) กลับไปข้อที่ 1 อีกครั้ง เพื่อตรวจสอบว่ามีข้อมูลจะพิมพ์อีกหรือไม่
*** ขั้นตอนทั้งหมดนี้ คุณจะมองเห็นภาพได้อย่างชัดเจนก็ต่อเมื่อคุณใช้ Debugger ***

References ... ก่อนการใช้งานต้องเรียกเข้ามาก่อนเสมอนะครับ

มาดูโค้ดในส่วนของ ActiveReports ...

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / ทุกๆครั้งที่เริ่มต้นสั่งพิมพ์ จะต้องตั้งค่าเริ่มต้นใน ReportStart เพียงครั้งแรกและครั้งเดียว
   
3.     Private Sub AR6PrintEmployee_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
   
4.         '/ การตั้งค่าหน้ากระดาษ
   
5.         With PageSettings
   
6.             '/ หน่วยวัดเป็นนิ้ว (ใช้ CmToInch ด้วยการรับค่าเซนติเมตร แต่แปลงเป็นนิ้วแทน เพื่อวัดระยะได้ง่ายกว่า)
   
7.             .Margins.Left = CmToInch(1.5)
   
8.             .Margins.Right = CmToInch(0.2)
   
9.             .Margins.Top = CmToInch(1.5)
   
10.             .Margins.Bottom = CmToInch(1.5)
    
11.             ' ตั้งค่ากระดาษแนวตั้ง
    
12.             .Orientation = PageOrientation.Portrait
    
13.             ' กระดาษขนาด A4
    
14.             .PaperKind = Drawing.Printing.PaperKind.A4
    
15.             ' กรณีที่กำหนดขนาดกระดาษเอง
    
16.             ' .PaperKind = Drawing.Printing.PaperKind.Custom
    
17.         End With
    
18.         ' ปกติต้องเคลียร์ค่าต่างๆของ TextBox ก่อนการพิมพ์
    
19.         txtEmployeeID.Text = ""
    
20.         txtEmployeeName.Text = ""
    
21.         txtPosition.Text = ""
    
22.         txtDepartment.Text = ""
    
23.         txtSalary.Text = ""
    
24.     End Sub

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

ReportStart ...

ส่วนของการอ่านข้อมูลเข้ามา (Fetch Data) แล้วตรวจสอบว่าพิมพ์หมดหรือยัง ...

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / เมื่อพิมพ์ข้อมูลจาก Detail1_Format เสร็จก็จะวนกลับมาเรียกข้อมูล (Fetch Data) ใหม่อีกครั้ง
   
3.     ' / ด้วยการเลื่อนค่าจำนวนแถวขึ้น ItemNo +1 แล้วเทียบกับจำนวนแถวใน DataGrid
   
4.     Private Sub AR6PrintEmployee_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
   
5.         ItemNo = ItemNo + 1
   
6.         '/ ตรวจสอบจำนวนการพิมพ์ทั้งหมด ด้วยการนับจำนวนแถวใน DataGrid ที่อยู่ในฟอร์มหลัก
   
7.         '/ จะส่งค่าจำนวนแถวมาก็ได้ แต่ผมเลือกอ้างถึงตัว DataGrid ใน frmARNetSimple โดยตรง
   
8.         If ItemNo > frmARNetSimple.DataGridView1.RowCount Then
   
9.             '// หากหมดแล้วก็จบการพิมพ์
   
10.             eArgs.EOF = True
    
11.             '// ยังไม่หมดข้อมูล
    
12.         Else
    
13.             eArgs.EOF = False
    
14.         End If
    
15.     End Sub

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

โค้ดในส่วนของการพิมพ์รายละเอียดข้อมูล (Detail) ...

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / รายละเอียดต่างๆก็จะนำมาแสดงใน Detail
   
3.     Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
   
4.         '/ การอ้างถึงค่าในแต่ละแถว, หลักของ DataGridView Control ที่อยู่ใน frmARNetSimple
   
5.         '/ ค่า ItemNo เริ่มต้นจาก 1 แต่ลำดับแถวใน DataGrid จะเริ่มต้นจาก 0 (Index=0) ก็เลยต้องลบออกด้วย 1
   
6.         txtEmployeeID.Text = frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(0).Value
   
7.         '/ แถว 0 หลัก 1
   
8.         txtEmployeeName.Text = frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(1).Value
   
9.         '/ แถว 0 หลัก 2
   
10.         txtPosition.Text = frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(2).Value
    
11.         '/ แถว 0 หลัก 3
    
12.         txtDepartment.Text = frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(3).Value
    
13.         '/ แถว 0 หลัก 4 (CDbl = Convert To Double)
    
14.         txtSalary.Text = Format(CDbl(frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(4).Value), "#,##0.00")
    
15.         '/ จากนั้นก็เริ่มแถวใหม่(แต่หลักคงเดิม)
    
16. 
    
17.         '/ หาเลขคู่กับเลขคี่ เพื่อพิมพ์ลาเบล lblBG สลับสีในการพิมพ์แต่ละแถว
    
18.         '/ หากเลขจำนวนใดๆหารด้วย 2 เหลือเศษ 0 = เลขคู่
    
19.         If (ItemNo Mod 2) = 0 Then
    
20.             lblBG.BackColor = Color.Cornsilk
    
21.             '/ หากเลขจำนวนใดๆหารด้วย 2 เหลือเศษ 1 = เลขคี่
    
22.         Else
    
23.             lblBG.BackColor = Color.Azure
    
24.         End If
    
25. 
    
26.         '/ จากนี้มันก็กระโดดกลับไปที่ Sub FetchData เพื่ออ่านค่าเข้ามาพิมพ์ใหม่
    
27.         '/ หากหมดจำนวนแถวที่ต้องการพิมพ์ (นับจำนวนแถวใน DataGrid) ก็จะจบการทำงาน (EOF=True)
    
28.     End Sub

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

โค้ดในส่วนของการกำหนด ActiveReports Designer เข้ากับไฟล์รายงาน ... ซึ่งจะอยู่ในฟอร์มหลักที่เรียกใช้งาน (frmARNetSimple.vb)

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / Print Preview ก่อนทำการพิมพ์
   
3.     Private Sub btnPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPreview.Click
   
4.         Dim rpt As New ARNetSimple
   
5.         ' / --------------------------------------------------------------------------------
   
6.         ' / ส่วนที่สำคัญในการผูก ARDesigner เข้ากับรายงาน
   
7.         ' / Instance name ARDesigner มันจะชี้ไปที่ไฟล์ ARNetSimple.vb
   
8.         ' / โหลดรายงาน Document (ARNetSimple) เข้าสู่ ActiveReports Viewer
   
9.         Me.Viewer1.Document = rpt.Document
   
10.         ' / --------------------------------------------------------------------------------
    
11.         ' / ปรับการย่อขยาย (Zoom) ของหน้ารายงาน
    
12.         Viewer1.ReportViewer.Zoom = 0.85 ' 85%
    
13.         ' / Run Report
    
14.         rpt.Run()
    
15.     End Sub

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

มาดูโค้ดฉบับเต็มในฟอร์มหลักของ VB.NET ...

1. Public Class frmARNetSimple
   
2. 
   
3.     Private Sub frmARNetSimple_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
   
4.         Me.Dispose()
   
5.         Application.Exit()
   
6.     End Sub
   
7. 
   
8.     Private Sub frmARNetSimple_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
9.         Call InitGrid()
   
10.         Call FillDataSample()
    
11.     End Sub
    
12. 
    
13.     '// Sample Data
    
14.     Private Sub FillDataSample()
    
15.         Dim row As String() = New String() {"EMP00001", "นายทองก้อน ทับทิมกรอบ", "Managing Director", "Management", "1,999,999"}
    
16.         DataGridView1.Rows.Add(row)
    
17.         row = New String() {"EMP00002", "นายบุญห่อ พ่อรวย", "ช่างเขาเถอะ", "Technical", "8,500"}
    
18.         DataGridView1.Rows.Add(row)
    
19.         row = New String() {"EMP00003", "นางสาวกุ๊กกิ๊ก น่ารักที่สุด", "เลขา", "Management", "27,500.75"}
    
20.         DataGridView1.Rows.Add(row)
    
21.         row = New String() {"EMP00004", "นางบัวผัน ฝันเฟื่อง", "หัวหน้าบัญชี", "บัญชี", "200"}
    
22.         DataGridView1.Rows.Add(row)
    
23.     End Sub
    
24. 
    
25.     ' / --------------------------------------------------------------------------------
    
26.     ' / การกำหนดค่าต่างๆให้กับตารางกริดแบบ @Run Time
    
27.     Private Sub InitGrid()
    
28.         Dim Column0 As New DataGridViewTextBoxColumn()
    
29.         Dim Column1 As New DataGridViewTextBoxColumn()
    
30.         Dim Column2 As New DataGridViewTextBoxColumn()
    
31.         Dim Column3 As New DataGridViewTextBoxColumn()
    
32.         Dim Column4 As New DataGridViewTextBoxColumn()
    
33.         With DataGridView1
    
34.             With Column0
    
35.                 .Name = "EmployeeID"
    
36.                 .HeaderText = "รหัสพนักงาน"
    
37.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
    
38.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    
39.             End With
    
40.             With Column1
    
41.                 .Name = "Fullname"
    
42.                 .HeaderText = "ชื่อ - นามสกุล"
    
43.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
    
44.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    
45.             End With
    
46.             With Column2
    
47.                 .Name = "PositionName"
    
48.                 .HeaderText = "ตำแหน่ง"
    
49.             End With
    
50.             With Column3
    
51.                 .Name = "DepartmentName"
    
52.                 .HeaderText = "แผนก"
    
53.             End With
    
54.             With Column4
    
55.                 .ValueType = GetType(Double)
    
56.                 .Name = "Salary"
    
57.                 .HeaderText = "เงินเดือน"
    
58.                 '// Value type
    
59.                 .ValueType = GetType(System.Decimal)
    
60.                 '// Format number 2 decimal place.
    
61.                 .DefaultCellStyle.Format = "N2"
    
62.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    
63.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    
64.             End With
    
65.             With DataGridView1
    
66.                 .Columns.Add(Column0)
    
67.                 .Columns.Add(Column1)
    
68.                 .Columns.Add(Column2)
    
69.                 .Columns.Add(Column3)
    
70.                 .Columns.Add(Column4)
    
71.             End With
    
72.             '// Sample coding with Run-Time
    
73.             With DataGridView1
    
74.                 .RowHeadersVisible = True
    
75.                 .AllowUserToAddRows = False
    
76.                 .AllowUserToDeleteRows = False
    
77.                 .AllowUserToResizeColumns = False
    
78.                 .AllowUserToResizeRows = False
    
79.                 .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
80.                 .MultiSelect = False
    
81.                 .ReadOnly = True
    
82.                 '// Data rows
    
83.                 .Font = New Font("Tahoma", 9)
    
84.                 .RowTemplate.MinimumHeight = 20
    
85.                 .RowTemplate.Height = 26
    
86.                 '// Column Header
    
87.                 .ColumnHeadersHeight = 30
    
88.                 .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
    
89.                 '// แสดงสีสลับแถวคู่-คี่
    
90.                 .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
91.                 '// ปรับขนาดความกว้างของหลักให้พอดี
    
92.                 .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
93.                 .AutoResizeColumns()
    
94.                 '// Header Own Style
    
95.                 With .ColumnHeadersDefaultCellStyle
    
96.                     .BackColor = Color.Navy
    
97.                     .ForeColor = Color.Black
    
98.                     .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
99.                 End With
    
100.             End With
     
101.         End With
     
102.     End Sub
     
103. 
     
104.     ' / --------------------------------------------------------------------------------
     
105.     ' / Print Preview ก่อนทำการพิมพ์
     
106.     Private Sub btnPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPreview.Click
     
107.         Dim rpt As New ARNetSimple
     
108.         ' / --------------------------------------------------------------------------------
     
109.         ' / ส่วนที่สำคัญในการผูก ARDesigner เข้ากับรายงาน
     
110.         ' / Instance name ARDesigner มันจะชี้ไปที่ไฟล์ ARNetSimple.vb
     
111.         ' / โหลดรายงาน Document (ARNetSimple) เข้าสู่ ActiveReports Viewer
     
112.         Me.Viewer1.Document = rpt.Document
     
113.         ' / --------------------------------------------------------------------------------
     
114.         ' / ปรับการย่อขยาย (Zoom) ของหน้ารายงาน
     
115.         Viewer1.ReportViewer.Zoom = 0.85 ' 85%
     
116.         ' / Run Report
     
117.         rpt.Run()
     
118.     End Sub
     
119. End Class

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

โค้ดฉบับเต็มในส่วนของ ActiveReports ...

1. Imports DataDynamics.ActiveReports
   
2. Imports DataDynamics.ActiveReports.Document
   
3. 
   
4. Public Class ARNetSimple
   
5.     ' ตัวแปรนี้ต้องประกาศเป็นแบบ Public เพื่อให้ส่วนของ Detail1_Format และ FetchData มองเห็นด้วย
   
6.     Private ItemNo As Integer
   
7. 
   
8.     ' / --------------------------------------------------------------------------------
   
9.     ' / เมื่อพิมพ์ข้อมูลจาก Detail1_Format เสร็จก็จะวนกลับมาเรียกข้อมูล (Fetch Data) ใหม่อีกครั้ง
   
10.     ' / ด้วยการเลื่อนค่าจำนวนแถวขึ้น ItemNo +1 แล้วเทียบกับจำนวนแถวใน DataGrid
    
11.     Private Sub AR6PrintEmployee_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
12.         ItemNo = ItemNo + 1
    
13.         '/ ตรวจสอบจำนวนการพิมพ์ทั้งหมด ด้วยการนับจำนวนแถวใน DataGrid ที่อยู่ในฟอร์มหลัก
    
14.         '/ จะส่งค่าจำนวนแถวมาก็ได้ แต่ผมเลือกอ้างถึงตัว DataGrid ใน frmARNetSimple โดยตรง
    
15.         If ItemNo > frmARNetSimple.DataGridView1.RowCount Then
    
16.             '// หากหมดแล้วก็จบการพิมพ์
    
17.             eArgs.EOF = True
    
18.             '// ยังไม่หมดข้อมูล
    
19.         Else
    
20.             eArgs.EOF = False
    
21.         End If
    
22.     End Sub
    
23. 
    
24.     ' / --------------------------------------------------------------------------------
    
25.     ' / รายละเอียดต่างๆก็จะนำมาแสดงใน Detail
    
26.     Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
    
27.         '/ การอ้างถึงค่าในแต่ละแถว, หลักของ DataGridView Control ที่อยู่ใน frmARNetSimple
    
28.         '/ ค่า ItemNo เริ่มต้นจาก 1 แต่ลำดับแถวใน DataGrid จะเริ่มต้นจาก 0 (Index=0) ก็เลยต้องลบออกด้วย 1
    
29.         txtEmployeeID.Text = frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(0).Value
    
30.         '/ แถว 0 หลัก 1
    
31.         txtEmployeeName.Text = frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(1).Value
    
32.         '/ แถว 0 หลัก 2
    
33.         txtPosition.Text = frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(2).Value
    
34.         '/ แถว 0 หลัก 3
    
35.         txtDepartment.Text = frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(3).Value
    
36.         '/ แถว 0 หลัก 4 (CDbl = Convert To Double)
    
37.         txtSalary.Text = Format(CDbl(frmARNetSimple.DataGridView1.Rows(ItemNo - 1).Cells(4).Value), "#,##0.00")
    
38.         '/ จากนั้นก็เริ่มแถวใหม่(แต่หลักคงเดิม)
    
39. 
    
40.         '/ หาเลขคู่กับเลขคี่ เพื่อพิมพ์ลาเบล lblBG สลับสีในการพิมพ์แต่ละแถว
    
41.         '/ หากเลขจำนวนใดๆหารด้วย 2 เหลือเศษ 0 = เลขคู่
    
42.         If (ItemNo Mod 2) = 0 Then
    
43.             lblBG.BackColor = Color.Cornsilk
    
44.             '/ หากเลขจำนวนใดๆหารด้วย 2 เหลือเศษ 1 = เลขคี่
    
45.         Else
    
46.             lblBG.BackColor = Color.Azure
    
47.         End If
    
48. 
    
49.         '/ จากนี้มันก็กระโดดกลับไปที่ Sub FetchData เพื่ออ่านค่าเข้ามาพิมพ์ใหม่
    
50.         '/ หากหมดจำนวนแถวที่ต้องการพิมพ์ (นับจำนวนแถวใน DataGrid) ก็จะจบการทำงาน (EOF=True)
    
51.     End Sub
    
52. 
    
53.     ' / --------------------------------------------------------------------------------
    
54.     ' / ทุกๆครั้งที่เริ่มต้นสั่งพิมพ์ จะต้องตั้งค่าเริ่มต้นใน ReportStart เพียงครั้งแรกและครั้งเดียว
    
55.     Private Sub AR6PrintEmployee_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
56.         '/ การตั้งค่าหน้ากระดาษ
    
57.         With PageSettings
    
58.             '/ หน่วยวัดเป็นนิ้ว (ใช้ CmToInch ด้วยการรับค่าเซนติเมตร แต่แปลงเป็นนิ้วแทน เพื่อวัดระยะได้ง่ายกว่า)
    
59.             .Margins.Left = CmToInch(1.5)
    
60.             .Margins.Right = CmToInch(0.2)
    
61.             .Margins.Top = CmToInch(1.5)
    
62.             .Margins.Bottom = CmToInch(1.5)
    
63.             ' ตั้งค่ากระดาษแนวตั้ง
    
64.             .Orientation = PageOrientation.Portrait
    
65.             ' กระดาษขนาด A4
    
66.             .PaperKind = Drawing.Printing.PaperKind.A4
    
67.             ' กรณีที่กำหนดขนาดกระดาษเอง
    
68.             ' .PaperKind = Drawing.Printing.PaperKind.Custom
    
69.         End With
    
70.         ' ปกติต้องเคลียร์ค่าต่างๆของ TextBox ก่อนการพิมพ์
    
71.         txtEmployeeID.Text = ""
    
72.         txtEmployeeName.Text = ""
    
73.         txtPosition.Text = ""
    
74.         txtDepartment.Text = ""
    
75.         txtSalary.Text = ""
    
76.     End Sub
    
77. End Class

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

ดาวน์โหลดชุดติดตั้ง ActiveReports .NET (V6) ได้ที่นี่ (เฉพาะสมาชิกเท่านั้น)
ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB.NET (2010) ได้ที่นี่

apichit

ขอบคุณครับอาจารย์

OUDONE

ขอบคุณครับอาจารย์ ที่มอบสิ่งดีดีให้