怎样获取电脑中打印机名称及一些信息?

jy_1201 2003-01-04 01:23:11
同时怎样设置默认打印机?
...全文
169 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过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
回复
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
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告