Foxtable(狐表)用户栏目专家坐堂 → 专业报表强制换页


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

主题:专业报表强制换页

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
专业报表强制换页  发帖心情 Post By:2019/10/20 1:00:00 [只看该作者]

rx = New prt.RenderText
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 12 '大体大小为16磅
rx.Text = "  【TOGD#                       】"
rx.Text = rx.Text & vbcrlf & "TOCASA 项目组全体成员"
'rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right '水平居中排列
rx.Style.Spacing.Bottom = 5 '和下面的对象(表格)距离3毫米
rx.Style.Spacing.Top= 30 '和上面的对象(表格)距离3毫米
rx.Style.LineSpacing = 150 '设置双倍行距
doc.Body.Children.Add(rx)

上面代码一页内容不够
下面内容我想重新一页开始,
什么方法可以实现,求助
'
'加入标题
rx = New prt.RenderText
rx.Style.FontBold = True '字体加粗
rx.Style.TextColor = Color.DeepSkyBlue '字符颜色设为红色
rx.Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体
rx.Text = "附件二:"
rx.Text = rx.Text & vbcrlf & "关于五金:"
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left '水平居中排列
rx.Style.Spacing.Bottom =1  '和下面的对象(表格)距离3毫米
rx.Style.Spacing.Top= 58 '和上面的对象(表格)距离3毫米
rx.Style.LineSpacing = 150 '设置双倍行距'
doc.Body.Children.Add(rx)

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2019/10/20 9:24:00 [只看该作者]


 回到顶部