主题：专业报表打印多页报错

我没有看到你的代码

问题出在下面：

 

      For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
            rt.Cells(r - i * prs + 1, c).Text = tb.Rows(r)(ColNames(c))
      Next

 

代码你写的，你自己分析一下吧。

       For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
            rt.Cells(r - i * prs + 1, c).Text = tb.Rows(r)(ColNames(c))
        Next

 

当你打印第一页的时候，从0遍历到tb.Rows.count -1，也就是第一页打印所有行，当你打印第二页的时候，你还是从从0遍历到tb.Rows.count -1，还是打印所有行，你所有的页面都尝试打印表A的所有行。

 

分页不是这样的，你看看帮助的分页打印是怎样设计的：

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

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

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

 

分页打印，当然不能这样用绝对坐标来指定位置的，页头的内容全部加入到一个容器中，容器内部用绝对坐标定位，容器本身按常规加入到报表中。