[VB.NET] การพิมพ์ใบเสร็จด้วย ActiveReports .NET ลงกระดาษขนาด A4 และ A5 (ครึ่ง A4)

thongkorn

อันที่จริงโค้ดชุดนี้แอดมินทำแจกไว้ตั้งแต่ปีที่แล้ว พึ่งนึกขึ้นได้ก็เลยเอามาลงให้ได้รับชมกัน ไม่มีคำอธิบายอะไรมากมายหรอกครับ หลักการรวมๆก็คือการป้อนข้อมูลเข้าสู่ตารางกริด โดยบางหลักจะต้องมีการ Validate Cell เพื่อป้อนข้อมูลเฉพาะแบบตัวเลขจำนวนเต็ม หรือจำนวนแบบทศนิยมเท่านั้น จากนั้นก็เอาข้อมูลเหล่านั้นมาทำการพิมพ์ผลลัพธ์ โดยทำการลูปนับจำนวนแถวจากตารางกริดในส่วนของ FetchData และรวมไปถึงการใช้เงื่อนไขในการพิมพ์ลงกระดาษ 2 ขนาด คือ A4 และ A5 ด้วยการใช้รายงานเพียงตัวเดียว ...

มาดูโค้ดส่วนหลักๆในฟอร์ม ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Print bill on paper size is A4/A5.
   
8. ' / Microsoft Visual Basic .NET (2010) & ActiveReports 6
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Public Class frmPrintBillA4A5
    
14. 
    
15.     Private Sub frmPrintBillA4A5_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
16.         Me.Dispose()
    
17.         Application.Exit()
    
18.     End Sub
    
19. 
    
20.     Private Sub frmPrintBillA4A5_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
21.         Select Case e.KeyCode
    
22.             Case Keys.F7
    
23.                 Call btnPreview_Click(sender, e)
    
24.             Case Keys.F10
    
25.                 Me.Close()
    
26.         End Select
    
27.     End Sub
    
28. 
    
29.     Private Sub frmPrintBillA4A5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
30.         '// Can use key down.
    
31.         Me.KeyPreview = True
    
32.         Me.ToolStrip1.Cursor = Cursors.Hand
    
33.         '// Sample data.
    
34.         txtInvoiceNo.Text = "INV-60080001"
    
35.         txtCustomer.Text = "นายบุญห่อ พ่อมันรวย"
    
36.         txtCPhone.Text = "08-9999-6666"
    
37.         txtSumTotal.Text = "0.00"
    
38.         '// Initialized
    
39.         Call InitilaizeGrid()
    
40.         Call FillDataSample()
    
41.         '// Sum of Quantity x UnitPrice.
    
42.         Call CalSumTotal()
    
43.         '//
    
44.     End Sub
    
45. 
    
46.     '// Sample Data
    
47.     Private Sub FillDataSample()
    
48.         Dim row As String() = New String() {"ค่าอุปกรณ์ตัวต้านทาน 2.2K โอห์ม 5%", "20", "50.00", "1000.00"}
    
49.         dgvData.Rows.Add(row)
    
50.         row = New String() {"ค่าเปิดฝาเครื่อง", "1", "1,000.00", "1,000.00"}
    
51.         dgvData.Rows.Add(row)
    
52.         row = New String() {"ค่าแรงในการปัดฝุ่น", "1", "3,000.00", "3,000.00"}
    
53.         dgvData.Rows.Add(row)
    
54.         row = New String() {"ค่าแรงประกอบเครื่องกลับคืน", "1", "5,000.00", "5,000.00"}
    
55.         dgvData.Rows.Add(row)
    
56.         row = New String() {"ค่าซ่อม", "1", "50.00", "50.00"}
    
57.         dgvData.Rows.Add(row)
    
58.     End Sub
    
59. 
    
60.     ' / --------------------------------------------------------------------------------
    
61.     Private Sub InitilaizeGrid()
    
62.         '// Create columns with @Run Time
    
63.         Dim Column1 As New DataGridViewTextBoxColumn()
    
64.         Dim Column2 As New DataGridViewTextBoxColumn()
    
65.         Dim Column3 As New DataGridViewTextBoxColumn()
    
66.         Dim Column4 As New DataGridViewTextBoxColumn()
    
67.         With dgvData
    
68.             With Column1
    
69.                 .Name = "Description"
    
70.                 .HeaderText = "รายละเอียด"
    
71.                 .ReadOnly = False
    
72.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
    
73.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    
74.             End With
    
75.             With Column2
    
76.                 .Name = "Quantity"
    
77.                 .HeaderText = "จำนวน"
    
78.                 .ValueType = GetType(Integer)
    
79.                 .ReadOnly = False
    
80.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    
81.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    
82.             End With
    
83.             With Column3
    
84.                 .Name = "UnitPrice"
    
85.                 .HeaderText = "ราคา/หน่วย"
    
86.                 .ValueType = GetType(Decimal)
    
87.                 .ReadOnly = False
    
88.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    
89.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    
90.                 .DefaultCellStyle.Format = "N2"
    
91.             End With
    
92.             With Column4
    
93.                 .Name = "Total"
    
94.                 .HeaderText = "รวมเป็นเงิน"
    
95.                 .ValueType = GetType(Decimal)
    
96.                 .ReadOnly = True
    
97.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    
98.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    
99.                 .DefaultCellStyle.Format = "N2"
    
100.             End With
     
101.             '// Add all columns.
     
102.             With dgvData
     
103.                 .Columns.Add(Column1)
     
104.                 .Columns.Add(Column2)
     
105.                 .Columns.Add(Column3)
     
106.                 .Columns.Add(Column4)
     
107.             End With
     
108.         End With
     
109.         '// Sample coding with Run-Time
     
110.         With dgvData
     
111.             .RowHeadersVisible = True
     
112.             .AllowUserToAddRows = False
     
113.             .AllowUserToDeleteRows = False
     
114.             .ReadOnly = False
     
115.             .AllowUserToResizeColumns = True
     
116.             .AllowUserToResizeRows = True
     
117.             .SelectionMode = DataGridViewSelectionMode.CellSelect
     
118.             .MultiSelect = False
     
119.             '// Data rows
     
120.             .Font = New Font("Tahoma", 9)
     
121.             .RowTemplate.MinimumHeight = 20
     
122.             .RowTemplate.Height = 26
     
123.             '// Column Header
     
124.             .ColumnHeadersHeight = 30
     
125.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
     
126.             '// แสดงสีสลับแถวคู่-คี่
     
127.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
128.             '// Auto adjust column width.
     
129.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
130.             '// Header Own Style
     
131.             With .ColumnHeadersDefaultCellStyle
     
132.                 .BackColor = Color.Navy
     
133.                 .ForeColor = Color.Black
     
134.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
135.             End With
     
136.         End With
     
137.     End Sub
     
138. 
     
139.     Private Sub btnPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPreview.Click
     
140.         If dgvData.Rows.Count <= 0 Then Exit Sub
     
141.         ' Instance name ARDesigner มันจะชี้ไปที่ไฟล์ arPrintBillA4A5.vb
     
142.         Dim rpt As New arPrintBillA4A5
     
143.         ' Run Report
     
144.         rpt.Run()
     
145.         ' โหลดรายงาน document (arPrintBillA4A5) เข้าสู่ ActiveReports Viewer
     
146.         '// Zoom 90%
     
147.         Me.Viewer1.ReportViewer.Zoom = 0.9
     
148.         Me.Viewer1.Document = rpt.Document
     
149.     End Sub
     
150. 
     
151.     Private Sub dgvData_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellContentClick
     
152.         '//
     
153.     End Sub
     
154. 
     
155.     Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
     
156.         frmSetting.ShowDialog()
     
157.     End Sub
     
158. 
     
159.     Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
     
160.         Me.Close()
     
161.     End Sub
     
162. 
     
163.     ' / --------------------------------------------------------------------------------
     
164.     ' / Add new row
     
165.     Private Sub btnAddRow_Click(sender As System.Object, e As System.EventArgs) Handles btnAddRow.Click
     
166.         Dim row As String() = New String() {"", 1, 0, 0.0}
     
167.         dgvData.Rows.Add(row)
     
168.         ' /
     
169.         If dgvData.RowCount > 0 Then Call CalSumTotal()
     
170.     End Sub
     
171. 
     
172.     ' / --------------------------------------------------------------------------------
     
173.     ' / Remove selected row
     
174.     Private Sub btnRemoveRow_Click(sender As System.Object, e As System.EventArgs) Handles btnRemoveRow.Click
     
175.         If dgvData.RowCount = 0 Then Exit Sub
     
176.         dgvData.Rows.Remove(dgvData.CurrentRow)
     
177.         dgvData.Refresh()
     
178.         ' /
     
179.         If dgvData.RowCount > 0 Then Call CalSumTotal()
     
180.     End Sub
     
181. 
     
182.     ' / --------------------------------------------------------------------------------
     
183.     ' / Calcualte sum of Total (Column Index = 3)
     
184.     Private Sub CalSumTotal()
     
185.         txtSumTotal.Text = "0.00"
     
186.         For i As Byte = 0 To dgvData.RowCount - 1
     
187.             ' CDbl = Convert to Double แปลงค่าตัวเลขเป็นแบบ Double
     
188.             txtSumTotal.Text = CDbl(txtSumTotal.Text) + CDbl(dgvData.Rows(i).Cells(3).Value)
     
189.         Next
     
190.         txtSumTotal.Text = Format(CDbl(txtSumTotal.Text), "#,##0.00")
     
191.     End Sub
     
192. 
     
193.     ' / --------------------------------------------------------------------------------
     
194.     ' / Before Edit Data
     
195.     Private Sub dgvData_CellBeginEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dgvData.CellBeginEdit
     
196.         Dim Quantity As Double = dgvData.Rows(e.RowIndex).Cells(1).Value
     
197.         Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(2).Value
     
198.         dgvData.Rows(e.RowIndex).Cells(3).Value = (Quantity * UnitPrice).ToString("#,##0.00")
     
199.         ' /
     
200.         Call CalSumTotal()
     
201.     End Sub
     
202. 
     
203.     ' / --------------------------------------------------------------------------------
     
204.     ' / After you press Enter
     
205.     Private Sub dgvData_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit
     
206.         Dim Quantity As Double
     
207.         Dim UnitPrice As Double
     
208.         Select Case e.ColumnIndex
     
209.             Case 1, 2 ' Column Index = 1 (Quantity), Column Index = 2 (UnitPrice)
     
210.                 ' Quantity
     
211.                 ' If Null Value
     
212.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(1).Value) Then dgvData.Rows(e.RowIndex).Cells(1).Value = 0
     
213.                 Quantity = dgvData.Rows(e.RowIndex).Cells(1).Value
     
214.                 If Quantity = 0 Then
     
215.                     dgvData.Rows(e.RowIndex).Cells(1).Value = 1
     
216.                 End If
     
217. 
     
218.                 ' UnitPrice
     
219.                 ' If Null Value
     
220.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(2).Value) Then dgvData.Rows(e.RowIndex).Cells(2).Value = 0.0
     
221.                 UnitPrice = dgvData.Rows(e.RowIndex).Cells(2).Value
     
222.                 If UnitPrice = 0 Then
     
223.                     dgvData.Rows(e.RowIndex).Cells(2).Value = 0
     
224.                 End If
     
225.         End Select
     
226.         ' Quantity x UnitPrice
     
227.         dgvData.Rows(e.RowIndex).Cells(3).Value = (Quantity * UnitPrice).ToString("#,##0.00")
     
228.         '//
     
229.         Call CalSumTotal()
     
230.     End Sub
     
231. 
     
232.     ' / --------------------------------------------------------------------------------
     
233.     Private Sub dgvData_EditingControlShowing(sender As Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
     
234.         Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Name
     
235.             ' / Can use both ColumeIndex or Field Name
     
236.             Case "Quantity", "UnitPrice"
     
237.                 '// Stop and Start event handler
     
238.                 RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
239.                 AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
240.         End Select
     
241.     End Sub
     
242. 
     
243.     ' / --------------------------------------------------------------------------------
     
244.     Private Sub ValidKeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs)
     
245.         Dim tb As TextBox = sender
     
246.         Select Case dgvData.CurrentCell.ColumnIndex
     
247.             Case 1  ' Quantity is Integer
     
248.                 Select Case e.KeyChar
     
249.                     Case "0" To "9"   ' digits 0 - 9 allowed
     
250.                     Case ChrW(Keys.Back)    ' backspace allowed for deleting (Delete key automatically overrides)
     
251. 
     
252.                     Case Else ' everything else ....
     
253.                         ' True = CPU cancel the KeyPress event
     
254.                         e.Handled = True ' and it's just like you never pressed a key at all
     
255.                 End Select
     
256. 
     
257.             Case 2  ' UnitPrice is Double
     
258.                 Select Case e.KeyChar
     
259.                     Case "0" To "9"
     
260.                         ' Allowed "."
     
261.                     Case "."
     
262.                         ' can present "." only one
     
263.                         If InStr(tb.Text, ".") Then e.Handled = True
     
264. 
     
265.                     Case ChrW(Keys.Back)
     
266. 
     
267.                     Case Else
     
268.                         e.Handled = True
     
269. 
     
270.                 End Select
     
271.         End Select
     
272.     End Sub
     
273. 
     
274.     Private Sub txtSumTotal_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSumTotal.KeyPress
     
275.         '// Don't press any key.
     
276.         e.Handled = True
     
277.     End Sub
     
278. 
     
279.     Private Sub rdoA5_Click(sender As Object, e As System.EventArgs) Handles rdoA5.Click
     
280.         Call btnPreview_Click(sender, e)
     
281.     End Sub
     
282. 
     
283.     Private Sub rdoA4_Click(sender As Object, e As System.EventArgs) Handles rdoA4.Click
     
284.         Call btnPreview_Click(sender, e)
     
285.     End Sub
     
286. 
     
287. End Class

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

มาดูโค้ดส่วนของการตั้งค่าและบันทึกผลลงใน INI File ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Setting up information.
   
8. ' / Microsoft Visual Basic .NET (2010) & MS Excel 2003+
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Public Class frmSetting
    
14.     Dim strFileINI As String
    
15. 
    
16.     Private Sub frmSetting_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
17.         Select Case e.KeyCode
    
18.             Case Keys.F8
    
19.                 Call btnSave_Click(sender, e)
    
20.             Case Keys.Escape
    
21.                 Me.Close()
    
22.         End Select
    
23.     End Sub
    
24. 
    
25.     ' / --------------------------------------------------------------------------------
    
26.     Private Sub frmSetting_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
27.         '// ตั้งค่าให้ KeyPreView = True เพื่อให้เกิดเหตุการณ์ KeyDown ทำงานได้
    
28.         Me.KeyPreview = True
    
29.         '//
    
30.         strFileINI = MyPath(Application.StartupPath) & "Config.ini"
    
31.         '// เช็คว่ามีไฟล์ Config.ini อยู่หรือไม่???
    
32.         If My.Computer.FileSystem.FileExists(strFileINI) Then
    
33.             txtOwner.Text = ReadIni(strFileINI, "Config", "Owner", "")
    
34.             txtAddress.Text = ReadIni(strFileINI, "Config", "Address", "")
    
35.             txtRemark1.Text = ReadIni(strFileINI, "Config", "Remark1", "")
    
36.             txtRemark2.Text = ReadIni(strFileINI, "Config", "Remark2", "")
    
37.             '// กรณีไม่เจอ ให้เริ่มต้นค่าใหม่
    
38.         Else
    
39.             txtOwner.Text = "ทองก้อนอิเล็กทรอนิกส์ (อดีตช่างในตำนาน)"
    
40.             txtAddress.Text = "123/456 ถ.กลางเมือง ต.เมืองเก่า อ.เมือง จ.ขอนแก่น โทร.043-XXX-XXX"
    
41.             txtRemark1.Text = "[1] กรุณาตรวจสอบและทดสอบอุปกรณ์ให้ครบถ้วนก่อนออกจากร้าน"
    
42.             txtRemark2.Text = "[2] สินค้ารับประกันการซ่อมยาวนาน 7 ชั่วโคตร"
    
43.         End If
    
44.     End Sub
    
45. 
    
46.     ' / --------------------------------------------------------------------------------
    
47.     '// บันทึกไฟล์ INI
    
48.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
    
49.         WriteIni(strFileINI, "Config", "Owner", txtOwner.Text)
    
50.         WriteIni(strFileINI, "Config", "Address", txtAddress.Text)
    
51.         WriteIni(strFileINI, "Config", "Remark1", txtRemark1.Text)
    
52.         WriteIni(strFileINI, "Config", "Remark2", txtRemark2.Text)
    
53.         '//
    
54.         MessageBox.Show("บันทึกการตั้งค่าระบบเรียบร้อย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
55.         Me.Close()
    
56.     End Sub
    
57. 
    
58.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
59.         Me.Close()
    
60.     End Sub
    
61. 
    
62.     Private Sub frmSetting_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
63.         Me.Dispose()
    
64.     End Sub
    
65. 
    
66. End Class

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

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

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Print bill on paper size is A4/A5.
   
8. ' / Microsoft Visual Basic .NET (2010) & MS Excel 2003+
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Imports DataDynamics.ActiveReports
    
14. Imports DataDynamics.ActiveReports.Document
    
15. 
    
16. Public Class arPrintBillA4A5
    
17.     ' ตัวแปรนี้ต้องประกาศเป็นแบบ Public (เฉพาะ arPrintBillA4A5) เพื่อให้ส่วนของ Detail1_Format และ FetchData มองเห็นด้วย
    
18.     Private ItemNo As Integer
    
19.     Private GrandTotal As Double
    
20.     '// เลือกจากแถวในตารางกริด
    
21.     Private sRow As Integer
    
22. 
    
23.     Private Sub arRoomReciept_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
24.         ItemNo += 1
    
25.         If ItemNo > frmPrintBillA4A5.dgvData.RowCount Then
    
26.             ' หากหมดแล้วก็จบการพิมพ์
    
27.             eArgs.EOF = True
    
28.             Exit Sub
    
29.             ' ยังไม่หมดข้อมูล
    
30.         Else
    
31.             eArgs.EOF = False
    
32.         End If
    
33.     End Sub
    
34. 
    
35.     Private Sub arRoomReciept_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
36.         ' การตั้งค่าหน้ากระดาษ
    
37.         With PageSettings
    
38.             ' หน่วยวัดเป็นนิ้ว
    
39.             .Margins.Left = CmToInch(1) ' แปลงค่า 1.0 ซม. เป็นนิ้ว
    
40.             .Margins.Right = 0.1
    
41.             .Margins.Top = 0.5
    
42.             .Margins.Bottom = 0.2
    
43.             ' ตั้งค่ากระดาษแนวตั้ง
    
44.             .Orientation = PageOrientation.Portrait
    
45.             ' กระดาษขนาด A4
    
46.             '.PaperKind = Drawing.Printing.PaperKind.A4
    
47.             ' กรณีที่กำหนดขนาดกระดาษเอง
    
48.             .PaperKind = Drawing.Printing.PaperKind.Custom
    
49.             .PaperWidth = CmToInch(21) ' 21 ซม.
    
50.             '// เลือกขนาดกระดาษ A5
    
51.             If frmPrintBillA4A5.rdoA5.Checked Then
    
52.                 .PaperHeight = CmToInch(14.8)
    
53.                 '// กระดาษ A4
    
54.             Else
    
55.                 .PaperHeight = CmToInch(29.5)
    
56.             End If
    
57.         End With
    
58.         ' ปกติต้องเคลียร์ค่าต่างๆของ TextBox ก่อนการพิมพ์
    
59.         txtItem.Text = ""
    
60.         txtDesc.Text = ""
    
61.         txtUnitPrice.Text = ""
    
62.         txtQTY.Text = ""
    
63.         txtAmount.Text = ""
    
64.         txtGrandTotal.Text = ""
    
65.         txtOwner.Text = ""
    
66.         txtAddress.Text = ""
    
67.         lblRemark1.Text = ""
    
68.         lblRemark2.Text = ""
    
69.         txtDate.Text = ""
    
70.         txtInvoiceNo.Text = ""
    
71.         '// ตั้งค่าเริ่มต้นในการนับจำนวนหลัก
    
72.         ItemNo = 0
    
73.         '// แถวเริ่มต้น
    
74.         sRow = 0
    
75.         '// แสดงกิจการและที่อยู่ โดยการอ่านค่าจาก INI (Initialized File)
    
76.         Dim strFileINI As String = MyPath(Application.StartupPath) & "Config.ini"
    
77.         If My.Computer.FileSystem.FileExists(strFileINI) Then
    
78.             txtOwner.Text = ReadIni(strFileINI, "Config", "Owner", "")
    
79.             txtAddress.Text = ReadIni(strFileINI, "Config", "Address", "")
    
80.             lblRemark1.Text = ReadIni(strFileINI, "Config", "Remark1", "")
    
81.             lblRemark2.Text = ReadIni(strFileINI, "Config", "Remark2", "")
    
82.             '// กรณีไม่เจอ ให้เริ่มต้นค่าใหม่
    
83.         Else
    
84.             txtOwner.Text = "ทองก้อนอิเล็กทรอนิกส์ (อดีตช่างในตำนาน)"
    
85.             txtAddress.Text = "123/456 ถ.กลางเมือง ต.เมืองเก่า อ.เมือง จ.ขอนแก่น โทร.043-XXX-XXX"
    
86.             lblRemark1.Text = "[1] กรุณาตรวจสอบและทดสอบอุปกรณ์ให้ครบถ้วนก่อนออกจากร้าน"
    
87.             lblRemark2.Text = "[2] สินค้ารับประกันการซ่อมยาวนาน 7 ชั่วโคตร"
    
88.         End If
    
89.     End Sub
    
90. 
    
91.     Private Sub Detail1_Format(sender As Object, e As System.EventArgs) Handles Detail1.Format
    
92.         '// ItemNo หรือลำดับที่ โดยจะเริ่มจาก 1
    
93.         txtItem.Text = ItemNo & "."
    
94.         With frmPrintBillA4A5
    
95.             '// หลักแรกของ DataGridView
    
96.             txtDesc.Text = .dgvData.Rows(sRow).Cells(0).Value
    
97.             '// หลักที่ 2
    
98.             txtQTY.Text = .dgvData.Rows(sRow).Cells(1).Value
    
99.             '// หลักที่ 3
    
100.             txtUnitPrice.Text = Format(CDbl(.dgvData.Rows(sRow).Cells(2).Value), "#,##0.00")
     
101.             '// จะดึงข้อมูลมาจากหลักที่ 4 ใน DataGridView เลยก็ได้
     
102.             txtAmount.Text = Format(CDbl(txtUnitPrice.Text) * CInt(txtQTY.Text), "#,##0.00")
     
103.         End With
     
104.         ' รวมจำนวนเงินผ่านทางตัวแปร
     
105.         GrandTotal = GrandTotal + CDbl(txtAmount.Text)
     
106.         '// เลื่อนตำแหน่งแถวการพิมพ์ (ไม่ใช้ตัวแปรนี้ก็ได้ ใช้ ItemNo แทน โดยให้ลดค่า ItemNo - 1)
     
107.         '// แต่แยกให้เห็นจะได้ทำความเข้าใจง่ายๆครับผม
     
108.         sRow += 1
     
109.     End Sub
     
110. 
     
111.     Private Sub PageHeader1_Format(sender As Object, e As System.EventArgs) Handles PageHeader1.Format
     
112.         txtCname.Text = frmPrintBillA4A5.txtCustomer.Text
     
113.         txtCPhone.Text = frmPrintBillA4A5.txtCPhone.Text
     
114.         txtInvoiceNo.Text = frmPrintBillA4A5.txtInvoiceNo.Text
     
115.         txtDate.Text = FormatDateTime(Now(), DateFormat.GeneralDate)
     
116.     End Sub
     
117. 
     
118.     Private Sub GroupFooter1_Format(sender As Object, e As System.EventArgs) Handles GroupFooter1.Format
     
119.         txtGrandTotal.Text = "รวมเงิน: " & Format(GrandTotal, "#,##0.00") & " บาท."
     
120.     End Sub
     
121. End Class

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

มาดูโค้ดในส่วนของโมดูลฟังค์ชั่น ...

1. Module modFunction
   
2. 
   
3.     ' / --------------------------------------------------------------------------------
   
4.     ' / Initialized Management
   
5.     Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringW" ( _
   
6.         ByVal lpApplicationName As String, _
   
7.         ByVal lpKeyName As String, _
   
8.         ByVal lpString As String, _
   
9.         ByVal lpFileName As String _
   
10.         ) As Int32
    
11. 
    
12.     Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" ( _
    
13.         ByVal lpApplicationName As String, _
    
14.         ByVal lpKeyName As String, _
    
15.         ByVal lpDefault As String, _
    
16.         ByVal lpReturnedString As String, _
    
17.         ByVal nSize As Int32, _
    
18.         ByVal lpFileName As String _
    
19.         ) As Int32
    
20.     ' / --------------------------------------------------------------------------------
    
21. 
    
22.     ' / --------------------------------------------------------------------------------
    
23.     Public Sub WriteIni(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamVal As String)
    
24.         Dim Result As Integer = WritePrivateProfileString(Section, ParamName, ParamVal, iniFileName)
    
25.     End Sub
    
26. 
    
27.     Public Function ReadIni(ByVal IniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
    
28.         Dim ParamVal As String = Space$(1024)
    
29.         Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), IniFileName)
    
30.         ReadIni = Left$(ParamVal, LenParamVal)
    
31.     End Function
    
32. 
    
33.     ' / --------------------------------------------------------------------------------
    
34.     ' / Get my project path
    
35.     ' / AppPath = C:\My Project\bin\debug
    
36.     ' / Replace "\bin\debug" with ""
    
37.     ' / Return : C:\My Project\
    
38.     Function MyPath(ByVal AppPath As String) As String
    
39.         '/ MessageBox.Show(AppPath);
    
40.         AppPath = AppPath.ToLower()
    
41.         '/ Return Value
    
42.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
43.         '// If not found folder then put the \ (BackSlash) at the end.
    
44.         If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
45.     End Function
    
46. 
    
47.     ' / --------------------------------------------------------------------------------
    
48.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
    
49.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
50.         Select Case index
    
51.             Case 48 To 57 ' เลข 0 - 9
    
52.                 CheckDigitOnly = False
    
53.             Case 8, 13 ' Backspace = 8, Enter = 13
    
54.                 CheckDigitOnly = False
    
55.             Case Else
    
56.                 CheckDigitOnly = True
    
57.         End Select
    
58.     End Function
    
59. End Module

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

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

MrDen

ขอบพระคุณอย่างสูงครับ อาจารย์