Foxtable(狐表)用户栏目专家坐堂 → 关于报表打印代码


  共有22869人关注过本帖树形打印复制链接

主题:关于报表打印代码

帅哥哟,离线,有人找我吗?
yzsjaq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:112 威望:0 精华:0 注册:2009/12/9 9:55:00
关于报表打印代码  发帖心情 Post By:2009/12/10 15:56:00 [显示全部帖子]

我在设计报表打印代码时发现:doc.Preview() 和doc.Print()显示的效果不一样,前者显示的是设计所要达到的效果,而后者所显示的是缩的很小的效果,为什么,请高手帮助解决。

 回到顶部
帅哥哟,离线,有人找我吗?
yzsjaq
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:112 威望:0 精华:0 注册:2009/12/9 9:55:00
关于报表打印代码问题  发帖心情 Post By:2009/12/11 9:52:00 [显示全部帖子]

两个打印效果不一样,如: 报表打印代码1: Dim doc As New PrintDoc '定义一个报表 Dim rt As New prt.RenderTable() '定义一个表格对象 doc.Body.Children.Add(rt) '将表格对象加入到报表中 rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型 rt.Width = 150 '表宽为150毫米 rt.Height = 150 '表高为150毫米 rt.Rows.Count = 3 '设置行数 rt.Cols.Count = 3 '设置列数 doc.Preview() '预览 报表打印代码2: Dim doc As New PrintDoc '定义一个报表 Dim rt As New prt.RenderTable() '定义一个表格对象 doc.Body.Children.Add(rt) '将表格对象加入到报表中 rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型 rt.Width = 150 '表宽为150毫米 rt.Height = 150 '表高为150毫米 rt.Rows.Count = 3 '设置行数 rt.Cols.Count = 3 '设置列数 doc.Print()

 回到顶部
帅哥哟,离线,有人找我吗?
yzsjaq
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:112 威望:0 精华:0 注册:2009/12/9 9:55:00
  发帖心情 Post By:2009/12/11 14:39:00 [显示全部帖子]

删除doc.AutoRotate = False 后,还是效果不一样,doc.Preview() 大于doc.Print()。您不妨试试。
[此贴子已经被作者于2009-12-11 14:42:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yzsjaq
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:112 威望:0 精华:0 注册:2009/12/9 9:55:00
  发帖心情 Post By:2009/12/11 15:34:00 [显示全部帖子]

用的是旧版本,新版本可以解决此问题吗?
[此贴子已经被作者于2009-12-11 16:02:21编辑过]

 回到顶部