[求助]用专业报表如何取得当前页行、列位置？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]用专业报表如何取得当前页行、列位置？

共有11515人关注过本帖树形打印复制链接主题：[求助]用专业报表如何取得当前页行、列位置？

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2011/9/8 13:02:00 [显示全部帖子]

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

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2011/9/8 23:02:00 [显示全部帖子]

以下是引用xlbull在2011-9-8 22:40:00的发言：
由于备注列中是一篇篇的文章，打印在一页纸上长短不一，又想在页底打印编辑人的姓名，所以中间·的位置不知怎么控制？而且 rt.y = "Prev.Bottom + 5" 中的5可不可以是变量？

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

下一主题 >> << 上一主题

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