怎样获取电脑中打印机名称及一些信息？

[jy_1201]

同时怎样设置默认打印机？

[TechnoFantasy]

获得打印机名称：

Private Sub Command1_Click()
Dim o

For Each o In Printers
Debug.Print o.DeviceName
Next
End Sub

[TechnoFantasy]

可以参考MSDN中的Printers对象来得到打印机信息以及设置默认打印机。

[Reker熊]

Printers.Count 打印机数量
Printer.DeviceName 打印机设备名

For i=0 to Printers.Count
If Printers(i).DeviceName=Printer.DeviceName
Msgbox i '当前打印机在打印机列表中序号
End If
Next

[suntt]

呵呵