需要實作點擊按鈕,獲取本機列印機串列,選擇其中一個列印機進行列印。新手求助哈!
uj5u.com熱心網友回復:
加這個函式 SelectPrinter()'Form1
'放一個 ListBox、一個CommandButton
Option Explicit
Private Sub Command1_Click()
SelectPrinter List1.Text
Printer.Print "Hello"
Printer.EndDoc
End Sub
Private Sub Form_Load()
Dim prt As Printer
For Each prt In Printers
List1.AddItem prt.DeviceName
If prt.DeviceName = Printer.DeviceName Then
List1.ListIndex = List1.NewIndex
End If
Next
End Sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/85511.html
標籤:VB基礎類
