请教高手VB中打印设计

Question

比如我想设计一个打印功能，如果电脑安装了打印机就正常打印，如果没安装就提示“没安装”
请问怎么设计？
我是设计是：
 CommonDialog1.Action = 5
 CommonDialog1.CancelError = False
   If Printers.Count < 0 Then
      MsgBox "没有安装打印机", vbCritical + vbOKOnly, "提示"
   Else
      If RichTextBox1.Text = "" Then
        MsgBox "没有试题", vbCritical + vbOKOnly, "提示"
              Else
                  For i = 1 To CommonDialog1.Copies
                    Printers.Print RichTextBox1.Text  ‘到这报错
                  Next i
                  Printer.EndDoc
              End If
         End If特别是报错的那地，不知道为何报错，请高手指教。

Answer 1

Printers.Print RichTextBox1.Text ‘到这报错
应该是:Printer.Print RichTextBox1.Text
printers后面多了一个“S”