各位老大：下面是我写的代码，提示错误是：“实时错误：'482',打印机错误”
下面这样写的代码对不对呀？错在哪里呢？请高手指点，谢谢！
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("输入错误，请重新输入！")
Else
MsgBox ("请备好了吗？")
Printer.FontName = "楷体_GB2312"
Printer.FontSize = 12
Printer.Print Text1.Text
Printer.Print Text2.Text
Printer.Print Text3.Text
Printer.Copies = CInt(Text4.Text)
Printer.EndDoc
End If
End Sub

谢谢版主这么详细，俺是初学者，对于这样的讲解俺都不明白，版主可否帮俺改改上面的代码，“Text4”是填写“打印份数”，比如我要打印十份，输入“10”就打印出十份出来，俺不知道怎么，谢谢！

可是并不是固定好每次都是10份的哦，因为每次打印量都不一样，所以那里不固定的数值，谢谢！