Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何用专业报表生成如图文书呢？


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

主题：如何用专业报表生成如图文书呢？
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		如何用专业报表生成如图文书呢？  发帖心情 Post By：2022/8/25 13:15:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:决定书.zip
如何用专业报表生成如图文书呢？
主要是外边框的双线
当前代码如下：【得到的是两个独立线框，没有达到预期的如下图的表格边框线】麻烦老师指导下 怎么给表格的外边框画上双实线  一粗一细
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
rt.Style.Borders.All = New prt.Linedef(1.5, Color.Black) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表

Dim rt1 As New prt.RenderText '定义一个文本对象
rt1.Width = "Parent.Width -10" '对象宽度等于页面宽度
rt1.Height = "Parent.Height - 10" '对象高度等于页面高度
rt1.Style.Borders.All = New prt.Linedef(0.5, Color.Black) '设置边框
doc.Body.Children.Add(rt1) '将文本对象加入到报表
doc.Preview() '预览

图片点击可在新窗口打开查看
[此贴子已经被作者于2022/8/25 13:25:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112481 积分：572691 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/8/25 13:54:00 [只看该作者]

……
Dim rt1 As New prt.RenderText '定义一个文本对象
rt1.X = "Parent.left + 5"
rt1.Y = "Parent.Top + 5"
rt1.Width = "Parent.Width -10" '对象宽度等于页面宽度
rt1.Height = "Parent.Height - 10" '对象高度等于页面高度
rt1.Style.Borders.All = New prt.Linedef(0.5, Color.Black) '设置边框
doc.Body.Children.Add(rt1) '将文本对象加入到报表
doc.Preview() '预览
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）……Dim rt1 As New prt.RenderText ...  发帖心情 Post By：2022/8/26 8:53:00 [只看该作者]

有没有什么办法可以自定义设置这个线框显示多少页？比如显示三页，或者五页，样本表至少都是两页的……
当前只实现了一页！
图片点击可在新窗口打开查看
当前代码如下：
Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距

Dim rt As New C1.C1Preview.RenderText '定义一个文本对象
Dim rt1 As New C1.C1Preview.RenderText '定义一个文本对象

rt.X = "Parent.left+10"
rt.Y = "Parent.Top+10"
rt.Width = "170" '对象宽度等于页面宽度
rt.Height = "230" '对象高度等于页面高度
rt.Style.Borders.All = New C1.C1Preview.Linedef(1.5, Color.Black) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表


rt1.X = "Parent.left + 12"
rt1.Y = "Parent.Top + 12"
rt1.Width = "170 -4" '对象宽度等于页面宽度
rt1.Height = "230 - 4" '对象高度等于页面高度
rt1.Style.Borders.All = New C1.C1Preview.Linedef(0.5, Color.Black) '设置边框

rt1.BreakAfter = C1.C1Preview.BreakEnum.Page'打印之后另起一栏
doc.Body.Children.Add(rt1) '将文本对象加入到报表
doc.Preview() '预览


[此贴子已经被作者于2022/8/26 8:54:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112481 积分：572691 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/8/26 9:03:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距

Dim rt As New C1.C1Preview.RenderText '定义一个文本对象
Dim rt1 As New C1.C1Preview.RenderText '定义一个文本对象

rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
rt.Style.Borders.All = New C1.C1Preview.Linedef(1.5, Color.Black) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表


rt1.X = "Parent.left + 5"
rt1.Y = "Parent.Top + 5"
rt1.Width = "Parent.Width-10" '对象宽度等于页面宽度
rt1.Height = "Parent.Height-10" '对象高度等于页面高度
rt1.Style.Borders.All = New C1.C1Preview.Linedef(0.5, Color.Black) '设置边框

rt1.BreakAfter = C1.C1Preview.BreakEnum.Page'打印之后另起一栏
doc.Body.Children.Add(rt1) '将文本对象加入到报表

rt = New C1.C1Preview.RenderText '定义一个文本对象
rt1 = New C1.C1Preview.RenderText '定义一个文本对象

rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
rt.Style.Borders.All = New C1.C1Preview.Linedef(1.5, Color.Black) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表


rt1.X = "Parent.left + 5"
rt1.Y = "Parent.Top + 5"
rt1.Width = "Parent.Width-10" '对象宽度等于页面宽度
rt1.Height = "Parent.Height-10" '对象高度等于页面高度
rt1.Style.Borders.All = New C1.C1Preview.Linedef(0.5, Color.Black) '设置边框
doc.Body.Children.Add(rt1) '将文本对象加入到报表
doc.Preview() '预览
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）Dim doc As New PrintDoc '定义一个报...  发帖心情 Post By：2022/8/26 9:14:00 [只看该作者]

老师 为什么我指定宽度与高度之后 就被重合成一个了呢？
图片点击可在新窗口打开查看
当前代码如下：
Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距

Dim rt As New C1.C1Preview.RenderText '定义一个文本对象
Dim rt1 As New C1.C1Preview.RenderText '定义一个文本对象
rt.X = "Parent.left+10"
rt.Y = "Parent.Top+10"
rt.Width = "170" '对象宽度等于页面宽度
rt.Height = "230" '对象高度等于页面高度
rt.Style.Borders.All = New C1.C1Preview.Linedef(1.5, Color.Black) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表


rt1.X = "Parent.left + 12"
rt1.Y = "Parent.Top + 12"
rt1.Width = "170-4" '对象宽度等于页面宽度
rt1.Height = "230-4" '对象高度等于页面高度
rt1.Style.Borders.All = New C1.C1Preview.Linedef(0.5, Color.Black) '设置边框

rt1.BreakAfter = C1.C1Preview.BreakEnum.Page'打印之后另起一栏
doc.Body.Children.Add(rt1) '将文本对象加入到报表

rt = New C1.C1Preview.RenderText '定义一个文本对象
rt1 = New C1.C1Preview.RenderText '定义一个文本对象
rt.X = "Parent.left+10"
rt.Y = "Parent.Top+10"
rt.Width = "170" '对象宽度等于页面宽度
rt.Height = "230" '对象高度等于页面高度
rt.Style.Borders.All = New C1.C1Preview.Linedef(1.5, Color.Black) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表


rt1.X = "Parent.left + 12"
rt1.Y = "Parent.Top + 12"
rt1.Width = "170-4" '对象宽度等于页面宽度
rt1.Height = "230-4" '对象高度等于页面高度
rt1.Style.Borders.All = New C1.C1Preview.Linedef(0.5, Color.Black) '设置边框
rt1.BreakAfter = C1.C1Preview.BreakEnum.Page'打印之后另起一栏
doc.Body.Children.Add(rt1) '将文本对象加入到报表
doc.Preview() '预览
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112481 积分：572691 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/8/26 9:24:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.Width = 202
Doc.PageSetting.Height = 280
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距

Dim rt As New C1.C1Preview.RenderText '定义一个文本对象
Dim rt1 As New C1.C1Preview.RenderText '定义一个文本对象
rt.X = "Parent.left+10"
rt.Y = "Parent.Top+10"
rt.Width = 170 '对象宽度等于页面宽度
rt.Height = 230 '对象高度等于页面高度
rt.Style.Borders.All = New C1.C1Preview.Linedef(1.5, Color.Black) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表


rt1.X = "Parent.left + 12"
rt1.Y = "Parent.Top + 12"
rt1.Width = 170 - 4 '对象宽度等于页面宽度
rt1.Height = 230 - 4 '对象高度等于页面高度
rt1.Style.Borders.All = New C1.C1Preview.Linedef(0.5, Color.Black) '设置边框

doc.Body.Children.Add(rt1) '将文本对象加入到报表

Dim rm As New prt.RenderEmpty
    rm.BreakBefore = prt.BreakEnum.Page '打印前换页
    doc.Body.Children.Add(rm) '加入到报表中

rt = New C1.C1Preview.RenderText '定义一个文本对象
rt1 = New C1.C1Preview.RenderText '定义一个文本对象

rt.Text = "9999"
rt.X = "Parent.left+10"
rt.Y = "Parent.Top+10"
rt.Width = 170 '对象宽度等于页面宽度
rt.Height = 230 '对象高度等于页面高度
rt.Style.Borders.All = New C1.C1Preview.Linedef(1.5, Color.Black) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表


rt1.X = "Parent.left + 12"
rt1.Y = "Parent.Top + 12"
rt1.Width = 170 - 4 '对象宽度等于页面宽度
rt1.Height = 230 - 4 '对象高度等于页面高度
rt1.Style.Borders.All = New C1.C1Preview.Linedef(0.5, Color.Black) '设置边框
doc.Body.Children.Add(rt1) '将文本对象加入到报表
doc.Preview() '预览
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10901 秒, 5 次数据查询