Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

报表打印,报表奇偶页不同颜色显示

时 间:2009-05-06 10:03:08
作 者:UMVSoft整理   ID:1445  城市:上海
摘 要:报表打印,报表奇偶页不同颜色显示
正 文:

打印当前窗体上的记录的报表
DoCmd.OpenReport "rptName", acViewNormal, , "[UniqueFieldOnReport]=Forms![frmName]![UniqueFieldOnReport]" 

全部范围内,从第二张打到第五张,高品质打印,印三份
DoCmd.PrintOut acPrintAll, 2, 5, acHigh, 3, False

生成间隔背景颜色的报表
要求:生成间隔背景颜色的报表,奇数行的背景颜色为兰色,偶数行的背景颜色为白色,兰白相间,方便查看.
方法:根据行号进行判定,设定背景色.
1 设计报表INVOICE ,必须有行号字段NO(由1开始连续的系列号)
2 设计宏SETINVOICECOLOR,条件及操作如下
条件    ([Reports]![INVOICE]![NO]) Mod 2=1
操作    Setvalue
         项目 [Reports]![INVOICE].[Section](0).[BackColor]
         表达式1632256
条件    ([Reports]![INVOICE]![NO]) Mod 2=0
操作    Setvalue
         项目 [Reports]![INVOICE].[Section](0).[BackColor]
         表达式16777215
3 设计报表INVOICE ,选定节Detail的属性中,事件"打印"为宏 SETINVOICECOLOR.
4 打印报表INVOICE,生成间隔背景颜色的报表.
报表奇偶页不同颜色显示
Option Compare Database
Option Explicit
Dim i As Integer
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    i = i + 1
    If i Mod 2 = 0 Then
        Me.主体.BackColor = 12632256
    Else
        Me.主体.BackColor = 16777215
    End If
End Sub



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

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助