老师您好! 专业报表里作为页眉使用,下面的代码中,公司名称这块我想在第二页不显示,只需要首页显示,怎么办?
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 '字体大小为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() '预览