[access报表]access报表打印——自动分页

时　间:2007-11-08 08:36:50
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要: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

  例子下载：
  Access911.net/down/forcenewpage.rar" target=_blank />http://Access911.net/down/ForceNewPage.rar


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店