1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim prt As Printer
For Each prt In Printers
If prt.DeviceName = "aaa" Then
prt.Print "123"
ElseIf prt.DeviceName = "bbb" Then
prt.Print "345"
End If
Next
End Sub