WEB开发网
开发学院数据库Access Access报表打印如何自动分页 阅读

Access报表打印如何自动分页

 2010-03-18 15:17:19 来源:WEB开发网   
核心提示:问题:每页打印一定行数后自动分页方法一:加一个分页符,在报表的代码界面里面写入以下代码:OptionCompareDatabaseDimrowAsLongDimRowsInPageAsIntegerPrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)Rows

问题:

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

方法一:

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

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

Tags:Access 报表 打印

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接