如何打印多张纸张

做了一个打印小程序  
用定点打印的
With Printer
  .FontName = "宋体"
  .FontSize = 12
  .ScaleMode = 2

   
End With
With Printer
  .CurrentX = 95
  .CurrentY = 12
  doc = DTPicker1
  Printer.Print doc
   
  .CurrentX = 200
  .CurrentY = 12
  doc = DTPicker1
  Printer.Print doc
   
End With
Printer.EndDoc
这样就是打印一张 成功
但是如果我要打印5张的话我就要点5下
比较麻烦
所以我后来 又放了一个TEXT
输入打印数量 

就可以按要求打印几张

我要问的是 怎么样才能一下子打印几张呢

谢谢打架

快来打架

自己顶

for i=1 to text1.text

With Printer
  .CurrentX = 95
  .CurrentY = 12
  doc = DTPicker1
  Printer.Print doc
   
  .CurrentX = 200
  .CurrentY = 12
  doc = DTPicker1
  Printer.Print doc
   
End With
Printer.EndDoc

next i