- 1、本文档共13页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
您可以为数据库中每个报表设置页面设置选项
您可以为数据库中的每个报表设置页面设置选项,但系统并不会为数据库的每个用户存储该设置。换句话说,如果您更改了“发票”报表的打印设置,则此更改将覆盖前一个用户所做的改变。
通过编写代码,可以使用户在运行时指定自定义设置,而不用修改报表的默认打印机或页面设置选项。您还需要为用户提供一个对话框或窗体,以便用户在其中指定所需的设置。
下图所示为“打印机设置”窗体,允许用户自定义打印设置、预览报表或打印报表。
选择要预览或打印的报表。
选择用来打印选定报表的打印机。
指定纸张大小和方向。
单击以预览该报表。
单击以将最新的打印设置应用到“预览”窗口中打开的报表上。
单击以预览该报表。
创建“打印机设置”窗体
在“设计”视图中创建一个窗体,并如上图所示添加下列控件。
lbxSelectReport:显示报表列表的列表框
cmbPrinter:显示可用打印机列表的组合框
cmbPaperSize:显示纸张大小列表的组合框
opgOrientation:具有两个选项的选项组,用于显示方向选项
cmdPreview:以预览模式打开报表的命令按钮
cmdApplyChanges:将最新设置应用到当前报表的命令按钮
cmdPrint:使用在窗体中指定的设置打印选定报表的命令按钮
向窗体的 Open 事件中添加代码以初始化控件。
Open 事件子过程示例
显示代码打印01 Private Sub Form_Open(Cancel As Integer) 02 03 包含默认打印机索引的变量。 04 Dim strDefaultPrinter As String 05 06 包含打印机对象的变量。 07 Dim prt As Printer 08 09 在 AllReports 集合中遍历时 10 包含报表对象的变量。 11 Dim accObj As AccessObject 12 13 填写打印机列表。 14 确保 RowSource 为空。 15 Me!cmbPrinter.RowSource = 16 Me!lbxSelectReport.RowSource = 17 18 遍历计算机上已安装的打印机,并将它们添加到组合框中。 19 For Each prt In Application.Printers 20 使用新的 AddItem 方法将打印机名称添加到组合框中。 21 Me!cmbPrinter.AddItem prt.DeviceName 22 Next 23 24 记忆默认打印机。 25 strDefaultPrinter = Application.Printer.DeviceName 26 27 将组合框设置为默认打印机。 28 Me!cmbPrinter = strDefaultPrinter 29 Me!cmbPaperSize = 1 30 31 填写报表列表。 32 For Each accObj In CurrentProject.AllReports 33 Me!lbxSelectReport.AddItem accObj.Name 34 Next 35 36 将列表框设置为第一个报表。 37 Me!lbxSelectReport.SetFocus 38 Me!lbxSelectReport.ListIndex = 0 39 40 End Sub 向“预览报表”命令按钮添加代码,以便以预览模式打开选定的报表。
“预览报表”命令按钮的 OnClick 事件过程示例
显示代码打印01 Private Sub cmdPreview_Click() 02 03 包含要操纵的打印机对象的变量。 04 Dim prt As Printer 05 06 为选定的打印机选取打印机对象。 07 Set prt = Application.Printers(Me!cmbPrinter.Value) 08 09 读取用户指定的设置。 10 prt.PaperSize = Me!cmbPaperSize 11 prt.Orientation = Me!opgOrientation 12 13 以预览模式打开报表。 14 DoCmd.OpenReport Me!lbxSelectReport, acViewPreview 15 16 将报表的打印机设置为已修改的打印机对象。 17 Reports(Me!lbxSelectReport).Printer = prt 18 19 End Su
文档评论(0)