打印再添一例,自动分页
来源:百度文库 编辑:神马文学网 时间:2024/06/08 05:28:32
打印再添一例,自动分页
Option Compare Database
Dim row As Long
Dim RowsInPage As Integer
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
RowsInPage = 7
row = row + 1
If row >= RowsInPage Then
Me.PageBreak18.Visible = True
row = -1
Else
Me.PageBreak18.Visible = False
End If
End Sub
方法二:
在报表的代码界面里面写入以下代码:
Option Compare Database
Dim row As Long
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
row = row + 1
If Me.Section(acDetail).ForceNewPage = 1 Then
Me.Section(acDetail).ForceNewPage = 0
Else
If row Mod 7 = 0 Then
Me.Section(acDetail).ForceNewPage = 1
row = 0
End If
End If
End Sub
问题:
每页打印一定行数后自动分页
方法一:
Option Compare Database
Dim row As Long
Dim RowsInPage As Integer
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
RowsInPage = 7
row = row + 1
If row >= RowsInPage Then
Me.PageBreak18.Visible = True
row = -1
Else
Me.PageBreak18.Visible = False
End If
End Sub
方法二:
在报表的代码界面里面写入以下代码:
Option Compare Database
Dim row As Long
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
row = row + 1
If Me.Section(acDetail).ForceNewPage = 1 Then
Me.Section(acDetail).ForceNewPage = 0
Else
If row Mod 7 = 0 Then
Me.Section(acDetail).ForceNewPage = 1
row = 0
End If
End If
End Sub
打印再添一例,自动分页
节省打印纸张,从文档自动缩放功能开始
节省打印纸张,从文档自动缩放功能开始111
水晶报表分页并自动插入空白行_.Net文摘_开发文摘_软件开发_天新网
新型建筑技术揭秘:自动造房机工作似喷墨打印(2)
Word高级排版之8K纸双面打印后折页,实现页码自动输入
printerserver打印服务器报错电脑自动无故重启的原因 - 电脑维修网
Xml_javascript分页
Xml_javascript分页
分页控件
分页代码
MIDI爱好者论坛 - 自动伴奏 / 乐谱打印软件 - 简谱打谱不用愁------穷人的打谱方法 - 我们关注电脑音乐
Struts分页显示
实现搜索分页查询
jsp 分页程序详解
实现搜索分页查询
解决Struts分页显示
Hibernate 实现分页查询
Flex 2 DataGrid 分页
解决Struts分页显示
ASP万用分页程序
struts hibernate分页
长文章分页类
简单js分页效果