7,763
社区成员
发帖
与我相关
我的任务
分享
'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