Access報表打印如何自動分頁

　　問題

　　每頁打印一定行數后自動分頁

　　方法一

　　加一個分頁符在報表的代碼界面里面寫入以下代碼

　　OptionCompareDatabase

　　DimrowAsLong

　　DimRowsInPageAsInteger

　　PrivateSub主體_Format(CancelAsIntegerFormatCountAsInteger)

　　RowsInPage=

　　row=row+

　　Ifrow>=RowsInPageThen

　　MePageBreakVisible=True

　　row=

　　Else

　　MePageBreakVisible=False

　　EndIf

　　EndSub

　　方法二

　　在報表的代碼界面里面寫入以下代碼

　　OptionCompareDatabase

　　DimrowAsLong

　　PrivateSub主體_Format(CancelAsIntegerFormatCountAsInteger)

　　row=row+

　　IfMeSection(acDetail)ForceNewPage=Then

　　MeSection(acDetail)ForceNewPage=

　　Else

　　IfrowMod=Then

　　MeSection(acDetail)ForceNewPage=

　　row=

　　EndIf

　　EndIf

　　EndSub

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈