[求助]一个打印份数问题
各位老大:下面是我写的代码,提示错误是:“实时错误:'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