以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  页眉页脚问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109597)
--  作者：mayazql
--  发布时间：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
--  发布时间：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编辑过]