各位老大：下面是我写的代码，提示错误是：“实时错误：'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

某些打印机不支持该属性，只能设置为1

Copies 属性

返回或设置需要打印的份数。对于 Printer 对象，在设计时不可用。

语法

object.Copies [= number]

Copies 属性语法包含下面部分:

部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Number 数值表达式，指定需要打印的份数。该值必须是整型值。

说明

对于“打印”对话框，该属性返回在“份数”框中用户输入的份数。如果设置 CommonDialog 控件的 cdlPDUseDevModeCopies 标志，则该属性始终返回 1。

对于 Printer 对象，对多份打印可能进行、也可能不进行核对，这取决于打印机驱动程序。可以将整个文档或将每一页打印多份。对于不支持核对的打印机，设置 Copies = 1，然后在程序中使用循环，就可以将整个文档打印多份。

注意 Printer 对象属性的效果取决于打印机生产商提供的驱动程序。一些属性设置可能不起作用，或几个不同的属性设置具有相同的结果。如果设置值超出可接受范围，就会产生错误。更多的信息，参阅有关驱动程序的生产商文档。

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

可以使用变通的方法，使用For循环输出10次。

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

晕，这个10还是你输入的参数呀

比如Text1是你输入的份数：

For I=1 To Text1.Text
....
'输出一份
....
Next