以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表设置页眉首页不显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161333)
--  作者：yifan3429
--  发布时间：2021/3/13 14:53:00
--  专业报表设置页眉首页不显示

\'设置页眉
rt = New prt.RenderText \'设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" \'设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right \'靠右对齐
rt.Style.Borders.Bottom = New prt.LineDef(0.3, Color.Green) \'设置底边框
rt.Style.Padding.Bottom = 0.5 \'底端内容缩进0.5毫米
rt.Style.FontSize = 8 \'字体大小为8磅
Doc.PageHeader = rt \'作为页眉使用
doc.Preview() \'预览


第一页是标题页 不想显示怎么控制
--  作者：有点蓝
--  发布时间：2021/3/13 16:10:00
--  
分开打开，先调用代码打印标题，再调用代码处理正文
--  作者：yifan3429
--  发布时间：2021/3/13 18:28:00
--  
没明白，
有实例吗

[此贴子已经被作者于2021/3/13 18:29:57编辑过]
--  作者：有点蓝
--  发布时间：2021/3/14 20:12:00
--  
就把标题和内容分开2段代码
 
Dim doc As New PrintDoc 
Dim rt As New prt.RenderText 
rt.Text = "我是标题" 
doc.Body.Children.Add(rt) 
doc.print() \'预览

doc = New PrintDoc 
rt= New prt.RenderText 
rt.Text = "我是内容" 
doc.Body.Children.Add(rt) 
\'设置页眉
rt = New prt.RenderText \'设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" \'设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right \'靠右对齐
rt.Style.Borders.Bottom = New prt.LineDef(0.3, Color.Green) \'设置底边框
rt.Style.Padding.Bottom = 0.5 \'底端内容缩进0.5毫米
rt.Style.FontSize = 8 \'字体大小为8磅
Doc.PageHeader = rt \'作为页眉使用
doc.print() \'预览