明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)！

Access報(bào)表打印怎么自動(dòng)分頁

發(fā)表時(shí)間：2023-08-09 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]問題：每頁打印一定行數(shù)后自動(dòng)分頁方法一：加一個(gè)分頁符，在報(bào)表的代碼界面里面寫入以下代碼：OptionCompareDatabaseDimrowAsLongDimRowsInPageAsInteger...

 　　問題：

　　每頁打印一定行數(shù)后自動(dòng)分頁

　　方法一：

　　加一個(gè)分頁符，在報(bào)表的代碼界面里面寫入以下代碼：

　　OptionCompareDatabase

　　DimrowAsLong

　　DimRowsInPageAsInteger

　　PrivateSub主體_Format(CancelAsInteger,FormatCountAsInteger)

　　RowsInPage=7

　　row=row+1

　　Ifrow>=RowsInPageThen

　　Me.PageBreak18.Visible=True

　　row=-1

　　Else

　　Me.PageBreak18.Visible=False

　　EndIf

　　EndSub

　　方法二：

　　在報(bào)表的代碼界面里面寫入以下代碼：

　　OptionCompareDatabase

　　DimrowAsLong

　　PrivateSub主體_Format(CancelAsInteger,FormatCountAsInteger)

　　row=row+1

　　IfMe.Section(acDetail).ForceNewPage=1Then

　　Me.Section(acDetail).ForceNewPage=0

　　Else

　　IfrowMod7=0Then

　　Me.Section(acDetail).ForceNewPage=1

　　row=0

　　EndIf

　　EndIf

　　EndSub


Microsoft Access在很多地方得到廣泛使用，例如小型企業(yè)，大公司的部門。