为什么Printer对象不能打印多份？

Question

For n = 1 To Pagen
   Printer.Print "123456"
          .
  .
  .
   Printer.EndDoc
Next n
如此打印，为什么只出来一页啊？改成这样：
For n = 1 To Pagen
   Printer.Print "123456"
          .
  .
  .       
   Printer.EndDoc
   Printer.Print "8888"
Next n
第二份打出来的是8888？？？？没有123456

Answer 1

For n = 1 To Pagen
   Printer.Print "123456"
          .
  .
  .       
   Printer.NewPage
Next n
Printer.EndDoc