Foxtable(狐表)用户栏目专家坐堂 → 关于页眉的处理问题


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

主题:关于页眉的处理问题

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


加好友 发短信
等级:小狐 帖子:340 积分:3794 威望:0 精华:0 注册:2017/9/7 15:20:00
关于页眉的处理问题  发帖心情 Post By: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() 
'预览

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/18 17:13:00 [只看该作者]

不要把公司名称放到页眉。按普通方法打印即可

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


加好友 发短信
等级:小狐 帖子:340 积分:3794 威望:0 精华:0 注册:2017/9/7 15:20:00
  发帖心情 Post By:2021/10/18 18:03:00 [只看该作者]

不行啊,这三个模块是按上中下排列的,关键是标题在中间,不知道该如何处理?,,

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/18 20:35:00 [只看该作者]

这个没有办法。要么不要把标题放在中间。要么就自己做分页和手工生成页眉。分页可以参考这个:http://www.foxtable.com/webhelp/topics/2241.htm

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/18 20:42:00 [只看该作者]

或者参考这种模式,分开打印:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=161333&skin=0

 回到顶部