Foxtable(狐表)用户栏目专家坐堂 → 页眉页脚问题


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

主题:页眉页脚问题

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


加好友 发短信
等级:小狐 帖子:370 积分:2542 威望:0 精华:0 注册:2012/10/29 8:32:00
页眉页脚问题  发帖心情 Post By:2017/11/15 14:21:00 [只看该作者]

在专业报表中,按照例子设置页眉页脚,代码如下:
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rt As prt.RenderText
rt = New prt.RenderText '设置文本对象的内容
rt.Text = str1 + " - 第[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 '作为页眉使用

Dim rt1 As prt.RenderText
rt1 = New prt.RenderText
rt1.Text = "天津某某自动化"
rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Right '靠右对齐
rt1.Style.Padding.Bottom = 0.5 '底端内容缩进0.5毫米
rt1.Style.Borders.Bottom = New prt.LineDef(0.3, Color.Green) '设置底边框
rt1.Style.FontSize = 8 '字体大小为8磅
Doc.PageFooter = rt1 '作为页脚使用

页眉显示正常,页脚的字在横线上面,怎样才能让页脚的字在横线下面?现在的样子入下图,页眉是我希望的样子

此主题相关图片如下:ph.png
按此在新窗口浏览图片

页脚不是我希望的样子

此主题相关图片如下:pf.png
按此在新窗口浏览图片


[此贴子已经被作者于2017/11/15 14:21:59编辑过]

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


加好友 发短信
等级:小狐 帖子:370 积分:2542 威望:0 精华:0 注册:2012/10/29 8:32:00
  发帖心情 Post By:2017/11/15 14:31:00 [只看该作者]

明白了,要把bottom改成top就在上面画线了

rt1.Style.Padding.Top = 0.5 '底端内容缩进0.5毫米
rt1.Style.Borders.Top = New prt.LineDef(0.3, Color.Green) '设置底边框
rt1.Style.FontSize = 8 '字体大小为8磅
Doc.PageFooter = rt1 '作为页脚使用
[此贴子已经被作者于2017/11/15 14:31:48编辑过]

 回到顶部