- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 再求打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5038)
-- 发布时间：2009/11/18 16:09:00
-- 再求打印问题
显示可以打印六页，但打印到纸上的只有第1页和第3-5页，第二页不出纸，请指点迷津。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:明细账打印.table |
-- 发布时间：2009/11/18 16:12:00
--
日期变量为2009-01-01，运行表“明细账”的窗口，“打印”，“查询”，“打印”的顺序执行。
[此贴子已经被作者于2009-11-18 16:16:50编辑过]
-- 发布时间：2009/11/18 16:17:00
--
没见过这样的问题。
分页打印没必要分页Load的，用一个临时列，按顺序编号，然后设置Filter属性，每次按顺序显式要打印的那几行。
-- 发布时间：2009/11/18 16:18:00
--
贺老师，请如果写代码。
-- 发布时间：2009/11/18 16:20:00
--
我想分页打印，列是临时加上去的，这点要求应该不高吧。
-- 发布时间：2009/11/18 16:26:00
--
我没空写的，而且意义不大，用Excel报表来实现多页打印，方便得多。
-- 发布时间：2009/11/18 16:47:00
--
我看看能不能加个每页打印行数，自动分页算了
-- 发布时间：2009/11/18 16:54:00
--
|
我看看能不能加个每页打印行数，自动分页算了 |
-- 发布时间：2009/11/18 17:00:00
--
正在尝试，希望能成功。
-- 发布时间：2009/11/18 17:54:00
--
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