以文本方式查看主题 - 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底层的东西,好像你描述的这个功能。这个功能好像是,页眉页脚,只显示在第一页和最后一页。 |