主题：[求助]用专业报表如何取得当前页行、列位置？

用专业报表如何取得当前打印页面的行、列位置？

因为 prev.Bottom不是数值型，不能用整数型变量来取值。如何才能获得？  

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

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

 

不是表中的位置，是打印页面的坐标位置。因为打印备注型字段后，文字有长有短，无法知道当前所在的位置。

Dim doc As New PrintDoc '定义一个报表
Dim rx As prt.RenderText '定义一个文本对象
Dim rm As prt.RenderImage '定义一个图形队形
Dim Currow As Row
Dim tbl As Table = Tables("员工")
For i as Integer = tbl.TopRow To tbl.BottomRow
    CurRow = tbl.rows(i)

    Dim rep As New prt.RenderEmpty '定义一个新的空对象
    rep.BreakBefore = prt.BreakEnum.Page '打印前换页
    doc.Body.Children.Add(rep ) '加入到报表中

rx = new prt.RenderText
    rx.Text = CurRow("备注")
    rx.x = 26.5
    rx.y = 76
    rx.Width= 163
    doc.body.Children.Add(rx)

    rm= New prt.RenderImage
    rm.Height = 38
    rm.Width = 34
    rm.Image = GetImage(CurRow("照片"))
    rm.x= 149.5
    rm.y = 36
    doc.body.Children.Add(rm)
Next
Doc.Preview() '预览报表

如果这个备注很长，到下一页去了，又要在下页的底边加上文字，怎么办？

 

参考：

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() '预览

 

 

由于备注列中是一篇篇的文章，打印在一页纸上长短不一，又想在页底打印编辑人的姓名，所以中间·的位置不知怎么控制？而且   rt.y = "Prev.Bottom + 5" 中的5可不可以是变量？

５，可以是变量，比如是窗口上的文本框中输入的值，但是你不会是一篇一篇文件的输入值再打印吧？

 

是一个文件资料库，文章内容放在一个备注型列内，打印时要将作者的姓名打印在此文章最后页的底边，所以想控制页面位置，但又取不到当前文章打印完后所处的位置。

对于 rt.y = "Prev.Bottom + 5"，我试了：

k=10

rt.y = "Prev.Bottom + k"

不起作用。