Dim oldSet As Integer

oldSet = Printer.Copies
Printer.Copies =val(text1.text )‘ 打印 text1中显示份数
datareport1.PrintReport

只打印出 1 份。

代码应该怎样写才能打印出所要的份数 ?

除了
for i = 1 to text2.text
datareport1.PrintReport
next i

还有其他方法么，急！