以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于页眉的处理问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172541)

--  作者:304376480
--  发布时间:2021/10/18 17:04:00
--  关于页眉的处理问题
老师您好! 专业报表里作为页眉使用,下面的代码中,公司名称这块我想在第二页不显示,只需要首页显示,怎么办?

Dim doc As New PrintDoc 

Dim ras As New prt.RenderArea \'定义一个容器

Dim ra As New prt.RenderArea \'定义一个容器
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磅
ra.Children.Add(rt)
ras.Children.Add(ra)

rt = New prt.RenderText    ‘第二页以后不显示这里的标题
rt.Text = "公司名称标题" 
ra.Children.Add(rt)
ras.Children.Add(ra)

rt = New prt.RenderText 
rt.Text = "单据编号" 
ra.Children.Add(rt)
ras.Children.Add(ra)

Doc.PageHeader = ras \'作为页眉使用

rt= New prt.RenderText 
rt.Text = "我是内容" 
doc.Body.Children.Add(rt) 

doc.print() 
\'预览

--  作者:有点蓝
--  发布时间:2021/10/18 17:13:00
--  
不要把公司名称放到页眉。按普通方法打印即可
--  作者:304376480
--  发布时间:2021/10/18 18:03:00
--  
不行啊,这三个模块是按上中下排列的,关键是标题在中间,不知道该如何处理?,,
--  作者:有点蓝
--  发布时间:2021/10/18 20:35:00
--  
这个没有办法。要么不要把标题放在中间。要么就自己做分页和手工生成页眉。分页可以参考这个:http://www.foxtable.com/webhelp/topics/2241.htm
--  作者:有点蓝
--  发布时间:2021/10/18 20:42:00
--  
或者参考这种模式,分开打印:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=161333&skin=0