专业报表设计救助！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

专业报表设计救助！

如何代码设计下面的报表呢？没有头绪！求助

此主题相关图片如下：qq图片20141107201549.jpg

是每个单元格都一个一个的测量么？

之前我是直接用已经印刷好的这个封面然后用狐表定位打印，实现套打，但是会出现一个问题

因为封面是已经印刷成行，由于印刷中的位置不一定全部一致，所以会出现定位的数据有时候完美实现打印，有时候出现错行。

求最佳解决方法！

就是已经印刷成型的封面有时候会出现上下间距不一样这个无法目测

确实是封面问题所以求解我现在想直接画出如图格式

这个固然是一个解决的办法但是因为格式距离无法目测，且不可能每次打印都要一一的校队那反而影响效率了求解怎么画出如上表格然后直接打印

目前遇见的第一个难题是如何画最外的那边框

如何是按表中套表呢？

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

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编辑过]

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

dvubb 此主题相关图片如下：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编辑过]

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

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

表格对应数据图如下：

此主题相关图片如下：卷宗封面图.jpg

主题：专业报表设计救助！