怎样检查系统有没有安装打印机？最后的19分给出

Question

哪位仁兄解答一下，不够分下次给，最后19分啦~~~~~~~

Answer 1

Dim X As Printer
For Each X In Printers
   If X.Orientation = vbPRORPortrait Then
      '将打印机设置为系统缺省的打印机。
      Set Printer = X
      '停止寻找打印机
      Exit For
   End If
Next

Answer 2

On Error Resume Next
Debug.Print Printer.hDC
If Error = Error(482) Then MsgBox "没有安装打印机"

Answer 3

当 Printers.Count=0 时没有打印机