打印机

Question

vb中如何判断系统是否装了打印机

Answer 1

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

Answer 2

用printer.count是否需要引用什么库？

Answer 3

设定默认打印机:
Set Printer = Printers(List1.ListIndex)这条语句好像没什么用嘛，执行完了以后，系统的默认打印机还是没变

Answer 4

wanghaisc(老猫)，
List1.ListIndex
是列表中选中的，你选了吗？

Answer 5

选了，当然选了
我做了一个按钮，单击时Set Printer = Printers(Combo1.ListIndex)，但是没效果（此时Combo1中选中了另外一台打印机）