你可以使用vb的printers集合对象。

Private Sub Command1_Click()
Dim i As Integer

For i = 0 To Printers.Count - 1

Print Printers(i).DeviceName‘打印机的名称
Print Printers(i).DriverName ’打印机的驱动名称
Print Printers(i).Port‘端口
Next
End Sub