狐爸帮我瞧瞧我的这个代码如何改了，就是我想用专业报表打印表数据，在表中存在多条数据时希望以多页的形式打印出来，希望都能够每页都显示如第一页上面的标题及信息，但是我的数据超过一页就会报错了，请求狐爸了...

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:专业报表打印分页.zip

问题出在下面：

      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

谢谢狐爸的耐心分解，现在已经修改成功，把修改好的代码发上来，希望有各位朋友用得上 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:专业报表打印分页.zip