玲函网 > 软件资讯  >  正文

Access报表打印如何自动分页

发布时间:2020-06-27 20:18:57 来源:玲函网

  问题:

  每页打印一定行数后自动分页

  方法一:

  加一个分页符,在报表的代码界面里面写入以下代码:

  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

玲函网