7453
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
suntt 2003-01-05
呵呵
Reker熊 2003-01-04
Printers.Count 打印机数量
Printer.DeviceName 打印机设备名
For i=0 to Printers.Count
If Printers(i).DeviceName=Printer.DeviceName
Msgbox i '当前打印机在打印机列表中序号
End If
Next
Printer.DeviceName 打印机设备名
For i=0 to Printers.Count
If Printers(i).DeviceName=Printer.DeviceName
Msgbox i '当前打印机在打印机列表中序号
End If
Next
TechnoFantasy 2003-01-04
可以参考MSDN中的Printers对象来得到打印机信息以及设置默认打印机。
TechnoFantasy 2003-01-04
获得打印机名称：
Private Sub Command1_Click()
Dim o
For Each o In Printers
Debug.Print o.DeviceName
Next
End Sub
Private Sub Command1_Click()
Dim o
For Each o In Printers
Debug.Print o.DeviceName
Next
End Sub
