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