以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教:如何获得专业报表页码,并参与计算?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58987)

--  作者:关键下一秒
--  发布时间:2014/10/27 18:49:00
--  请教:如何获得专业报表页码,并参与计算?
如题,请高手指教,谢谢!
--  作者:狐狸爸爸
--  发布时间:2014/10/27 19:00:00
--  
Dim doc As New PrintDoc \'定义一个报表
Dim rt As prt.RenderText \'定义一个文本对象
Dim s As String \'定义字符变量
s = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席锦涛乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
For i As Integer = 1 To 20
    rt = New prt.RenderText
    rt.Text = s \'设置文本对象的内容
    rt.Style.TextIndent = 9 \'首行缩进9毫米
    rt.Style.Spacing.Top = 5 \'每段间隔5毫米
    rt.Style.LineSpacing = 150 \'1.5倍行距
    doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
\'设置页眉
rt = New prt.RenderText \'设置文本对象的内容
rt.Text = "第[PageNo + 1]页,共[PageCount * 4]页" \'设置文本内容
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 \'作为页眉使用
doc.Preview() \'预览

--  作者:有点甜
--  发布时间:2014/10/27 19:08:00
--  

 无法获取。

 

 http://www.foxtable.com/help/topics/2408.htm

 


--  作者:关键下一秒
--  发布时间:2014/10/27 19:39:00
--  
谢谢!  如果能获取,就很容易在每页结尾处加上“接下页”,“打印结束”等字眼。如果用分页汇总的模式,又失去了灵活性,可惜了。
--  作者:Neha
--  发布时间:2014/10/27 20:25:00
--  
看C1底层的东西,好像你描述的这个功能。这个功能好像是,页眉页脚,只显示在第一页和最后一页。