Access报表打印如何自动分页
- WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB原創
- 2016-06-07 15:16:292342瀏覽
问题： 每页 打印 一定行数后 自动 分页 方法一： 加一个分页符，在 报表 的代码界面里面写入以下代码： OptionCompareDatabase DimrowAsLong DimRowsInPageAsInteger PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger) RowsInPage=7 row=row+1
问题：
每页打印一定行数后自动分页
方法一：
加一个分页符，在报表的代码界面里面写入以下代码：
OptionCompareDatabase<br>
DimrowAsLong<br>
DimRowsInPageAsInteger<br>
PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)<br>
RowsInPage=7<br>
row=row+1<br>
Ifrow>=RowsInPageThen<br>
Me.PageBreak18.Visible=True<br>
row=-1<br>
Else<br>
Me.PageBreak18.Visible=False<br>
EndIf<br>
EndSub
方法二：
在报表的代码界面里面写入以下代码：
OptionCompareDatabase<br>
DimrowAsLong<br>
PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)<br>
row=row+1<br>
IfMe.Section(acDetail).ForceNewPage=1Then<br>
Me.Section(acDetail).ForceNewPage=0<br>
Else<br>
IfrowMod7=0Then<br>
Me.Section(acDetail).ForceNewPage=1<br>
row=0<br>
EndIf<br>
EndIf<br>
EndSub