自画了一个表格打印，为什么大约有1/10的客户反映表哥和文本分页打印？？

Question

顶~
这一部分被打在第二页        For h = 0 + g * 30 To 29 + g * 30
    str1() = Split(List1.List(h), ",")
    
     Printer.CurrentY = y
      Printer.CurrentX = 1020
     Printer.Print h + 1
     
     Printer.CurrentY = y
      Printer.CurrentX = 1800
     Printer.Print str1(0)
     Printer.CurrentX = 2900
     Printer.CurrentY = y
     Printer.Print str1(1)
     Printer.CurrentX = 4400
     Printer.CurrentY = y
     Printer.Print str1(2)
     Printer.CurrentX = 5500
     Printer.CurrentY = y
     Printer.Print str1(3) & "    " & str1(4) & "    " & str1(5)
  y = y + 5 * hheight
 Next h
          
       Else
        For h = 0 + g * 30 To List1.ListCount - 1
      str1() = Split(List1.List(h), ",")
      Printer.CurrentY = y
      Printer.CurrentX = 1020
     Printer.Print h + 1
     
     Printer.CurrentY = y
      Printer.CurrentX = 1800
     Printer.Print str1(0)
     Printer.CurrentX = 2900
     Printer.CurrentY = y
     Printer.Print str1(1)
     Printer.CurrentX = 4400
     Printer.CurrentY = y
     Printer.Print str1(2)
     Printer.CurrentX = 5500
     Printer.CurrentY = y
     Printer.Print str1(3) & "    " & str1(4) & "    " & str1(5)
  y = y + 5 * hheight
          
          Next h

Answer 1

各位帮帮忙吧！
除了用enddoc还有没有其他的方法打印

Answer 2

出现这种问题，大多数情况下是打印的面积超出了纸张的面积。
你在打印前如果先根据纸张大小（printer.width,print.height),再适当缩小，计算出行距和边距，就不会有这种情况发生了。

Answer 3

qbilbo(风之兄)有实例或代码片断贴出来看看吧，摆脱！