How to enable automatic Paging for Access RePort Printing

Problem: Automatic paging after a certain number of lines are printed on each page Method 1: Add a paging character and write the following code in the Report code interface: Response subject _ Format (CancelAsInteger, FormatCountAsInteger) RowsInPage7rowrow + 1

Problem: Automatic paging after printing a certain number of lines per page Method 1: Add a paging character and write the following code in the Report code interface: OptionCompareDatabase DimrowAsLong DimRowsInPageAsInteger PrivateSub subject _ Format (CancelAsInteger, FormatCountAsInteger) rowsInPage = 7 row = row + 1

Problem:

Per pagePrintAfter a certain number of rowsAutomaticPaging

Method 1:

Add a paging character inReportsWrite the following code into the code interface:

OptionCompareDatabase
DimrowAsLong
DimRowsInPageAsInteger
PrivateSub subject _ Format (CancelAsInteger, FormatCountAsInteger)
RowsInPage = 7
Row = row + 1
Ifrow> = rowsinpagettings
Me. PageBreak18.Visible = True
Row =-1
Else
Me. PageBreak18.Visible = False
EndIf
EndSub

Method 2:

InReportsWrite the following code into the code interface:

OptionCompareDatabase
DimrowAsLong
PrivateSub subject _ Format (CancelAsInteger, FormatCountAsInteger)
Row = row + 1
IfMe. Section (acDetail). ForceNewPage = 1 Then
Me. Section (acDetail). ForceNewPage = 0
Else
IfrowMod7 = 0 Then
Me. Section (acDetail). ForceNewPage = 1
Row = 0
EndIf
EndIf
EndSub