[VB6] แสดงรายชื่อเครื่องพิมพ์ทั้งหมด และเลือกกำหนดให้เป็น Default Printer

thongkorn

บทความตอนนี้ก็จะเป็นการแสดงรายชื่อเครื่องพิมพ์ที่ต่ออยู่ในเครื่องคอมฯออกมาทั้งหมด จากนั้นก็ทำการเลือกให้ตัวใดตัวหนึ่งเป็น Default Printer ซึ่งจะต้องใช้ Win32 API (Application Programming Interface) เข้าช่วย โดยประโยชน์อย่างอื่นก็สามารถนำไปใช้กำหนดการส่งออกไปพิมพ์ยังเครื่องพิมพ์ที่เราระบุ เช่น ระบบร้านอาหาร กำหนดให้เอกสารนี้ส่งไปครัว งานนี้ส่งออกไปเครื่องแคชเชียร์ หรือภายในสำนักงานที่มีเครื่องพิมพ์อยู่เป็นจำนวนมาก ก็นำไปประยุกต์ใช้งานเอาตามที่สะดวกกันน่ะครับ ...

มาดูโค้ดกันเถอะ ...

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. ' / MORE: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: get all printers and set default printer.
   
10. ' / Microsoft Visual Basic 6.0 (SP6)
    
11. ' /
    
12. ' / This is open source code under @CopyLeft by Thongkorn/Common Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / --------------------------------------------------------------------------
    
15. 
    
16. Option Explicit
    
17. 
    
18. Private Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" ( _
    
19.     ByVal lpszSection As String, _
    
20.     ByVal lpszKeyName As String, _
    
21.     ByVal lpszString As String _
    
22.     ) As Long
    
23. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    
24.     ByVal hwnd As Long, _
    
25.     ByVal wMsg As Long, _
    
26.     ByVal wParam As Long, _
    
27.     lParam As Any _
    
28.     ) As Long
    
29. Private Const HWND_BROADCAST = &HFFFF&
    
30. Private Const WM_WININICHANGE = &H1A
    
31. 
    
32. Private Sub Form_Load()
    
33.     '// list all printers.
    
34.     Call ListPrinters(lstPrinters)
    
35. End Sub
    
36. 
    
37. Private Sub cmdSetDefault_Click()
    
38.     Dim DeviceName As String
    
39.     DeviceName = lstPrinters.List(lstPrinters.ListIndex)
    
40.     If Trim(DeviceName) <> "" Then
    
41.         '// Set Default Printer
    
42.         Call SetPrinter(DeviceName)
    
43.         MsgBox DeviceName & " has finish to be set as the default printer.", vbOKOnly + vbInformation, "Report Status"
    
44.     End If
    
45. End Sub
    
46. 
    
47. '// Set Default Printer
    
48. Private Sub SetPrinter(PrnName As String)
    
49.     Dim x As Long, sztemp As String
    
50.     Dim prn As VB.Printer
    
51.     If Printers.Count > 0 Then
    
52.         For Each prn In VB.Printers
    
53.             If prn.DeviceName = PrnName Then
    
54.                 '// Set Default Printer with API
    
55.                 sztemp = prn.DeviceName & "," & prn.DriverName & "," & prn.Port
    
56.                 x = WriteProfileString("windows", "device", sztemp)
    
57.                 x = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0&, "windows")
    
58.                 Exit For
    
59.             End If
    
60.         Next prn
    
61.     End If
    
62. End Sub
    
63. 
    
64. '// List all Printers
    
65. Private Sub ListPrinters(ListControl As Object)
    
66.     On Error GoTo ErrHandler:
    
67.     Dim l As Integer
    
68.     Dim lCount As Integer
    
69.     ListControl.Clear
    
70.    
    
71.     lCount = Printers.Count
    
72.    
    
73.     If lCount = 0 Then
    
74.         ListControl.AddItem "(No Printer Installed)"
    
75.     Else
    
76.         For l = 0 To lCount - 1
    
77.             ListControl.AddItem Printers(l).DeviceName
    
78.         Next
    
79.     End If
    
80.     Exit Sub
    
81.    
    
82. ErrHandler:
    
83.     MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    
84.     Exit Sub
    
85. End Sub

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

ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่ ...