- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何用专业报表生成如图文书呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179464)
-- 发布时间：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编辑过]
-- 发布时间：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() \'预览
-- 发布时间：2022/8/26 8:53:00
-- 回复：（有点蓝）……Dim rt1 As New prt.RenderText ...
有没有什么办法可以自定义设置这个线框显示多少页？比如显示三页，或者五页，样本表至少都是两页的……
当前只实现了一页！
当前代码如下：
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编辑过]
-- 发布时间：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() \'预览
-- 发布时间：2022/8/26 9:14:00
-- 回复：（有点蓝）Dim doc As New PrintDoc '定义一个报...
老师 为什么我指定宽度与高度之后 就被重合成一个了呢？
当前代码如下：
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() \'预览
-- 发布时间：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() \'预览