Foxtable(狐表)用户栏目专家坐堂 → 专业报表中固定位置插入对象


  共有12498人关注过本帖树形打印复制链接

主题:专业报表中固定位置插入对象

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/23 12:24:00 [显示全部帖子]

直接指定对象的位置坐标即可,参考:

 

http://help.foxtable.com/topics/1177.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/24 8:54:00 [显示全部帖子]

看这个:

 

Dim doc As New PrintDoc
Dim tb As Table = Tables("表A")
For p As Integer = 0 To math.Ceiling(tb.Rows.Count / 5) - 1 '每页5行
    Dim rx As New prt.RenderText
    rx.Text = "Hello Foxtable"
    doc.Body.Children.Add(rx)
    Dim rt As New prt.RenderTable
    rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
    rt.CellStyle.Spacing.All = 0.5
    rt.Cells(0,0).Text = "第一列"
    rt.Cells(0,1).text = "第二列"
    For r As Integer = p * 5 To math.min(tb.Rows.Count - 1,(p+1) * 5 - 1)
        rt.Cells(r - p * 5 + 1,0).Text = tb.rows(r)("第一列")
        rt.Cells(r - p * 5 + 1,1).text = tb.rows(r)("第二列")
    Next
    If p < math.Ceiling(tb.Rows.Count / 5) - 1
          rt.BreakAfter = prt.BreakEnum.Page
    End If
    doc.Body.Children.Add(rt)
Next
doc.Preview()


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/24 22:09:00 [显示全部帖子]

参考10楼方法,修改自己的打印代码。
[此贴子已经被作者于2011-3-24 22:09:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/25 9:13:00 [显示全部帖子]

呵呵,10楼一样可以设置副标题啊,标题可以加一个,自然也可以加两个的呢。

 

如果你不想用10楼的办法,可以考虑下面的办法:

 

将主标题和副标题,都放在一个容器(RenderArea)对象中, 将页眉设置为这个容器对象即可。

 

有关容器对象,参考:

 

http://help.foxtable.com/topics/1185.htm

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/25 11:53:00 [显示全部帖子]

顶老程

图片点击可在新窗口打开查看


 回到顶部