您好,欢迎 来到润思科技-信息IT服务 长沙软件定 做外包公司!
0731-82519789

润思专业售 前支持

一"点"我帮您!

0731-82519789

24小时:13549648356

技术文档

您现在的位 置:主页 > 新闻中心 > 技术文档 >

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

友情链接:       V博娱乐计划   5630彩票官网   V博娱乐开奖网   22彩票官网