仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2674|回复: 9
打印 上一主题 下一主题

[学习教程] MYSQL网页设计打印再添一例,主动分页

[复制链接]
再见西城 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:27:58 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
只需每年花费2000到5000美元。无论你是自掏腰包来创建一个新兴公司,还是得到了风险投资商的赞助,使用MySQL都可以降低你所需要的人力成本。<P>成绩:

每页打印必定行数后主动分页办法一:

加一个分页符,在报表的代码界面内里写进以下代码:
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
例子下载:
http://access911.net/down/ForceNewPage.rar
即使对于MySQL的商业化的企业版来说,也没有高昂的许可证成本,当你将其与像甲骨文和微软之类的大型专有商业数据库比较的话。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-5-6 12:42

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表