您可以为数据库中每个报表设置页面设置选项.doc

您可以为数据库中的每个报表设置页面设置选项，但系统并不会为数据库的每个用户存储该设置。换句话说，如果您更改了“发票”报表的打印设置，则此更改将覆盖前一个用户所做的改变。 通过编写代码，可以使用户在运行时指定自定义设置，而不用修改报表的默认打印机或页面设置选项。您还需要为用户提供一个对话框或窗体，以便用户在其中指定所需的设置。 下图所示为“打印机设置”窗体，允许用户自定义打印设置、预览报表或打印报表。 选择要预览或打印的报表。 选择用来打印选定报表的打印机。 指定纸张大小和方向。 单击以预览该报表。 单击以将最新的打印设置应用到“预览”窗口中打开的报表上。 单击以预览该报表。 创建“打印机设置”窗体 在“设计”视图中创建一个窗体，并如上图所示添加下列控件。 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