Office中国论坛/Access中国论坛

标题: 关于报表的分组分页打印 [打印本页]

作者: wuheng 时间: 2007-11-19 15:12
标题: 关于报表的分组分页打印
SOU了好几天,好象没查到有适合的,请各位大侠援手.谢谢!
如何才能把22号凭证,分成两张,一张为22^1/2号,一张为22^2/2号,
即,同一张凭证号,如果该号凭证记录如超过五条,则分成NO^1/N,NO^2/N,NO^3/N....等张来打印
wuheng敬上

[ 本帖最后由 wuheng 于 2007-11-19 15:14 编辑 ]

作者: wuheng 时间: 2007-11-20 16:40
沉了,顶一下~~~~~~~~~~~~~~~~~~~

作者: sgrshh29 时间: 2007-11-21 13:18
你先把每页固定5行的功能做好，才有可能实现分组报表每个组的第几页共几页。我以前发过一个分组报表实现分组第几页共几页的实例，论坛改版后找不到这个帖子了。
源码如下：
Dim GPage(), GPages()
Dim GNameCurrent As Variant, GNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer

Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
Dim I As Integer
If Me.Pages = 0 Then '计算各分组页数
ReDim Preserve GPage(Me.Page + 1)
ReDim Preserve GPages(Me.Page + 1)
GNameCurrent = Me![分组字段名] '取得分组值
If GNameCurrent = GNamePrevious Then '如果分组大于1页
      GPage(Me.Page) = GPage(Me.Page - 1) + 1
      GrpPages = GPage(Me.Page)
      For I = Me.Page - ((GrpPages) - 1) To Me.Page
         GPages(I) = GrpPages
      Next I
Else                            '如果分组只有1页
      GrpPage = 1
      GPage(Me.Page) = GrpPage
      GPages(Me.Page) = GrpPage
End If
Else             '打印
   Me![组页码].Caption = "  第" & _
            GPage(Me.Page) & "页，共" & GPages(Me.Page) & "页"
End If
GNamePrevious = GNameCurrent
End Sub

Private Sub Report_Page()
GrpPage = 0
GrpPages = 0
GNameCurrent = ""
GNamePrevious = ""
End Sub

作者: changweiren 时间: 2008-12-5 21:02
找到了!顶上去!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)