社区
API
帖子详情
请教:我想在我的软件上添加一个检测打印机是否安装的程序,应该怎样写呢?
guolucky2003
2003-08-18 03:11:31
请教:我想在我的软件上添加一个检测打印机是否安装的程序,应该怎样写呢?
...全文
29
3
打赏
收藏
请教:我想在我的软件上添加一个检测打印机是否安装的程序,应该怎样写呢?
请教:我想在我的软件上添加一个检测打印机是否安装的程序,应该怎样写呢?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hxy2003
2003-08-22
打赏
举报
回复
Printers.Count < 1
lihonggen0
2003-08-21
打赏
举报
回复
***************打印机***************************
取得打印机:
If Printers.Count < 1 Then
MsgBox "系统没有安装打印机!", vbCritical, App.Title
Unload Me
Exit Sub
End If
Dim Prns As Printer
For Each Prns In Printers
List1.AddItem Prns.DeviceName
Next
List1.ListIndex = 0
设定默认打印机:
Set Printer = Printers(List1.ListIndex)
felix
2003-08-19
打赏
举报
回复
if printers.count<1 then
msgbox "打印机没有安装"
end if
API
1,486
社区成员
23,279
社区内容
发帖
与我相关
我的任务
API
VB API
复制链接
扫一扫
分享
社区描述
VB API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章