你可以使用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