[VB.NET] การพิมพ์รหัสแท่งบาร์โค้ด 1 มิติด้วย ActiveReports .NET ออกกระดาษ A4

thongkorn

โค้ดชุดนี้แอดมินได้แจกจ่ายไปหลายตลบแล้ว เพราะย้ายเว็บบอร์ดอยู่เรื่อยๆ แต่ครั้งนี้จะมีลูกเล่นในเรื่องของไดนามิกเข้ามาเพิ่มเติมอีก นั่นคือเป็นการเขียนโค้ดเข้าช่วย เพื่อทำให้งานของเราดูดีมีชาติตระกูลมากขึ้น เช่น การกำหนดจำนวนหลักในการพิมพ์ การเลือกรูปแบบบาร์โค้ด และการพิมพ์กรอบ ...

การกำหนดจำนวนหลักใน AR Designer ... คลิ๊กเลือก Detail ใน Designer ก่อน ก็จะเห็นคุณสมบัติ (Properties) ...


หัวข้อที่เกี่ยวข้อง ...
การเรียกใช้งาน ActiveReports .NET แบบเบื้องต้น
[VB.NET] ก้าวแรกกับการพิมพ์รายงานด้วย ActiveReports .NET
[VB.NET] พื้นฐานการพิมพ์รายงานด้วย ActiveReports .NET ลงบนกระดาษขนาด A4

ดาวน์โหลด ActiveReports .NET (เฉพาะสมาชิกเท่านั้น)

เมื่อสั่งรันรายงานจาก Visual Basic IDE จะทำให้เกิดการทำงานที่เหตุการณ์ ReportStart ก่อน ...

1.     '// START HERE
   
2.     Private Sub arBarcode_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
   
3.         ' การตั้งค่าแบบ Run Time (มีหน่วยวัดเป็นนิ้ว ... แต่สามารถเปลี่ยนเป็น ซม. ได้ด้วย CmToInch)
   
4.         With PageSettings
   
5.             .Margins.Left = CmToInch(0.5)
   
6.             .Margins.Right = CmToInch(0.5)
   
7.             .Margins.Top = CmToInch(1)
   
8.             .Margins.Bottom = CmToInch(1)
   
9.             ' ตั้งค่ากระดาษแนวตั้ง
   
10.             .Orientation = PageOrientation.Portrait
    
11.             ' กระดาษขนาด A4
    
12.             .PaperKind = Drawing.Printing.PaperKind.A4
    
13.             ' กรณีที่กำหนดขนาดกระดาษเอง
    
14.             ' .PaperKind = Drawing.Printing.PaperKind.Custom
    
15.         End With
    
16. 
    
17.         '/ กำหนดรูปแบบบาร์โค้ด (Barcode Style) ...
    
18.         Select Case frmPrintBarcode.cmbStyle.SelectedIndex
    
19.             Case 0
    
20.                 Barcode1.Style = BarCodeStyle.Code_128_A
    
21.             Case 1
    
22.                 Barcode1.Style = BarCodeStyle.Code_128_B
    
23.             Case 2
    
24.                 Barcode1.Style = BarCodeStyle.Code_128_C
    
25.         End Select
    
26.         '// กำหนดจำนวนหลักในการพิมพ์ (ความกว้างของกระดาษ / จำนวนหลัก)
    
27.         Select Case frmPrintBarcode.cmbColumn.SelectedIndex
    
28.             Case 0
    
29.                 Me.Detail1.ColumnCount = 3
    
30.                 Me.Shape1.Width = CmToInch(6.58)
    
31.                 Me.Barcode1.Width = CmToInch(6.18)
    
32.             Case 1
    
33.                 Me.Detail1.ColumnCount = 4
    
34.                 Me.Shape1.Width = CmToInch(4.94)
    
35.                 Me.Barcode1.Width = CmToInch(4.6)
    
36.             Case 2
    
37.                 Me.Detail1.ColumnCount = 5
    
38.         End Select
    
39.         '// พิมพ์กรอบหรือไม่
    
40.         If frmPrintBarcode.chkPrintShape.Checked Then
    
41.             Shape1.Visible = True
    
42.         Else
    
43.             Shape1.Visible = False
    
44.         End If
    
45.         ' เคลียร์ค่าตัวแปรเพื่อความแน่ใจ
    
46.         ' Count = 0 : CountCode = 0 : BeginCode = 0
    
47. 
    
48.         ' รับค่ารหัสบาร์โค้ดตัวแรกเข้ามา
    
49.         BeginCode = Val(frmPrintBarcode.txtStartCode.Text)
    
50. 
    
51.         ' นับจำนวนของการพิมพ์บาร์โค้ดทั้งหมด
    
52.         ' CountCode = End - Begin + 1
    
53.         ' ต้องบวกเพิ่มอีก 1 เพื่อให้ได้ค่าที่ถูกต้อง และจะใช้ตัวแปรนี้ในโปรแกรมย่อย FetchData events
    
54.         CountCode = Val(frmPrintBarcode.txtEndCode.Text) - Val(frmPrintBarcode.txtStartCode.Text) + 1
    
55.         '//
    
56.     End Sub

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

จากนั้นจำทำการเช็คข้อมูลว่ามีข้อมูลให้พิมพ์หรือไม่ที่ FetchData ...

1.     '// Sub Program ที่คอยตรวจสอบจำนวนข้อมูลในการพิมพ์
   
2.     '// หาก eArgs.EOF = True จะเป็นการสิ้นสุดการพิมพ์
   
3.     Private Sub arBarcode_FetchData(ByVal sender As Object, ByVal eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
   
4.         Count = Count + 1
   
5.         ' หากนับได้ตรงตามจำนวนแล้วก็จะจบการทำงานในส่วนของการพิมพ์
   
6.         If Count > CountCode Then
   
7.             eArgs.EOF = True
   
8.             Exit Sub
   
9. 
   
10.         Else
    
11.             ' End Of File เป็นเท็จ ก็คือมันยังไม่หมดข้อมูลของการพิมพ์
    
12.             eArgs.EOF = False
    
13.             ' กระโดดไปทำงานต่อที่ Detal1_Format เพื่อทำการพิมพ์รหัสบาร์โค้ดต่อ
    
14.         End If
    
15.     End Sub

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

แล้วเริ่มต้นการพิมพ์รายละเอียดใน Detail_Format ...

1.     '// รายละเอียดของการพิมพ์
   
2.     Private Sub Detail1_Format(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail1.Format
   
3. 
   
4.         ' จัดรูปแบบการพิมพ์รหัสบาร์โค้ดออกมา เช่น BeginCode = 199, ความยาว 9 ตัว
   
5.         ' "0000000000" & 199 ... จะได้ ... "0000000000199"
   
6.         ' พอนับจากทางขวามา 9 ตัว ก็จะถูกตัดเหลือ "000000199"
   
7.         Barcode1.Text = Right("0000000000" & BeginCode, Val(frmPrintBarcode.cmbLength.Text))
   
8. 
   
9.         ' การวางตำแหน่งของชุดคำสั่งนี้สำคัญมาก เพราะหากคุณวางไว้ก่อนบรรทัดข้างบน ผลที่ได้จะเกิด Logical Error
   
10.         ' หรือได้ผลลัพธ์ออกมาไม่ตรงตามที่ต้องการ
    
11.         BeginCode = BeginCode + 1
    
12. 
    
13.         ' จากจุดนี้มันก็จะกระโดดไป arBarcode_FetchData เพื่อตรวจสอบว่า Count นับได้ครบตาม CountCode หรือไม่
    
14. 
    
15.     End Sub

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

มาดูโค้ดฉบับเต็มใน Visual Basic .NET ...

1. Imports DataDynamics.ActiveReports
   
2. 
   
3. Public Class frmPrintBarcode
   
4. 
   
5.     Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
   
6.         ' ดัก error จากการป้อนข้อมูล
   
7.         If Trim(txtStartCode.Text) = "" Or Len(Trim(txtStartCode.Text)) = 0 Then   ' VB6 Style
   
8.             MessageBox.Show("กรุณาป้อนค่ารหัสเริ่มต้นให้เรียบร้อยก่อนด้วย.")
   
9.             txtStartCode.Focus()
   
10.             Exit Sub
    
11.         ElseIf Trim(txtEndCode.Text) = String.Empty Then   ' VB.Net Style
    
12.             MessageBox.Show("กรุณาป้อนค่ารหัสสิ้นสุดให้เรียบร้อยก่อนด้วย.")
    
13.             txtEndCode.Focus()
    
14.             Return
    
15.         End If
    
16.         ' ค่ารหัสสิ้นสุดน้อยกว่าค่าเริ่มต้นไม่ได้
    
17.         If (Val(txtEndCode.Text) - Val(txtStartCode.Text) < 0) Then
    
18.             MessageBox.Show("ค่ารหัสสิ้นสุดมีค่าน้อยกว่ารหัสเริ่มต้น กรุณาป้อนใหม่ก่อนด้วย.")
    
19.             txtEndCode.Focus()
    
20.             Return
    
21.         End If
    
22. 
    
23.         '/ Instance name ARDesigner มันจะชี้ไปที่ไฟล์ arBarcode.vb
    
24.         Dim rpt As New arBarcode()
    
25.         '/ Run Report
    
26.         rpt.Run()
    
27.         '/ โหลดรายงาน document (arBarcode) เข้าสู่ ActiveReports Viewer
    
28.         Me.Viewer1.Document = rpt.Document
    
29.         Me.Viewer1.ReportViewer.Zoom = 1    '// 100%
    
30. 
    
31.     End Sub
    
32. 
    
33.     Private Sub frmPrintBarcode_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
34.         Select Case e.KeyCode
    
35.             Case Keys.F7
    
36.                 Call btnPrintPreview_Click(sender, e)
    
37.             Case Keys.F10
    
38.                 Call btnExit_Click(sender, e)
    
39.         End Select
    
40.     End Sub
    
41. 
    
42.     Private Sub frmPrintBarcode_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
43.         With txtStartCode
    
44.             .Text = "999999900"
    
45.             .MaxLength = 9
    
46.         End With
    
47.         With txtEndCode
    
48.             .Text = "999999999"
    
49.             .MaxLength = 9
    
50.         End With
    
51. 
    
52.         ' กำหนดความยาวของรหัสบาร์โค้ด
    
53.         cmbLength.Items.Add("6")    ' Index = 0
    
54.         cmbLength.Items.Add("7")    ' Index = 1
    
55.         cmbLength.Items.Add("8")    ' Index = 2
    
56.         cmbLength.Items.Add("9")    ' Index = 3
    
57.         ' เลือกรายการแรก คือ 6 เป็นค่าตั้งต้น
    
58.         cmbLength.SelectedIndex = 0
    
59.         '// จำนวนหลักในการพิมพ์รหัสบาร์โค้ด
    
60.         With cmbColumn
    
61.             .Items.Add("3 หลัก")
    
62.             .Items.Add("4 หลัก")
    
63.             .Items.Add("5 หลัก")
    
64.         End With
    
65.         cmbColumn.SelectedIndex = 0
    
66.         '//
    
67.         With cmbStyle
    
68.             .Items.Add("Code 128A")
    
69.             .Items.Add("Code 128B")
    
70.             .Items.Add("Code 128C")
    
71.         End With
    
72.         cmbStyle.SelectedIndex = 1
    
73.         '//
    
74.     End Sub
    
75. 
    
76.     Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
    
77.         Me.Close()
    
78.     End Sub
    
79. 
    
80.     '/ Function บังคับให้ผู้ใช้งานกดได้เฉพาะ 0-9 เท่านั้นใน TextBox
    
81.     '/ ผมใช้ ASCII Code เป็นเงื่อนไขในการทดสอบ
    
82.     '/ ขอให้พิจารณาถึงความแตกต่างของการใช้ IF-THEN-ELSE กับ SELECT CASE
    
83.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
84.         Select Case index
    
85.             Case 48 To 57 ' ASCII Code Numeric 0 - 9
    
86.                 CheckDigitOnly = False
    
87.             Case 8, 13 ' Backspace = 8, Enter = 13
    
88.                 CheckDigitOnly = False
    
89.             Case Else
    
90.                 CheckDigitOnly = True
    
91.         End Select
    
92.     End Function
    
93. 
    
94.     Private Sub txtStartCode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStartCode.KeyPress
    
95.         '// เกิดการกด ENter
    
96.         If e.KeyChar = Chr(13) Then
    
97.             e.Handled = True
    
98.             SendKeys.Send("{TAB}")
    
99.         Else
    
100.             '/ อ่านรายละเอียดเพิ่มเติม ... http://www.g2gnet.com/News/activenews_view.asp?articleID=106
     
101.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
     
102.         End If
     
103.     End Sub
     
104. 
     
105.     Private Sub txtEndCode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEndCode.KeyPress
     
106.         '// เกิดการกด ENter
     
107.         If e.KeyChar = Chr(13) Then
     
108.             e.Handled = True
     
109.             SendKeys.Send("{TAB}")
     
110.         Else
     
111.             '/ จะกระโดดไปทดสอบค่าที่ฟังค์ชั่น CheckDigitOnly
     
112.             '/ ASCII Code ของตัวอักขระ 0 - 9 โดยที่ 0 = 48, 1 = 49, 2 = 50, ... 9 = 57
     
113.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
     
114.         End If
     
115.     End Sub
     
116. 
     
117.     Private Sub frmPrintBarcode_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
118.         Me.Dispose()
     
119.         Application.Exit()
     
120.     End Sub
     
121. 
     
122.     Private Sub ToolStripStatusLabel2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel2.Click
     
123.         Process.Start("http://www.g2gnet.com/webboard")
     
124.     End Sub
     
125. 
     
126.     Private Sub ToolStripStatusLabel3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel3.Click
     
127.         Process.Start("mailto:thongkorn@hotmail.com")
     
128.     End Sub
     
129. End Class

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

โค้ดในส่วนของ ActiveReports .NET ...

1. Imports DataDynamics.ActiveReports
   
2. Imports DataDynamics.ActiveReports.Document
   
3. 
   
4. '// TIP: สำหรับ Visual Basic เราจะใช้การอ้างถึงชื่อฟอร์มแล้วตามด้วยชื่อ Control ต่างๆได้เลย
   
5. 
   
6. Public Class arBarcode
   
7.     ' ตัวแปรแบบ Global ซึ่งเราจะมองเห็นได้หมดในโปรแกรมย่อยทุกตัว แต่เฉพาะ ARDesigner ตัวนี้เท่านั้น
   
8.     Dim BeginCode As Long
   
9.     Dim Count As Integer
   
10.     Dim CountCode As Integer
    
11. 
    
12.     '// Sub Program ที่คอยตรวจสอบจำนวนข้อมูลในการพิมพ์
    
13.     '// หาก eArgs.EOF = True จะเป็นการสิ้นสุดการพิมพ์
    
14.     Private Sub arBarcode_FetchData(ByVal sender As Object, ByVal eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
15.         Count = Count + 1
    
16.         ' หากนับได้ตรงตามจำนวนแล้วก็จะจบการทำงานในส่วนของการพิมพ์
    
17.         If Count > CountCode Then
    
18.             eArgs.EOF = True
    
19.             Exit Sub
    
20. 
    
21.         Else
    
22.             ' End Of File เป็นเท็จ ก็คือมันยังไม่หมดข้อมูลของการพิมพ์
    
23.             eArgs.EOF = False
    
24.             ' กระโดดไปทำงานต่อที่ Detal1_Format เพื่อทำการพิมพ์รหัสบาร์โค้ดต่อ
    
25.         End If
    
26.     End Sub
    
27. 
    
28.     '// รายละเอียดของการพิมพ์
    
29.     Private Sub Detail1_Format(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail1.Format
    
30. 
    
31.         ' จัดรูปแบบการพิมพ์รหัสบาร์โค้ดออกมา เช่น BeginCode = 199, ความยาว 9 ตัว
    
32.         ' "0000000000" & 199 ... จะได้ ... "0000000000199"
    
33.         ' พอนับจากทางขวามา 9 ตัว ก็จะถูกตัดเหลือ "000000199"
    
34.         Barcode1.Text = Right("0000000000" & BeginCode, Val(frmPrintBarcode.cmbLength.Text))
    
35. 
    
36.         ' การวางตำแหน่งของชุดคำสั่งนี้สำคัญมาก เพราะหากคุณวางไว้ก่อนบรรทัดข้างบน ผลที่ได้จะเกิด Logical Error
    
37.         ' หรือได้ผลลัพธ์ออกมาไม่ตรงตามที่ต้องการ
    
38.         BeginCode = BeginCode + 1
    
39. 
    
40.         ' จากจุดนี้มันก็จะกระโดดไป arBarcode_FetchData เพื่อตรวจสอบว่า Count นับได้ครบตาม CountCode หรือไม่
    
41. 
    
42.     End Sub
    
43. 
    
44.     '// START HERE
    
45.     Private Sub arBarcode_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
46.         ' การตั้งค่าแบบ Run Time (มีหน่วยวัดเป็นนิ้ว ... แต่สามารถเปลี่ยนเป็น ซม. ได้ด้วย CmToInch)
    
47.         With PageSettings
    
48.             .Margins.Left = CmToInch(0.5)
    
49.             .Margins.Right = CmToInch(0.5)
    
50.             .Margins.Top = CmToInch(1)
    
51.             .Margins.Bottom = CmToInch(1)
    
52.             ' ตั้งค่ากระดาษแนวตั้ง
    
53.             .Orientation = PageOrientation.Portrait
    
54.             ' กระดาษขนาด A4
    
55.             .PaperKind = Drawing.Printing.PaperKind.A4
    
56.             ' กรณีที่กำหนดขนาดกระดาษเอง
    
57.             ' .PaperKind = Drawing.Printing.PaperKind.Custom
    
58.         End With
    
59. 
    
60.         '/ กำหนดรูปแบบบาร์โค้ด (Barcode Style) ...
    
61.         Select Case frmPrintBarcode.cmbStyle.SelectedIndex
    
62.             Case 0
    
63.                 Barcode1.Style = BarCodeStyle.Code_128_A
    
64.             Case 1
    
65.                 Barcode1.Style = BarCodeStyle.Code_128_B
    
66.             Case 2
    
67.                 Barcode1.Style = BarCodeStyle.Code_128_C
    
68.         End Select
    
69.         '// กำหนดจำนวนหลักในการพิมพ์ (ความกว้างของกระดาษ / จำนวนหลัก)
    
70.         Select Case frmPrintBarcode.cmbColumn.SelectedIndex
    
71.             Case 0
    
72.                 Me.Detail1.ColumnCount = 3
    
73.                 Me.Shape1.Width = CmToInch(6.58)
    
74.                 Me.Barcode1.Width = CmToInch(6.18)
    
75.             Case 1
    
76.                 Me.Detail1.ColumnCount = 4
    
77.                 Me.Shape1.Width = CmToInch(4.94)
    
78.                 Me.Barcode1.Width = CmToInch(4.6)
    
79.             Case 2
    
80.                 Me.Detail1.ColumnCount = 5
    
81.         End Select
    
82.         '// พิมพ์กรอบหรือไม่
    
83.         If frmPrintBarcode.chkPrintShape.Checked Then
    
84.             Shape1.Visible = True
    
85.         Else
    
86.             Shape1.Visible = False
    
87.         End If
    
88.         ' เคลียร์ค่าตัวแปรเพื่อความแน่ใจ
    
89.         ' Count = 0 : CountCode = 0 : BeginCode = 0
    
90. 
    
91.         ' รับค่ารหัสบาร์โค้ดตัวแรกเข้ามา
    
92.         BeginCode = Val(frmPrintBarcode.txtStartCode.Text)
    
93. 
    
94.         ' นับจำนวนของการพิมพ์บาร์โค้ดทั้งหมด
    
95.         ' CountCode = End - Begin + 1
    
96.         ' ต้องบวกเพิ่มอีก 1 เพื่อให้ได้ค่าที่ถูกต้อง และจะใช้ตัวแปรนี้ในโปรแกรมย่อย FetchData events
    
97.         CountCode = Val(frmPrintBarcode.txtEndCode.Text) - Val(frmPrintBarcode.txtStartCode.Text) + 1
    
98.         '//
    
99.     End Sub
    
100. 
     
101. End Class

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

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

ooddog

อาจารย์ครับ ถ้าต้องการให้แท่ง Barcode Auto Size เปลี่ยนขนาดตามข้อความที่ Print มีวิธีการอย่างไรครับ
เพราะ ถ้าข้อความสั้น -- เส้น barcode ห่าง ถ้าข้อความยาว -- เส้น barcode ถี่

thongkorn

ooddog ตอบกลับเมื่อ 2021-3-2 16:06
อาจารย์ครับ ถ้าต้องการให้แท่ง Barcode Auto Size เปลี่ยนขนาดต ...

หน้าจอ Design AR แล้วเลือก Barcode ก่อน ... Properties --> AutoSize = True ครับผม