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


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

主题：如何用专业报表生成如图文书呢？
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107802 积分：548361 威望：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() '预览
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107802 积分：548361 威望：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() '预览
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107802 积分：548361 威望：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.03906 秒, 5 次数据查询