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