| 标题 | Access报表打印如何自动分页 |
| 内容 | 问题： 每页打印一定行数后自动分页 方法一： 加一个分页符，在报表的代码界面里面写入以下代码： 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 方法二： 在报表的代码界面里面写入以下代码： 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。