/Files/Tonyyang/報表分組頁碼V1.2.rar ? Option?Compare?Database
Option?Explicit

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'分組報表顯示分組頁碼和頁數類模塊(方法一)
'
'功????能:在有分組的報表的每一頁上顯示組頁碼和組頁數，在預
'?????????覽時改變頁面設置后仍能正確顯示。
'作????者:t小雨(tcl013@126.com)(t小寶)
'版????本:1.1
'創建日期:2008-05-??
'整理日期:2008-05-30
'補充說明:這個代碼是一年前做的，由于實現原理和過程有點復雜，
'?????????當時沒有添加注釋，已忘得差不多，加上表達能力有限，
'?????????現在勉強添加了不完全的注釋，但能依照說明會用就行。
'?????????直接把代碼放到報表中也是可以。
'?????????做成類模塊只是為了好保存，以后調用方便，但由于在
'?????????類模塊中不能使用報表的節的事件，調用起來還是有些
'?????????麻煩，不過總要比直接把代碼放在報表簡單一點。
'
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

'實現原理：
'通過報表上的輔助文本框獲得組的總行數(記錄數,后同)、1頁的最大行數、當前頁在當前組的截止行數，
'在頁面頁腳_Format事件中通過計算得到分組頁碼和頁數。

'報表設計要求：
'?1、報表應包含組頁眉、頁面頁眉、頁面頁腳
'?2、在組頁眉上有一文本框，有如下屬性
'????ControlSource(控件來源)="=Count(*)"
'????RunningSum(運行總和)=0(不)
'?3、在主體有一文本框，有如下屬性
'????ControlSource(控件來源)="=1"
'????RunningSum(運行總和)=1(工作組之上)

'調用方法，有2種：
'?第1種:
'?1、在報表用New關鍵字聲明一個?CreateGroupPage1?類的新實例
'?2、在報表的打開事件執行實例的?Init?方法,傳入全部參數
'?3、在頁面頁腳的?Format?(格式化)事件執行實例的?FormatPageFooter?方法
'?4、在頁面頁腳的?Print?(打印)事件執行實例的?PrintPageFooter?方法
'?這種方法在顯示分組頁碼的標簽上顯示效果如?分組字段值:?1?/?2
'?在報表中的代碼類似下面:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'?Dim?newGroupPage?As?New?CreateGroupPage1
'
'?Private?Sub?Report_Open(Cancel?As?Integer)
'?????newGroupPage.Init?Me,?Me.TxtGrpRows,?Me.txtRunSum,?Me.LplGrpPages
'?End?Sub
'
'?Private?Sub?頁面頁腳_Format(Cancel?As?Integer,?FormatCount?As?Integer)
'?????newGroupPage.FormatPageFooter
'?End?Sub
'
'?Private?Sub?頁面頁腳_Print(Cancel?As?Integer,?PrintCount?As?Integer)
'?????newGroupPage.PrintPageFooter
'?End?Sub
'
'?Private?Sub?組頁眉0_Format(Cancel?As?Integer,?FormatCount?As?Integer)
'?????newGroupPage.FormatGroupLevel1Header
'?End?Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'?第2種:
'?1、在報表用?WithEvents?關鍵字聲明一個?CreateGroupPage1?類的變量
'?2、在報表的打開事件用?Set?New?語句創建新實例
'?3、在報表的打開事件執行實例的?Init?方法,不須傳入最后一個參數(用于顯示分組頁碼的標簽)
'?4、在頁面頁腳的?Format(格式化)?事件執行實例的?FormatPageFooter?方法
'?5、在頁面頁腳的?Print(打印)?事件執行實例的?PrintPageFooter?方法
'?6、在組頁眉的?Format(格式化)?事件執行實例的?FormatGroupLevel1Header?方法
'?7、在類的?Current?事件過程將事件參數返回的分組頁碼和頁數賦給用于顯示的標簽
'?在報表中的代碼類似下面:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'?Dim?WithEvents?newGroupPage?As?CreateGroupPage1
'
'?Private?Sub?Report_Open(Cancel?As?Integer)
'?????Set?newGroupPage?=?New?CreateGroupPage1
'?????newGroupPage.Init?Me,?Me.TxtGrpRows,?Me.txtRunSum
'?End?Sub
'
'?Private?Sub?頁面頁腳_Format(Cancel?As?Integer,?FormatCount?As?Integer)
'?????newGroupPage.FormatPageFooter
'?End?Sub
'
'?Private?Sub?頁面頁腳_Print(Cancel?As?Integer,?PrintCount?As?Integer)
'?????newGroupPage.PrintPageFooter
'?End?Sub
'
'?Private?Sub?組頁眉0_Format(Cancel?As?Integer,?FormatCount?As?Integer)
'?????newGroupPage.FormatGroupLevel1Header
'?End?Sub
'
'?Private?Sub?newGroupPage_Current(GrpPage?As?Integer,?GrpPages?As?Integer)
'?????Me.LplGrpPages.Caption?=?Me.類別名稱?&?"?共?"?&?GrpPages?&?"?頁,第?"?&?GrpPage?&?"?頁"
'?End?Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public?Event?Current(GrpPage?As?Integer,?GrpPages?As?Integer)
'在此自定義事件中可以獲取分組頁碼信息，以便自定義顯示頁碼格式

Dim?MyRpt?As?Report
Dim?txtRunSum?As?TextBox???????????'?取得每個組的記錄數的文本框
Dim?TxtGrpRows?As?TextBox??????????'?取得每個組的記錄在組中的序號的文本框
Dim?lblShowPage?As?Label???????????'?用于顯示分組頁碼信息的標簽

Dim?inMaxRows?As?Integer???????????'?1頁的最大行數(記錄數)
Dim?inRptPage?As?Integer???????????'?報表本身頁碼
Dim?blPrint?As?Boolean?????????????'?是否已經發生頁面頁腳的Print事件,為避免頁面頁腳的Format事件中的代碼重復運行
Dim?blFistPage?As?Boolean??????????'?當前頁是否是所在組的第一頁

Public?Sub?Init(rpt?As?Report,?GrpRows?As?TextBox,?RunSum?As?TextBox,?Optional?ShowPage?As?Label)
'?過程中的檢查參數代碼不是必須的，僅為了防止以后忘記如何設計報表

????Dim?st1?As?String

????Set?MyRpt?=?rpt
????
????Set?TxtGrpRows?=?GrpRows
????With?TxtGrpRows
????????If?.Section?<>?acGroupLevel1Header?Then
????????????st1?=?"作為第二個參數的文本框必須在分組頁眉節上！"
????????ElseIf?.ControlSource?<>?"=Count(*)"?Then
????????????st1?=?"作為第二個參數的文本框的ControlSource屬性必須是""=Count(*)""！"
????????ElseIf?.RunningSum?<>?0?Then
????????????st1?=?"作為第二個參數的文本框的RunningSum屬性必須是0！"
????????End?If
????End?With
????If?Len(st1)?>?0?Then
????????MsgBox?st1,?vbExclamation,?"參數錯誤"
????????Exit?Sub
????End?If
????
????Set?txtRunSum?=?RunSum
????With?txtRunSum
????????If?.Section?<>?acDetail?Then
?????????????st1?=?"作為第三個參數的文本框必須在報表主體節上！"
????????ElseIf?.ControlSource?<>?"=1"?Then
????????????st1?=?"作為第三個參數的文本框的ControlSource屬性必須是""=1""！"
????????ElseIf?.RunningSum?<>?1?Then
????????????st1?=?"作為第三個參數的文本框的RunningSum屬性必須是1！"
????????End?If
????End?With
????If?Len(st1)?>?0?Then
????????MsgBox?st1,?vbExclamation,?"參數錯誤"
????????Exit?Sub
????End?If
????
????If?Not?(ShowPage?Is?Nothing)?Then?Set?lblShowPage?=?ShowPage
???
End?Sub

Public?Sub?FormatGroupLevel1Header()
????If?txtRunSum?=?1?Then?blFistPage?=?True???????????'?為頁面頁腳Format事件作標記
End?Sub

Public?Sub?FormatPageFooter()

????Dim?inGrpPage?As?Integer???????????'?組頁碼
????Dim?inGrpPages?As?Integer??????????'?組頁數
????Dim?inLastRows?As?Integer??????????'?截止當前頁,所在組的所有行數

????inLastRows?=?txtRunSum???????????????????????????????????????'?從文本框獲得截止行數
????If?inLastRows?=?0?Then?inLastRows?=?TxtGrpRows
????
????If?MyRpt.Page?=?1?Then
????'在第1頁初始變量
????????If?MyRpt.Pages?>?0?And?MyRpt.Pages?=?inRptPage?Then
????????'?這里已經是第2輪格式化第1頁，報表加載時進行兩輪格式化，第一輪Pages=0
????????Else
????????????inMaxRows?=?0
????????End?If
????????inRptPage?=?0
????????blPrint?=?False
????End?If
????
????If?Not?blPrint?Then
????'僅在第1輪格式化中,獲取每組第一頁的行數
????????If?blFistPage?Then
????????'每組第一頁的行數即是本組任一頁的最大行數
????????????If?inMaxRows?<?inLastRows?Then?inMaxRows?=?inLastRows
????????????blFistPage?=?False
????????End?If
????????inRptPage?=?inRptPage?+?1
????End?If
????
????If?MyRpt.Pages?>?0?Then
????????inGrpPages?=?Int(TxtGrpRows?/?inMaxRows?+?0.9999)?????????'?組的總行數除以1頁的行數，得到組的頁數
????????inGrpPage?=?Int(inLastRows?/?inMaxRows?+?0.9999)??????????'?截止當前頁的累計行數除以1頁的行數，得到當前頁的頁碼
????????If?Not?(lblShowPage?Is?Nothing)?Then
????????????lblShowPage.Caption?=?inGrpPage?&?"?/?"?&?inGrpPages
????????End?If
????????RaiseEvent?Current(inGrpPage,?inGrpPages)
????End?If

End?Sub

Public?Sub?PrintPageFooter()
????blPrint?=?True
End?Sub ? 方法二： ? Option?Compare?Database
Option?Explicit

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'分組報表顯示分組頁碼和頁數類模塊(方法二)
'
'功????能:在有分組的報表的每一頁上顯示組頁碼和組頁數，在預
'?????????覽時改變頁面設置后仍能正確顯示。
'作????者:t小雨(tcl013@126.com)(t小寶)
'版????本:1.1
'創建日期:2008-05-??
'整理日期:2008-05-30
'補充說明:這個代碼是一年前做的，由于實現原理和過程相當復雜，
'?????????當時沒有添加注釋，已忘得差不多，加上表達能力有限，
'?????????現在勉強添加了不完全的注釋，但能依照說明會用就行。
'?????????直接把代碼放到報表中也是可以。
'?????????做成類模塊只是為了好保存，以后調用方便，但由于在
'?????????類模塊中不能使用報表的節的事件，調用起來還是有些
'?????????麻煩，不過總要比直接把代碼放在報表簡單一點。
'
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

'實現原理：
'?報表加載后：會發生兩輪從第1頁到最后1頁每頁的格式化事件，每輪結束后發生一次打印事件，
'?在第一輪格式化事件中報表的Pages屬性始終為0。最后還會移到第一頁。
'?重設紙張邊距、方向或大小等后也發生類似上述過程，情況相對復雜一點，就不細說了。
'?在這些事件中把頁碼信息保存到數組中，數組元素和報表頁數一樣，每個元素代表一頁的信息。
'?移動頁后：也會發生一次格式化事件，在這些事件中把數組中頁碼的信息顯示出來。
'?上面所說的事件都是頁面頁腳的事件。

'報表設計要求：
'?很簡單，有一個分組字段和頁面頁腳即可

'調用方法有2種：
'?第1種:
'?1、在報表用New關鍵字聲明一個?CreateGroupPage2?類的新實例
'?2、在報表的打開事件執行實例的?Init?方法,傳入報表、分組字段和用于顯示分組頁碼的標簽
'?3、在頁面頁腳的?Format?(格式化)事件執行實例的?FormatPageFooter?方法
'?4、在頁面頁腳的?Print?(打印)事件執行實例的?PrintPageFooter?方法
'?這種方法在顯示分組頁碼的標簽上顯示效果如?分組字段值:?1?/?2
'?在報表中的代碼類似下面:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'??Dim?newGroupPage?As?New?CreateGroupPage2
'
'??Private?Sub?Report_Open(Cancel?As?Integer)
'??????newGroupPage.Init?Me,?Me.類別ID,?Me.LplGrpPages
'??End?Sub
'
'??Private?Sub?頁面頁腳_Format(Cancel?As?Integer,?FormatCount?As?Integer)
'??????newGroupPage.FormatPageFooter
'??End?Sub
'
'??Private?Sub?頁面頁腳_Print(Cancel?As?Integer,?PrintCount?As?Integer)
'??????newGroupPage.PrintPageFooter
'??End?Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'?第2種:
'?1、在報表用?WithEvents?關鍵字聲明一個?CreateGroupPage2?類的變量
'?2、在報表的打開事件用?Set?New?語句創建新實例
'?3、在報表的打開事件執行實例的?Init?方法,傳入報表、分組字段,不須傳入用于顯示分組頁碼的標簽
'?4、在頁面頁腳的?Format(格式化)?事件執行實例的?FormatPageFooter?方法
'?5、在頁面頁腳的?Print(打印)?事件執行實例的?PrintPageFooter?方法
'?6、在類的?Current?事件過程將事件參數返回的分組頁碼和頁數賦給用于顯示的標簽
'?在報表中的代碼類似下面:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'??Dim?WithEvents?newGroupPage?As?CreateGroupPage2
'
'??Private?Sub?Report_Open(Cancel?As?Integer)
'??????Set?newGroupPage?=?New?CreateGroupPage2
'??????newGroupPage.Init?Me,?Me.類別ID,?Me.LplGrpPages
'??End?Sub
'
'??Private?Sub?頁面頁腳_Format(Cancel?As?Integer,?FormatCount?As?Integer)
'??????newGroupPage.FormatPageFooter
'??End?Sub
'
'??Private?Sub?頁面頁腳_Print(Cancel?As?Integer,?PrintCount?As?Integer)
'??????newGroupPage.PrintPageFooter
'??End?Sub
'
'??Private?Sub?newGroupPage_Current(GrpPage?As?Integer,?GrpPages?As?Integer)
'??????Me.LplGrpPages.Caption?=?Me.類別名稱?&?"?共?"?&?GrpPages?&?"?頁,第?"?&?GrpPage?&?"?頁"
'??End?Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'?這種方法在顯示分組頁碼的標簽上顯示效果是自定義的


Public?Event?Current(GrpPage?As?Integer,?GrpPages?As?Integer)
'在此自定義事件中可以獲取分組頁碼信息，以便自定義顯示頁碼格式

Dim?MyRpt?As?Report
Dim?ctrGroup?As?Control
Dim?lblShowPage?As?Label

Dim?blPrint?As?Boolean????????????'?是否已經發生頁面頁腳的Print事件,為避免頁面頁腳的Format事件中的代碼重復運行
Dim?stGroupText?As?String?????????'?分組字段值

Dim?inRptPage?As?Integer??????????'?報表頁號
Dim?inGrpPage?As?Integer??????????'?組頁號

Dim?ainGrpPage()?As?Integer???????'?保存組頁號的數組,用于顯示
Dim?ainGrpPages()?As?Integer??????'?保存每個組的總頁數的數組,用于顯示

Dim?ainGrpPageTmp()?As?Integer????'?保存組頁號的數組,臨時
Dim?ainGrpPagesTmp()?As?Integer???'?保存每個組的總頁數的數組,臨時


Public?Sub?Init(rpt?As?Report,?Group?As?Control,?Optional?ShowPage?As?Label)
'rpt??????:報表本身,必須
'Group????:用于分組的字段,必須
'ShowPage?:用于顯示分組頁碼的標簽,可選

????Set?MyRpt?=?rpt
????Set?ctrGroup?=?Group
????If?Not?(ShowPage?Is?Nothing)?Then?Set?lblShowPage?=?ShowPage

End?Sub


Public?Sub?FormatPageFooter()

Dim?inShowGrpPage?As?Integer???????????'?顯示的組頁碼
Dim?inShowGrpPages?As?Integer??????????'?顯示的組頁數
Dim?i?As?Integer,?j?As?Integer

If?MyRpt.Page?=?1?Then
'?在第1頁初始變量

????If?inRptPage?>?0?And?inRptPage?=?MyRpt.Pages?Then
????'?報表加載后第一輪格式化完畢發生
????????For?j?=?inRptPage?-?inGrpPage?+?1?To?inRptPage???''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
????????????ainGrpPagesTmp(j)?=?inGrpPage????????????????'
????????Next?????????????????????????????????????????????'
????????ReDim?ainGrpPage(1?To?inRptPage)?????????????????'?這一段代碼與后面一段代碼一樣，因為后面無法判斷加載完成
????????ReDim?ainGrpPages(1?To?inRptPage)????????????????'
????????For?i?=?1?To?inRptPage???????????????????????????'
????????????ainGrpPage(i)?=?ainGrpPageTmp(i)?????????????'
????????????ainGrpPages(i)?=?ainGrpPagesTmp(i)???????????'
????????Next?????????????????????????????????????????????'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
????End?If
????
????inRptPage?=?0
????inGrpPage?=?0
????stGroupText?=?""
????blPrint?=?False
End?If

If?Not?blPrint?Then
'僅在第一輪格式化中獲取頁位置，保存到臨時數組
????inRptPage?=?inRptPage?+?1
????ReDim?Preserve?ainGrpPageTmp(1?To?inRptPage)
????ReDim?Preserve?ainGrpPagesTmp(1?To?inRptPage)
????
????If?stGroupText?=?ctrGroup?Then??????????????????????'?當前頁與上一頁在同一組
????????inGrpPage?=?inGrpPage?+?1???????????????????????'?累計本組頁數，也即獲得當前頁在當前組中的頁碼
????Else????????????????????????????????????????????????'?當前頁與上一頁不在同一組，換組
????????For?j?=?inRptPage?-?inGrpPage?To?inRptPage?-?1??'?循環上一組的每一頁
????????????ainGrpPagesTmp(j)?=?inGrpPage???????????????'?每個元素都儲存總頁數，頁在組中的最大序號即總頁數
????????Next
????????inGrpPage?=?1???????????????????????????????????'?重新開始累計本組頁數
????????stGroupText?=?ctrGroup
????End?If

????ainGrpPageTmp(inRptPage)?=?inGrpPage????????????????'?每個元素都儲存頁在組中的頁碼
End?If

If?MyRpt.Page?=?MyRpt.Pages?Then
'報表已打開后重設紙張邊距大小方向等會發生
????If?inRptPage?=?MyRpt.Pages?Then
????'僅在最后一頁把臨時數組中的頁碼信息更新到用于顯示頁碼的數組
????????For?j?=?inRptPage?-?inGrpPage?+?1?To?inRptPage
????????????ainGrpPagesTmp(j)?=?inGrpPage???????????????'?這個循環代碼與上面有重復，因為上面無法判斷最后一頁
????????Next
????????
????????ReDim?ainGrpPage(1?To?inRptPage)????????????????'?數組大小為報表頁數
????????ReDim?ainGrpPages(1?To?inRptPage)
????????For?i?=?1?To?inRptPage
????????????ainGrpPage(i)?=?ainGrpPageTmp(i)
????????????ainGrpPages(i)?=?ainGrpPagesTmp(i)
????????Next
????End?If
End?If

On?Error?Resume?Next

If?MyRpt.Pages?>?0?Then
????inShowGrpPages?=?ainGrpPages(MyRpt.Page)???'
????inShowGrpPage?=?ainGrpPage(MyRpt.Page)????'
????If?Not?(lblShowPage?Is?Nothing)?Then?lblShowPage.Caption?=?_
????????ctrGroup?&?":?"?&?inShowGrpPage?&?"?/?"?&?inShowGrpPages
????RaiseEvent?Current(inShowGrpPage,?inShowGrpPages)
End?If

End?Sub

Public?Sub?PrintPageFooter()
'?區分兩輪格式化
????blPrint?=?True
End?Sub ? ?

轉載于:https://www.cnblogs.com/Tonyyang/archive/2011/11/21/2256843.html

《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的Access 报表打印之分组页码实现(轉)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。