版友简希望能在一张报表上分左右两个区域打印统一数据源的报表，这个问题稍有些复杂。其基本的算法就是将记录分出页来，比如说每２０行为一页，只要能分出这样的页来，就可以用ｍｏｄ计算出左右两个查询。同样的道理，也可在此基础上分出三列或者更多的并列的页面了。分出若干的查询后便只是做几个子报表，以及报表的美化了，这不是本问题的重点。本例的视频是实例完善前录制的，更新后的实例，对报表进行了进一步美化。

      分页可以用一个自定义函数来进行计算，也就是计算记录的顺序号处于第几页：

Function p(num As Long, row As Long) As Long
'参数：num--记录的顺序号,row--页的记录总数
Dim i As Long
For i = 1 To 1000
    If num <= i * row Then
        p = i
        Exit For
    End If
Next
End Function

点击下载此附件