VB怎么选择指定打印机

[fjc04091125]

有几台打印机，其中一台为默认打印机，现在要在VB程序里面实现选择非默认的打印机，怎么实现，用到哪些方法啊？

[LWMWORK]

1、通用对话框.showprint
2、dim x as printer
for each x in printers
if x.orientation=vbprorportrait then
set printer=x
exit for
endif
next

[ScottYj]

'设置打印机名
Dim devPrinter As Printer

For Each devPrinter In Printers
If devPrinter.DeviceName = "已知的打印机名(可通知界面设置写入注册表或INI文件)" Then
'设定为系统缺省打印机。
Set Printer = devPrinter
' 终止查找打印机。
Exit For
End If
Next

[tai118]

我最想学如何打印!!但我是初学者看不懂!!学习中........!

[贝隆]

学习了

[feiyun0112]

将非默认的打印机设为默认的打印机

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '非默认的打印机")
For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
Next



*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://feiyun0112.cnblogs.com/

[fjc04091125]

哈哈，选打印机懂了，多谢给为大哥了，小弟还有个问题，就是这么实现选择纸盒啊，打印机上有四个纸盒，默认是第四个纸盒，现在要程序选择纸盒三里面的纸，请问怎么实现？

[fjc04091125]

为什么我选择了打印机后（非默认） 最后还是用默认的打印机打印的?

[terrywolf]

路过，顶一下！

[mybelta2]

我也正要解决这个问题，继续关注...

[rmini]

等待答案...

[lxwlt]

我也想知道如何弄打印机，看了还是不明白，就象有些程序里出现的打印机列表框用什么函数提取。