76报表的打印及打印预览 07.6.1报表预览 7.6.2、报表对象的打印及 其打印预览驱动 返回
7.6 报表的打印及打印预览 7.6.1 报表预览 7.6.2、报表对象的打印及 其打印预览驱动 返回
Q61报表预览 对于一个设计完毕的报表对象,我们可以在 数据库设计视图中的报表对象选项卡上选中它, 然后单击“预览”按钮位预”,即可实现 报表对象的预览操作。 但是在“零售商店管理信息系统”数据库中, 由于所有的报表对象数据源均来源于相关的查询 或图表子报表,而这些查询与图表子报表的数据 源取值条件又均来自于某些窗体对象的相关文本 框。因此,在窗体未运行以前,这些数据源的取 值条件均无法得到满足,从而无法获取数据,而 必须借助于
对于一个设计完毕的报表对象，我们可以在 数据库设计视图中的报表对象选项卡上选中它， 然后单击“预览”按钮“ ” ，即可实现 报表对象的预览操作。 但是在“零售商店管理信息系统”数据库中， 由于所有的报表对象数据源均来源于相关的查询 或图表子报表，而这些查询与图表子报表的数据 源取值条件又均来自于某些窗体对象的相关文本 框。因此，在窗体未运行以前，这些数据源的取 值条件均无法得到满足，从而无法获取数据，而 必须借助于 7.6.1 报表预览
7.6.2、报表对象的打印及其打印预览驱动 因为报表对象仅有输出数据的功能, 而不具备数据输入/输出的交互功能,所 以报表对象的驱动(包括报表预览和打 印)一般由窗体对象实施。在CMMS数 据库中,“销售交接班报表”由“交接 班结转清”窗体驱动,“销售业绩査询” 报表由“销售业绩查询汇总”窗体驱动 例如,“交接班结转清”窗体的° 图如图所示
因为报表对象仅有输出数据的功能， 而不具备数据输入/输出的交互功能，所 以报表对象的驱动（包括报表预览和打 印）一般由窗体对象实施。在CMMIS数 据库中， “销售交接班报表”由“交接 班结转清”窗体驱动， “销售业绩查询” 报表由“销售业绩查询汇总”窗体驱动。 例如，“交接班结转清”窗体的运 行视图如图所示： 7.6.2、报表对象的打印及其打印预览驱动
Q3、“交接班结转清窗体运行视 交接班结转清数据汇总 包回囟 交接班结转清数据汇总 销售日期2004-10-1 营业员舒方销售交接班报表 货号货名 规格计量单位柜存数量销售单价销售数量销售金额销售日期错售人员 0202绿野香花生250G 袋 17 1.50 6004-10-15钟舒宁 0203小米锅巴125G 0.75 9004-10-15钟舒宁 销售商品件数汇总「4销售商品金额汇总「 ￥6.90 退出
图7-37、 “交接班结转清”窗体运行视图
按钮1销售接报表的“单击”处理程序为 Private Sub Command61 Click( On error goto err commando click Dim stDocName As String stDocName="销售交接班报表" DoCmd. Openreport stDocName, acPreview Exit commando click Exit sub Err Commando Click Msg Box Err. Description Resume exit commando Click End sub
按钮“ ”的“单击” 处理程序为： Private Sub Command61_Click() On Error GoTo Err_Command61_Click Dim stDocName As String stDocName = "销售交接班报表" DoCmd.OpenReport stDocName, acPreview Exit_Command61_Click: Exit Sub Err_Command61_Click: MsgBox Err.Description Resume Exit_Command61_Click End Sub
这个程序的第五行语句即为驱动“销 售交接班报表”进入预览状态的命令 这条语句尾部关键字“ acPrevieu的作用 即导致预览报表。如果将这个关键字修 改为“ ac ViewNormal,则可使得报表进 入打印状态。 又例如,“销售业绩査询汇总”窗体的运 行视图如图所示:
这个程序的第五行语句即为驱动“销 售交接班报表”进入预览状态的命令。 这条语句尾部关键字“acPreview”的作用 即导致预览报表。如果将这个关键字修 改为“acViewNormal”，则可使得报表进 入打印状态。 又例如，“销售业绩查询汇总”窗体的运 行视图如图所示：
7-38、“销售业绩查询汇总”窗体运行视 销售业绩查询 销售业绩查询数据汇总 口江滨 起始日期904-02 终止日期1-1-21 24% 口刘红兵 口王建钢 口钟舒 销售日期货号货名计量单位进货单价库存数量销售单价销售数量销售金额销售利润 994-20203彩果糖包￥20028￥2.50 2￥5.00 ￥1.00 99-20203彩果糖包 ￥20028￥2.50 ￥2.50 ￥0.50 99-4-20203彩果糖 包 ￥2.00 ￥2.50 2￥5.00 ￥1.00 9-4-2025口味梅包 ￥2.00 ￥2.50 ￥2.50 ￥0.50 994-20206甘草话梅代 00 21￥5.50 3￥16.50￥10 99-4-20206甘草话梅代 221 ￥5.50 2￥1100￥7.0 94-20207小葡萄千包 ￥1.40 ￥0.40 99-6004香妃森包 ￥3.0052￥5.60 11.20 ￥5.20 9-4-60204香妃森包 ￥3.00 ￥5.60 ￥16.80￥7.80 销售商品件数汇总7销售商品金额汇总19销售商品利闹汇总39退出
7-38、 “销售业绩查询汇总”窗体运行视 图
按钮“"的“单击”事件处理程序为: Private Sub Command71 Click On error goto err Command 71 Click Dim stDocName As String stdocName="销售业绩查询" DoCmd Open Report stDocName, acPreview Exit Command71 Click Exit sub Err Command71 Click MsgBox Err. Description Resume exit command 71 click End sub 这个程序的第五行语句即为驱动“销售业绩査询 报表进入预览状态的命令
按钮“ ”的“单击”事件处理程序为： Private Sub Command71_Click() On Error GoTo Err_Command71_Click Dim stDocName As String stDocName = "销售业绩查询" DoCmd.OpenReport stDocName, acPreview Exit_Command71_Click: Exit Sub Err_Command71_Click: MsgBox Err.Description Resume Exit_Command71_Click End Sub 这个程序的第五行语句即为驱动“销售业绩查询” 报表进入预览状态的命令
