在VB中如何获取当前PC所安装的打印机的信息,,,,,,,,,,,,散分啦!!!!!!

jzhan 2004-12-06 11:58:54
在VB中如何获取当前PC所安装的打印机的信息
...全文
293 5 打赏 收藏 转发到动态 举报
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧