如何选择打印机，如何设置打印机？

[itti]

我有多台打印机，如何用VB实现选择打印机，如何设置打印机？
谢谢！

[还想懒够]

加一个combo

dim n as integer
for n=0 to printers.count-1
combo1.additem printers(n)
next n


private sub combo1_click()
set printer=combo1.text
end sub

好像是这样的。这会儿没有VB，不记得了。你去试试

[lihonggen0]

取得打印机:
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)