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

Question

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

Answer 1

加一个combodim 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，不记得了。你去试试

Answer 2

取得打印机:
If Printers.Count < 1 Then
    MsgBox "系统没有安装打印机！", vbCritical, App.Title
    Unload Me
    Exit Sub
End IfDim Prns As Printer
For Each Prns In Printers
    List1.AddItem Prns.DeviceName
Next
List1.ListIndex = 0设定默认打印机:
Set Printer = Printers(List1.ListIndex)