《《Access 2003应用技术》电子教案 第七章 7.6、报表的打印及打印预览》由会员分享,可在线阅读,更多相关《《Access 2003应用技术》电子教案 第七章 7.6、报表的打印及打印预览(8页珍藏版)》请在金锄头文库上搜索。
1、7.6 报表的打印及打印预览,7.6.1 报表预览,7.6.2、报表对象的打印及其打印预览驱动,返回,对于一个设计完毕的报表对象,我们可以在数据库设计视图中的报表对象选项卡上选中它,然后单击“预览”按钮“ ”,即可实现报表对象的预览操作。 但是在“零售商店管理信息系统”数据库中,由于所有的报表对象数据源均来源于相关的查询或图表子报表,而这些查询与图表子报表的数据源取值条件又均来自于某些窗体对象的相关文本框。因此,在窗体未运行以前,这些数据源的取值条件均无法得到满足,从而无法获取数据,而必须借助于,7.6.1 报表预览,因为报表对象仅有输出数据的功能,而不具备数据输入/输出的交互功能,所以报表对
2、象的驱动(包括报表预览和打印)一般由窗体对象实施。在CMMIS数据库中,“销售交接班报表”由“交接班结转清”窗体驱动,“销售业绩查询”报表由“销售业绩查询汇总”窗体驱动。 例如,“交接班结转清”窗体的运行视图如图所示:,7.6.2、报表对象的打印及其打印预览驱动,图7-37、“交接班结转清”窗体运行视图,按钮“ ”的“单击” 处理程序为:,Private Sub Command61_Click() On Error GoTo Err_Command61_Click Dim stDocName As String stDocName = “销售交接班报表“ DoCmd.OpenReport st
3、DocName, acPreview Exit_Command61_Click: Exit Sub Err_Command61_Click: MsgBox Err.Description Resume Exit_Command61_Click End Sub,这个程序的第五行语句即为驱动“销售交接班报表”进入预览状态的命令。这条语句尾部关键字“acPreview”的作用即导致预览报表。如果将这个关键字修改为“acViewNormal”,则可使得报表进入打印状态。 又例如,“销售业绩查询汇总”窗体的运行视图如图所示:,7-38、“销售业绩查询汇总”窗体运行视图,按钮“ ”的“单击”事件处理程序为:,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 这个程序的第五行语句即为驱动“销售业绩查询”报表进入预览状态的命令。,