[浏览完整版]
标题：打印时数据不见了
1楼
lihe60 发表于：2009/11/17 12:48:00运行表“明细账”的窗口，单击“打印”按钮，单击跳出窗口的“查询”按钮，“汽车”列有数据，再单击“打印”预览窗口，“汽车”列的数据消失了，为什么？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:明细账打印.table |
2楼
czy 发表于：2009/11/17 13:30:00打印：
Tables("附表").Filter = "[日期] = #2009-01-01#"
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
Tables("附表").Filter = "[日期] = #2009-01-01#"
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
3楼
lihe60 发表于：2009/11/17 14:58:00根据实际情况，必须使用dataTables("附表").dataFilter = "[日期] = #2009-01-01#",请问怎么办？因为我需要使用load加载数据。
4楼
lihe60 发表于：2009/11/17 15:35:00|
运行表“明细账”的窗口，单击“打印”按钮，单击跳出窗口的“查询”按钮。再单击“打印”或“打印预览”按钮，现有两个问题： 1、“汽车列”数据丢失；（附件与上次有个差异） 2、单击“打印”能打印两页；“打印预览”按钮，预览三页。 请帮助解决一下。 |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:明细账打印.table |
5楼
mr725 发表于：2009/11/17 16:05:00C版已经给过你代码了，见2楼 ～
将
With dataTables("附表")
.LoadFilter = filter
.LoadPage = i
.Load()
End With
换成：
Tables("附表").Filter = Filter 即可！～～～～～～
将
With dataTables("附表")
.LoadFilter = filter
.LoadPage = i
.Load()
End With
换成：
Tables("附表").Filter = Filter 即可！～～～～～～
[此贴子已经被作者于2009-11-17 16:12:05编辑过]
6楼
狐狸爸爸 发表于：2009/11/17 16:05:00后台本来就没有汽车这个列，是你自己用AddCol临时增加的，重新Load当然汽车列就没有数据了。
[此贴子已经被作者于2009-11-17 16:09:12编辑过]
7楼
lihe60 发表于：2009/11/17 16:25:005楼，你改过后，在打印机上连续测试3次，你就会发现问题了。
8楼
lihe60 发表于：2009/11/17 16:32:00不知有没有办法打印如预览格式的表
9楼
lihe60 发表于：2009/11/17 16:38:00应该打印的是三页，结果出来两页纸。
10楼
mr725 发表于：2009/11/17 16:45:00
此主题相关图片如下：未命名.jpg