Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表设计救助！


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

主题：专业报表设计救助！
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/10 9:16:00 [只看该作者]

 画那个简单啊。

 

 1、你可以用窗口套打，做好一整个窗口，赋值，打印；

 

 2、用专业报表，就是先画一个大表格，再套一个表，再套一个表那样
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）?画那个简单啊。?&nbs...  发帖心情 Post By：2014/11/10 23:04:00 [只看该作者]

如何是按表中套表呢？

下面的代码操作之后是单独的两个表

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 180 '对象宽度为40毫米
rt.Height = 180
rt.Style.Borders.All = New prt.Linedef
rt.Style.Spacing.Bottom = 0 '和下一个对象保持3毫米的距离
doc.Body.Children.Add(rt) '将文本对象加入到报表
rt = New prt.RenderText '再次新建一个文本框
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 180 '对象宽度为40毫米
rt.Height = 180
rt.Style.Borders.All = New prt.Linedef(1, Color.Green)
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

 

求指导！


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20141110230931.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-11-10 23:08:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/10 23:10:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 180 '对象宽度为40毫米
rt.Height = 180
rt.Style.Borders.All = New prt.Linedef
rt.Style.Spacing.Bottom = 0 '和下一个对象保持3毫米的距离
doc.Body.Children.Add(rt) '将文本对象加入到报表
Dim rt1 As New prt.RenderText '再次新建一个文本框
rt1.Text = "Hello Foxtable" '设置文本对象的内容
rt1.Width = 175 '对象宽度为40毫米
rt1.Height = 175
rt1.Style.Borders.All = New prt.Linedef(1, Color.Green)
rt.Children.Add(rt1) '将文本对象加入到报表
doc.Preview() '预览

 
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）Dim doc As New PrintDoc '定义一个报...  发帖心情 Post By：2014/11/10 23:49:00 [只看该作者]

有点甜老师 我已经进一步操作到如下效果了

 

 


此主题相关图片如下：qq图片20141110234900.jpg
按此在新窗口浏览图片
如何将下面的表格套入进大框架内呢？

 

代码现在如下：


Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "瓮安县人民检察院检察卷宗" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Style.Font = New Font("宋体", 24 , FontStyle.Bold) '设置文本对象的字体
rt.Width = 160 '对象宽度为40毫米
rt.Height = 190
rt.Style.Borders.All = New prt.Linedef(1, Color.black)
rt.Style.Spacing.Bottom = 0 '和下一个对象保持3毫米的距离
doc.Body.Children.Add(rt) '将文本对象加入到报表

Dim rt2 As New prt.RenderTable() '定义一个表格对象
Dim rs2 As New prt.RenderText() '定义一个文本对象
rt2.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rt2.Rows.Count = 3 '设置行数
rt2.Cols.Count = 3 '设置列数
rt2.Height = "6cm" '设置表格的高度
rt2.Style.Spacing.Top = 4 '表格和前面对象的垂直间隔为4毫米
rt2.Style.Spacing.Bottom = 10 '表和和后续对象的垂直间隔为10毫米
rs2.Text = "表格标题" '设置文本对象的内容
rs2.Style.Font = New Font("宋体", 24 , FontStyle.Bold) '设置文本对象的字体
rs2.Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本内容水平居中
doc.Body.Children.Add(rs2) '将文本对象加入到表格中
doc.Body.Children.Add(rt2) '将表格对象加入到报表中
rs2 = New prt.RenderText() '再次定义一个文本对象
rs2.Text = "上面的表格有三行三列,此行文本和表格的距离是10毫米"
doc.Body.Children.Add(rs2) '将文本对象加入到表格中


Dim rt1 As New prt.RenderText '再次新建一个文本框
rt1.Text = "" '设置文本对象的内容
rt1.Style.Padding.Top = 55'定义外框上边距
rt.Style.Padding.Top = 0.5 '上边距25毫米
rt.Style.Padding.Left = 0.5 '左边距5毫米
rt1.Width = 157 '对象宽度为40毫米
rt1.Height = 187
rt1.Style.Borders.All = New prt.Linedef(0.2, Color.black)
rt.Children.Add(rt1) '将文本对象加入到报表

doc.Preview() '预览

 
[此贴子已经被作者于2014-11-10 23:53:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40574 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2014/11/11 0:10:00 [只看该作者]

把您的表格所有的线找一个其他颜色的笔画通，用尺子测量出所有距离，写在表格外侧，扫描发上来，同时发上项目文件是最好！

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（程兴刚）把您的表格所有的线找一个其他颜色的...  发帖心情 Post By：2014/11/11 9:11:00 [只看该作者]

程版 暂时还没项目实例，目前就是用楼上的代码在命令窗口中进行调试的

先要解决了这个复杂表的设计 才会后续做例子！

表格对应数据图如下：


图片点击可在新窗口打开查看此主题相关图片如下：卷宗封面图.jpg
图片点击可在新窗口打开查看
 回到顶部
客人(113.86.*.*)
 小大  17楼


  发帖心情 Post By：2014/11/11 9:14:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Dim ra As New prt.RenderArea '定义一个文本对象
Dim rt As new prt.RenderText
rt.Text = "瓮安县人民检察院检察卷宗" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Style.Font = New Font("宋体", 24 , FontStyle.Bold) '设置文本对象的字体
ra.Width = 160 '对象宽度为40毫米
ra.Height = 190
ra.Style.Borders.All = New prt.Linedef(1, Color.black)
rt.Style.Spacing.Bottom = 0 '和下一个对象保持3毫米的距离



Dim rt2 As New prt.RenderTable() '定义一个表格对象
Dim rs2 As New prt.RenderText() '定义一个文本对象
rt2.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rt2.Rows.Count = 3 '设置行数
rt2.Cols.Count = 3 '设置列数
rt2.Height = "6cm" '设置表格的高度
rt2.Style.Spacing.Top = 4 '表格和前面对象的垂直间隔为4毫米
rt2.Style.Spacing.Bottom = 10 '表和和后续对象的垂直间隔为10毫米
rs2.Text = "表格标题" '设置文本对象的内容
rs2.Style.Font = New Font("宋体", 24 , FontStyle.Bold) '设置文本对象的字体
rs2.Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本内容水平居中


Dim rs3 As New prt.RenderText() '再次定义一个文本对象
rs3.Text = "上面的表格有三行三列,此行文本和表格的距离是10毫米"



Dim ra1 As New prt.RenderArea '再次新建一个文本框
ra1.Style.Padding.Top = 55'定义外框上边距
ra1.Style.Padding.Top = 0.5 '上边距25毫米
ra1.Style.Padding.Left = 0.5 '左边距5毫米
ra1.Width = 157 '对象宽度为40毫米
ra1.Height = 187
ra1.Style.Borders.All = New prt.Linedef(0.2, Color.black)


ra.Children.Add(ra1) '将文本对象加入到报表
ra1.Children.Add(rt) '将文本对象加入到报表
ra1.Children.Add(rs2) '将文本对象加入到表格中
ra1.Children.Add(rt2) '将文本对象加入到表格中
ra1.Children.Add(rs3) '将文本对象加入到表格中


Doc.Body.Children.Add(ra)
doc.Preview() '预览


 
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（客人(113.86.*.*)）Dim doc As New PrintDoc ...  发帖心情 Post By：2014/11/11 9:45:00 [只看该作者]

谢谢

 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询