[VB.NET] โค้ดการพิมพ์ชื่อที่อยู่ผู้รับออกซองจดหมายขนาด 23x11 ซม. ด้วย ActiveReports .NET

thongkorn

สำหรับสาย VB6 + ActiveReports 2.0 สามารถอ่านรายละเอียดและดาวน์โหลดโค้ดได้ที่หัวข้อ โค้ดการพิมพ์ชื่อที่อยู่ผู้รับออกซองจดหมายขนาด 23x11 ซม. ด้วย ActiveReports 2.0 ... ในส่วนของรายละเอียดวิธีการขั้นตอนต่างๆ แอดมินจะขอข้ามไปเพราะได้เคยกล่าวนำไปหลายครั้งแล้ว สำหรับมิตรรักแฟนคลับสายพันธุ์ Visual Basic ที่เผลอพลัดหลงเข้ามาเห็นเว็บไซต์แห่งนี้ จงใช้ความพยายามในการค้นหาข้อมูลพื้นฐาน หรือการใช้งานเบื้องต้นของ ActiveReports เอาเองด้วยเถิดครับผม ...
การใช้งาน ActiveReports Designer ...

l


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

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 out standard envelope 23x11 cm. with ActiveReports.NET 6.0
   
8. ' / Microsoft Visual Basic .NET (2010) SP1
   
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. 
    
15. Public Class frmPrintEnvelope
    
16. 
    
17.     ' / --------------------------------------------------------------------
    
18.     Private Sub frmPrintEnvelope_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
19.         txtAddress.Text = _
    
20.                 "กรุณาส่ง" & vbCrLf & _
    
21.                 "นายทองก้อน ทับทิมกรอบ" & vbCrLf & _
    
22.                 "555 ม.555 ซ.ห้าห้าห้า ถ.กลางเมือง" & vbCrLf & _
    
23.                 "ต.เมืองเก่า อ.เมือง" & vbCrLf & _
    
24.                 "จ.ขอนแก่น 40000"
    
25.         '// ตั้งค่า ActiveReports
    
26.         Viewer1.ReportViewer.Zoom = 0.75F   ' Zoom = 75%
    
27.         Viewer1.ReportViewer.DisplayUnits = Viewer.DisplayUnits.Metric
    
28.         '// Form Minimum Size
    
29.         Me.MinimumSize = New Size(781, 631)
    
30. 
    
31.         '// ตั้งค่าการพิมพ์จากขอบซ้ายของซองจดหมาย
    
32.         txtLeftMargin.Text = "80"
    
33.         '// ตั้งค่าการพิมพ์จากด้านบน
    
34.         txtTopMargin.Text = "25"
    
35. 
    
36.         '// Initialize Font
    
37.         lblDataFont.Font = New Font("BrowalliaUPC", "16")
    
38.         lblDataFont.Text = lblDataFont.Font.Name & " " & lblDataFont.Font.Size
    
39.     End Sub
    
40. 
    
41.     ' / --------------------------------------------------------------------
    
42.     Private Sub btnPrintPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPrintPreview.Click
    
43.         If txtLeftMargin.Text = "" Then txtLeftMargin.Text = "80"
    
44.         If txtTopMargin.Text = "" Then txtTopMargin.Text = "25"
    
45. 
    
46.         '/ Instance name ARDesigner มันจะชี้ไปที่ไฟล์ arPrintEnvelope.vb
    
47.         Dim rpt As New arPrintEnvelope()
    
48.         '/ โหลดรายงาน document (arPrintEnvelope) เข้าสู่ ActiveReports Viewer
    
49.         Me.Viewer1.Document = rpt.Document
    
50.         '/ Run Report
    
51.         rpt.Run()
    
52.     End Sub
    
53. 
    
54.     ' / --------------------------------------------------------------------
    
55.     Private Sub btnFont_Click(sender As System.Object, e As System.EventArgs) Handles btnFont.Click
    
56. 
    
57.         Dim FontDialog As FontDialog = New FontDialog
    
58.         '// FontDialog รับค่าปัจจุบันจาก lblDataFont
    
59.         FontDialog.Font = New Font(lblDataFont.Font.Name, lblDataFont.Font.Size, lblDataFont.Font.Style)
    
60. 
    
61.         If FontDialog.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
    
62.             lblDataFont.Font = FontDialog.Font
    
63.             lblDataFont.Text = lblDataFont.Font.Name & " " & lblDataFont.Font.Size
    
64.         End If
    
65.     End Sub
    
66. 
    
67.     ' / --------------------------------------------------------------------
    
68.     ' / ก่อนใช้งาน Form_KeyDown ได้ ต้องกำหนดค่าให้ KeyPreview = True ก่อน
    
69.     Private Sub frmPrintEnvelope_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
70.         Select Case e.KeyCode
    
71.             Case Keys.F7
    
72.                 Call btnPrintPreview_Click(sender, e)
    
73.             Case Keys.F10
    
74.                 Call btnExit_Click(sender, e)
    
75.         End Select
    
76.     End Sub
    
77. 
    
78.     ' / --------------------------------------------------------------------
    
79.     Private Sub txtLeftMargin_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtLeftMargin.KeyPress
    
80.         '// หากกด Enter
    
81.         If e.KeyChar = Chr(13) Then
    
82.             e.Handled = True
    
83.             '// เลื่อนไป Control ถัดไป
    
84.             SendKeys.Send("{TAB}")
    
85.         Else
    
86.             '// เช็คการกดคีย์ให้รับเฉพาะ 0 - 9 เท่านั้น
    
87.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
88.         End If
    
89.     End Sub
    
90. 
    
91.     ' / --------------------------------------------------------------------
    
92.     Private Sub txtTopMargin_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtTopMargin.KeyPress
    
93.         '// หากกด Enter
    
94.         If e.KeyChar = Chr(13) Then
    
95.             e.Handled = True
    
96.             '// เลื่อนไป Control ถัดไป
    
97.             SendKeys.Send("{TAB}")
    
98.         Else
    
99.             '// เช็คการกดคีย์ให้รับเฉพาะ 0 - 9 เท่านั้น
    
100.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
     
101.         End If
     
102.     End Sub
     
103. 
     
104.     ' / --------------------------------------------------------------------
     
105.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
     
106.     Function CheckDigitOnly(ByVal index As Byte) As Boolean
     
107.         Select Case index
     
108.             Case 48 To 57 ' เลข 0 - 9
     
109.                 CheckDigitOnly = False
     
110.             Case 8, 13 ' Backspace = 8, Enter = 13
     
111.                 CheckDigitOnly = False
     
112.             Case Else
     
113.                 CheckDigitOnly = True
     
114.         End Select
     
115.     End Function
     
116. 
     
117.     Private Sub frmPrintEnvelope_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 btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
123.         Me.Close()
     
124.     End Sub
     
125. 
     
126.     Private Sub ToolStripStatusLabel2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel2.Click
     
127.         Process.Start("http://www.facebook.com/g2gnet")
     
128.     End Sub
     
129. End Class

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

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

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 out standard envelope 23x11 cm. with ActiveReports.NET 6.0
   
8. ' / Microsoft Visual Basic .NET (2010) SP1
   
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 arPrintEnvelope
    
17. 
    
18.     Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
    
19.         txtRecipient.Text = frmPrintEnvelope.txtAddress.Text
    
20.     End Sub
    
21. 
    
22.     Private Sub arPrintEnvelope_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
23.         ' จะเริ่มต้นการทำงานที่โปรแกรมย่อยตัวนี้
    
24. 
    
25.         ' การตั้งค่าแบบ Run Time (มีหน่วยวัดเป็นนิ้ว)
    
26.         With PageSettings
    
27.             .Margins.Left = 0.25
    
28.             .Margins.Right = 0.25
    
29.             .Margins.Top = 0.5
    
30.             .Margins.Bottom = 0.5
    
31.             ' ตั้งค่ากระดาษแนวตั้ง
    
32.             .Orientation = PageOrientation.Landscape
    
33.             ' ซองจดหมาย หรือ Envelope #10, ขนาด 4 1/8 x 9 1/2 in
    
34.             .PaperKind = Drawing.Printing.PaperKind.Number10Envelope
    
35. 
    
36.             ' กรณีที่กำหนดขนาดกระดาษเอง
    
37.             ' .PaperKind = Drawing.Printing.PaperKind.Custom
    
38.         End With
    
39.         ' ความสูงของการพิมพ์ Detail
    
40.         Detail1.Height = CmToInch(7.5) ' วัดระยะโดยประมาณ 7.5 ซม แต่แปลงเป็นนิ้ว)
    
41.         ' กำหนดระยะการพิมพ์ที่อยู่ (รับค่าเป็นมิลลิเมตรเข้ามาหาร 10 เป็น ซม. แล้วแปลงเป็นนิ้ว)
    
42.         txtRecipient.Top = ActiveReport.CmToInch(Val(frmPrintEnvelope.txtTopMargin.Text) / 10)
    
43.         txtRecipient.Left = ActiveReport.CmToInch(Val(frmPrintEnvelope.txtLeftMargin.Text) / 10)
    
44. 
    
45.         ' กำหนดฟอนต์
    
46.         txtRecipient.Font = frmPrintEnvelope.lblDataFont.Font
    
47. 
    
48.     End Sub
    
49. End Class

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

สาระสำคัญในส่วนของ AR Designer คือ ReportStart จะเป็นการเริ่มต้นตั้งค่าการพิมพ์ และนำข้อมูลมาพิมพ์ที่โปรแกรมย่อย Detail1_Format ...


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

g2gsoftuser

ขอบคุณครับ