Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
用专业报表如何取得当前打印页面的行、列位置?
因为 prev.Bottom不是数值型,不能用整数型变量来取值。如何才能获得?
如果这个备注很长,到下一页去了,又要在下页的底边加上文字,怎么办?
参考:
http://www.foxtable.com/help/topics/1177.htm
例如:
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
Dim s As String
s = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中中央总书?国家主席?中央军委主席锦涛乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
rt.Text = "胡涛抵达四川绵阳慰问" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.FontBold = True '字体加粗
rt.Style.FontSize = 16 '字体大小为16磅
doc.Body.Children.Add(rt) '将文本对象加入到报表
rt = New prt.RenderText '创建另一个文本对象
rt.Text = s '设置文本内容
rt.y = "Prev.Bottom + 5" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览
5,可以是变量,比如是窗口上的文本框中输入的值,但是你不会是一篇一篇文件的输入值再打印吧?
是一个文件资料库,文章内容放在一个备注型列内,打印时要将作者的姓名打印在此文章最后页的底边,所以想控制页面位置,但又取不到当前文章打印完后所处的位置。
对于 rt.y = "Prev.Bottom + 5",我试了:
k=10
rt.y = "Prev.Bottom + k"
不起作用。