各位：系统打印机如何取得？（100分）

Question

现想取得系统里的所有的打印机的以下信息：
打印机DRIVER，PRINTER，PORT，ORIENT，SIZE
（打印机驱动名称，打印机名称，打印机端口，打印机打印方向，打印机字体大小）

Answer 1

谢谢我已经解决了。
For i = 0 To Printers.Count - 1 
     If Printers(i).DeviceName = Printer.DeviceName Then 
     Print i 
     End If 
     Next 
没用api!
 For i = 0 To Printers.Count - 1
        strSysPrinter(i) = Printers(i).DeviceName
        strSysPrinterDrv() = Printers(i).DriverName
        strSysPrinterPt() = Printers(i).Port
        strSysPrinterOrt() = Printers(i).Orientation
        strSysPrinterSz() = Printers(i).FontSize
    Next