- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 专业报表中固定位置插入对象 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=9269)
-- 发布时间：2011/3/23 12:22:00
-- 专业报表中固定位置插入对象
如何在专业报表每页的固定位置插入对象（不用页眉和页脚）。
-- 发布时间：2011/3/23 12:24:00
--
直接指定对象的位置坐标即可，参考：
http://help.foxtable.com/topics/1177.htm
-- 发布时间：2011/3/23 12:24:00
--
因为表格是多页，希望标题在每页的固定的位置打印出来，每页的标题下面再打印表格。
-- 发布时间：2011/3/23 12:38:00
--
这个我看过。这是第一页指定位置，后面几页就不行了。
|
因为表格是多页，希望标题在每页的固定的位置打印出来，每页的标题下面再打印表格。 |
-- 发布时间：2011/3/23 12:58:00
--
可以做到啊,每页打印标题,用通用代码就可以的
-- 发布时间：2011/3/23 12:59:00
--
你最好上传示例,看看你要什么样的效果
-- 发布时间：2011/3/23 15:24:00
--
yang版又出现了.
-- 发布时间：2011/3/23 23:30:00
--
杨版可是专业潜水运动员，呵呵！
-- 发布时间：2011/3/24 8:07:00
--
你最好上传示例,看看你要什么样的效果
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报表打印.rar |
-- 发布时间：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()