- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助][求助] 报表打印不了 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=93516)
-- 发布时间：2016/11/30 14:02:00
-- [求助][求助] 报表打印不了
此主题相关图片如下：b9(nh003w2o}5p592nwb$gb.png
此主题相关图片如下：d0wju$gu2~u9u9l0jq`rjt.png
我的报表打印时，可以预览，打印出现错误
-- 发布时间：2016/11/30 14:02:00
--
此主题相关图片如下：gq9lex`lq7ixm((bm%_h)5.png
-- 发布时间：2016/11/30 14:20:00
--
在预览后 在 “页面设置”确定一下就可以打印，这样太麻烦不知道怎么解决啊
-- 发布时间：2016/11/30 14:34:00
--
完整打印代码看看
-- 发布时间：2016/11/30 19:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打印.txt |
-- 发布时间：2016/11/30 19:50:00
--
代码
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:打印.txt |
-- 发布时间：2016/11/30 20:49:00
--
没有表，我去掉q_Grid0和Grid0定义的这段代码测试没有问题，你那边试试
Dim q_Grid0 As new QｕeryBuilder
q_Grid0.TableNa me ="QB_金翔明细表"
q_Grid0.Connect i
q_Grid0.Sele ctS tring ="Sｅle ct * From {金翔明细表} Wh ｅre [单据号码] =\'" & Tables("金翔主表").current("单据号码") & "\'"
......
Grid0.Style.GridLines.All = New Prt.LineDef("0.2",Color.From KnownColor(35)) \'所有网格线
Grid0.Style.GridLines.Vert = New Prt.LineDef("0.2",Color.Fro mKnownColor(35)) \'所有网格线
Grid0.Style.GridLines.Horz = New Prt.LineDef("0.2",Color.Fro mKnownColor(35)) \'所有网格线
If DataTables.Cont ains("QB_金翔明细表") Then
DataTablｅs.Unload("QB_金翔明细表")
End If
特别是上面红色这段去掉试试，会不会是打印的时候没有数据源了