社区
VB基础类
帖子详情
在VB中如何获取当前PC所安装的打印机的信息,,,,,,,,,,,,散分啦!!!!!!
jzhan
2004-12-06 11:58:54
在VB中如何获取当前PC所安装的打印机的信息
...全文
293
5
打赏
收藏
在VB中如何获取当前PC所安装的打印机的信息,,,,,,,,,,,,散分啦!!!!!!
在VB中如何获取当前PC所安装的打印机的信息
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
penghb81
2004-12-06
打赏
举报
回复
用CommonDialog 控件和ShowPrinter方法
本例使用 CommonDialog 控件和 ShowColor,ShowFont,ShowHelp,ShowOpen,ShowPrinter,和 ShowSav 等方法,显示公共对话框。要试用此例子,将代码粘贴到窗体的声明部分,该窗体带有 CommandButton,OptionButton(设置该选项按钮的 Index 属性为 0)、以及 CommonDialog 控件。按 F5 键,为所要的公共对话框选择选项按钮,再选取命令按钮。
Private Sub Form_Paint ()
Static FlagFormPainted As Integer
' 当第一次画窗体时,
If FlagFormPainted <> True Then
For i = 1 To 5
Load Option1(i) ' 给数组添加 5 个选项按钮。
Option1(i).Top = Option1(i - 1).Top + 350
Option1(i).Visible = True
Next i
Option1(0).Caption = "Open" ' 在每个选项按钮上放置标题。
Option1(1).Caption = "Save"
Option1(2).Caption = "Color"
Option1(3).Caption = "Font"
Option1(4).Caption = "Printer"
Option1(5).Caption = "Help"
Command1.Caption = "Show Dlg" ' 标签命令按钮。
FlagFormPainted = True ' 窗体已画完。
End If
End Sub
Private Sub Command1_Click ()
If Option1(0).Value Then ' 如果选择打开选箱,
CommonDialog1.ShowOpen ' 显示打开公共对话框。
ElseIf Option1(1).Value Then ' 否则,
CommonDialog1.ShowSave ' 显示 Save 公共对话框。
ElseIf Option1(2).Value Then ' 否则,
CommonDialog1.ShowColor ' 显示 Color 公共对话框。
ElseIf Option1(3).Value Then ' 否则,
CommonDialog1.Flags = cdlCFBoth ' 在使用ShowFont 方法之前,
'必须给 cdlCFBoth, ' cdlCFPrinterFonts,
'或 cdlCFScreenFonts
' 置标识属性。
CommonDialog1.ShowFont ' 显示字体公共对话框。
ElseIf Option1(4).Value Then ' 或,
CommonDialog1.ShowPrinter ' 显示打印机公共对话框。
ElseIf Option1(5).Value Then ' 或
CommonDialog1.HelpFile = "VB5.hlp"
CommonDialog1.HelpCommand = cdlHelpContents
CommonDialog1.ShowHelp' 显示 Visual Basic 帮助目录主题。
End If
End Sub
True1024
2004-12-06
打赏
举报
回复
用CommonDialog把打印对话框调出来不行吗?
Private Sub Form_Load()
CommonDialog1.ShowPrinter
End Sub
cindytsai
2004-12-06
打赏
举报
回复
学习&接分
aijie099
2004-12-06
打赏
举报
回复
在注册表里。你查找一下,一个打印名,就可以找到那里。
xayzmb
2004-12-06
打赏
举报
回复
'用一个listBox控件显示出来
Private Sub Form_Load()
If Printers.Count < 1 Then
MsgBox "系统没有安装打印机!", vbCritical, App.Title
Unload Me
Exit Sub
Else
Dim Prns As Printer
For Each Prns In Printers
List1.AddItem Prns.DeviceName
Next
List1.ListIndex = -1
End If
End Sub
金融科技-SpringBoot231MyBatisPlus332Layui256EasyWeb318-四方支付系统商户管理运营后台资金结算交易监控风.zip
金融科技_SpringBoot231MyBatisPlus332Layui256EasyWeb318_四方支付系统商户管理运营后台资金结算交易监控风.zip【vmware虚拟机
安装
】资源征集
java kotlin demo-Kotlin资源
demo for java and kotlin
2025713.pdf
2025713.pdf
Docker容器如何绑定宿主机外部IP与端口详解
资源下载链接为: https://pan.quark.cn/s/22ca96b7bd39 Docker让容器通过外部访问或容器互联来提供网络服务。用 myfirstapp 镜像演示: 外部访问容器 容器启动后,若其
中
运行网络应用,可用 -p 或 -P 指定端口映射。 a. 使用 -P(大写)时,Docker 会随机挑选一个宿主机端口映射到容器内部暴露的端口。 示例: dockerrun−d−Pmyfirstapppythonapp.py docker ps CONTAINER ID IMAGE COMMAND CREATED STATUS PORTS
(完整word版)基于MATLAB的水箱液位控制系统的设计与.doc
(完整word版)基于MATLAB的水箱液位控制系统的设计与.doc
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章