主题：打印时数据不见了

运行表“明细账”的窗口，单击“打印”按钮，单击跳出窗口的“查询”按钮，“汽车”列有数据，再单击“打印”预览窗口，“汽车”列的数据消失了，为什么？

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

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

打印：

Tables("附表").Filter = "[日期] = #2009-01-01#"
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

根据实际情况，必须使用dataTables("附表").dataFilter = "[日期] = #2009-01-01#",请问怎么办？因为我需要使用load加载数据。

运行表“明细账”的窗口，单击“打印”按钮，单击跳出窗口的“查询”按钮。再单击“打印”或“打印预览”按钮，现有两个问题： 1、“汽车列”数据丢失；（附件与上次有个差异） 2、单击“打印”能打印两页；“打印预览”按钮，预览三页。 请帮助解决一下。

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

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

C版已经给过你代码了，见2楼 ～  

将
   With dataTables("附表")
        .LoadFilter = filter
        .LoadPage = i
        .Load()
   End With

换成：
Tables("附表").Filter = Filter      即可！～～～～～～

后台本来就没有汽车这个列，是你自己用AddCol临时增加的，重新Load当然汽车列就没有数据了。

5楼，你改过后，在打印机上连续测试3次，你就会发现问题了。

不知有没有办法打印如预览格式的表

应该打印的是三页，结果出来两页纸。

这是我打印出来的结果：

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

点击浏览该文件:桌面.rar

此主题相关图片如下：未命名.jpg