主题：再求打印问题

显示可以打印六页，但打印到纸上的只有第1页和第3-5页，第二页不出纸，请指点迷津。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:明细账打印.table

日期变量为2009-01-01，运行表“明细账”的窗口，“打印”，“查询”，“打印”的顺序执行。

没见过这样的问题。

分页打印没必要分页Load的，用一个临时列，按顺序编号，然后设置Filter属性，每次按顺序显式要打印的那几行。

贺老师，请如果写代码。

我想分页打印，列是临时加上去的，这点要求应该不高吧。

我没空写的，而且意义不大，用Excel报表来实现多页打印，方便得多。

我看看能不能加个每页打印行数，自动分页算了

我看看能不能加个每页打印行数，自动分页算了

能加这个功能，是天大的喜事，这是我已久的期待。贺老师，加油。

正在尝试，希望能成功。

for i as integer =1 to 5 step 1
    dim filter="[_Identify] <= 4*" & i & " and [_Identify]>=4*(" & i & "-1)"  
'这里不能用_identify 因为每次充填后它都会发生变化！
   Tables("附表").Filter = Filter
   Dim doc As PrintDoc = e.Form.GernatePrintDoc()
   doc.Print()
   DataTables("附表").deletefor(filter)    ‘这两行代码似呼有些多余
   DataTables("附表").save()
next