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

thongkorn

เท่าที่แอดมินรู้จักกับคนทำงานสาย IT Support ส่วนมากหากเก่ง Hardware แต่มักจะอ่อนเรื่อง Software หรือบางทีก็จะตรงข้ามกัน มันอาจจะเป็นเพราะความชอบ หรือความถนัดมากกว่า คำว่า Software ที่แอดมินหมายถึง คือ การพัฒนางานด้วยการเขียนโปรแกรมขึ้นมาเอง ไม่ได้หมายถึงการนำเอาโปรแกรมของคนอื่นเขามาใช้นะครับ การเริ่มต้นด้วยงานเขียนโปรแกรมเล็กๆน้อยๆ เพื่อหาจุดเริ่มต้น จะนำทางให้ก้าวเดินต่อไป ในการพัฒนาขีดความสามารถของตัวเองให้สูงขึ้น เช่น  เพิ่มเติมการปรับฟอนต์หรือขนาดตัวอักษร จัดระยะการพิมพ์ทั้งจากซ้ายและด้านบน รวมไปถึงระบุชื่อผู้ส่ง ฯลฯ ต่อจากนั้นก็ใส่ฐานข้อมูลลูกค้าลงไป โอ้ย!!! เยอะแยะไปหมดล่ะครับ หากเรารู้จักการพัฒนาตัวเองแบบก้าวไปทีละขั้น ...

ดาวน์โหลดชุดติดตั้ง ActiveReports 2.0 ได้ที่นี่ (เฉพาะสมาชิกเท่านั้น)


หน้าจอ Design Time ของ VB6


การเพิ่มรายงาน ActiveReports 2.0 Designer


หน้าจอสำหรับ ActiveReports Designer

เนื่องจากแอดมินได้สาธยายกล่าวถึงการทำงานของ VB6 + ActiveReports 2.0 ไปเยอะแล้ว จะไม่ขอพูดถึงหลักการให้ซ้ำซากล่ะกันครับ

มาดูโค้ดในส่วนของฟอร์ม VB6 ...

1. Option Explicit
   
2. 
   
3. Private Sub cmdPreview_Click()
   
4.     '/ ประกาศตัวแปรแบบ Object เพื่อรับงานไปพิมพ์
   
5.     Dim rptPrint As Object
   
6.     '/ ส่วนสำคัญในการทำรายงานด้วย Active Report คือการตั้งค่า หรือ การผูกรายงานเข้ากับ Object
   
7.     Set rptPrint = New arPrintEnvelope   ' มาจากชื่อไฟล์รายงาน (Designer)
   
8.     '/ ARViewPrintEnvelope ตัวนี้คือ Control ที่วางไว้อยู่บนฟอร์ม frmAR2PrintEnvelope
   
9.     Set Me.ARViewPrintEnvelope.object = rptPrint
   
10.    
    
11. End Sub
    
12. 
    
13. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
14.     '/ ก่อนจะใช้ Sub Program นี้ได้ ... พี่น้องต้องกำหนดค่าของ Form ให้คุณสมบัติ KeyPreview = True ก่อน
    
15.     Select Case KeyCode
    
16.         Case vbKeyF1: MsgBox "No help now."
    
17.         Case vbKeyF7:
    
18.                     Call cmdPreview_Click
    
19.         Case vbKeyF10:
    
20.                     cmdExit_Click
    
21.    End Select
    
22. End Sub
    
23. 
    
24. Private Sub Form_Load()
    
25. On Error GoTo ErrorHandler
    
26.    
    
27.     '/ ตั้งตำหน่งกึ่งกลางจอภาพ ... การใช้ \ หรือ การหารตัดเศษ จะทำงานได้เร็วกว่าการหาร /
    
28.     Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    
29.    
    
30.     With ARViewPrintEnvelope
    
31.         .Zoom = 80   ' ค่า % การแสดงผล
    
32.         '/ และอื่นๆอีก ...
    
33.     End With
    
34.    
    
35.     txtAddress.Text = "กรุณาส่ง" & vbCrLf & _
    
36.                             "คุณทองก้อน ทับทิมกรอบ" & vbCrLf & _
    
37.                             "Thongkorn Service Co., Ltd." & vbCrLf & _
    
38.                             "123/456 ถ.วิภาวดีรังสิต" & vbCrLf & _
    
39.                             "แขวงสนามบิน เขตดอนเมือง" & vbCrLf & _
    
40.                             "กรุงเทพฯ 10210"
    
41.     txtNote.Text = "(เรารักภาษาเบสิค)"
    
42.    
    
43. ExitProc:
    
44.     Exit Sub
    
45.    
    
46. ErrorHandler:
    
47.     MsgBox "Error : " & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbExclamation, "รายงานความผิดพลาด"
    
48.     Resume ExitProc
    
49. End Sub
    
50. 
    
51. Private Sub Form_Resize()
    
52.     On Error Resume Next
    
53.     If Me.Width < 10530 Then Me.Width = 10530
    
54.     If Me.Height < 8865 Then Me.Height = 8865
    
55.     '/ จัดระเบียบสังคม เอ๊ย หน้าตาการแสดงผล ...
    
56.     fraPreview.Move 15, 2280, Me.ScaleWidth - 30, Me.ScaleHeight - fraPreview.Top - 330
    
57.     ARViewPrintEnvelope.Width = fraPreview.Width - 90
    
58.     ARViewPrintEnvelope.Height = fraPreview.Height - 230
    
59.     '/
    
60.     cmdPreview.Move Me.ScaleWidth - cmdPreview.Width - 60
    
61.     cmdExit.Left = cmdPreview.Left
    
62. End Sub
    
63. 
    
64. Private Sub Form_Unload(Cancel As Integer)
    
65.     On Error Resume Next
    
66.     '/ ก่อนจบโปรแกรม ควรลบไฟล์ขยะออกไปให้หมด (Temporary File)
    
67.     If Dir$(App.Path & "\*.tmp") <> "" Then Kill App.Path & "\*.tmp"
    
68.     End
    
69. End Sub
    
70. 
    
71. Private Sub cmdExit_Click()
    
72.     Unload Me
    
73. End Sub

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

โค้ดในส่วนของ ActiveReports 2.0 ซึ่งเสมือนฟอร์มๆหนึ่งบน VB6

1. Option Explicit
   
2. 
   
3. ' / -----------------------------------------------------------------------------------------------
   
4. ' โปรแกรมย่อยในการตั้งค่าเริ่มต้น (Initialize) ต่างๆ ก่อนที่จะทำการพิมพ์ออกไป
   
5. ' / -----------------------------------------------------------------------------------------------
   
6. Private Sub ActiveReport_Initialize()
   
7.    
   
8.     '/ ตั้งค่ากระดาษในแนวนอน
   
9.     PageSettings.Orientation = ddOLandscape
   
10.    
    
11.     '/ ซองจดหมาย หรือ Envelope #10, ขนาด 4 1/8 x 9 1/2 in
    
12.     PageSettings.PaperSize = 20
    
13.    
    
14.     '/ ปรับระยะขอบต่างๆ (หน่วย Twip เด้อครับ)
    
15.     PageSettings.LeftMargin = 300
    
16.     PageSettings.RightMargin = 300
    
17.     PageSettings.BottomMargin = 100
    
18.     PageSettings.TopMargin = 1300
    
19.    
    
20.     '/ เคลียร์ค่าการพิมพ์รายชื่อ ที่อยู่ลูกค้า
    
21.     txtRecipient.Text = ""
    
22.     txtNote.Text = ""
    
23.    
    
24. End Sub
    
25. 
    
26. ' / -----------------------------------------------------------------------------------------------
    
27. ' / Detail คือส่วนที่พิมพ์ข้อมูล รายละเอียดต่างๆ ของการทำรายงานด้วย Active Report
    
28. ' / -----------------------------------------------------------------------------------------------
    
29. Private Sub Detail_Format()
    
30.     On Error Resume Next
    
31.    
    
32.     '/ ใช้ TextBox ตัวเดียวก็พอในการพิมพ์ที่อยู่ผู้รับ ... แต่อย่าลืมตั้งค่า Properties ให้ MultiLine = True
    
33.     txtRecipient.Text = frmAR2PrintEnvelope.txtAddress
    
34.     txtNote.Text = frmAR2PrintEnvelope.txtNote
    
35.    
    
36. End Sub
    
37. 
    
38. Private Sub ActiveReport_ReportEnd()
    
39.     Unload Me
    
40. End Sub

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

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB6 ได้ที่นี่

paper20

ขอบคุณครับ