如何在Microsoft Access中通过按钮将表单按75%缩放导出为单页PDF

Access自带的宏无法直接控制打印缩放比例，你需要把按钮的宏替换为VBA事件过程来实现自动设置75%缩放的需求，具体操作如下：

1. 替换按钮事件为VBA代码

   • 打开表单的设计视图，选中你的打印/导出按钮。
   • 右键点击按钮，选择「事件生成器」，在弹出窗口中选择「代码生成器」，进入VBA编辑器。

2. 粘贴VBA代码
   将按钮的Click事件代码替换为以下内容（注意把代码中的cmdExportToPDF改成你实际的按钮名称）：

   Private Sub cmdExportToPDF_Click()
       Dim originalZoom As Integer
       Dim savePath As Variant
       
       ' 保存当前打印机缩放比例，避免影响后续打印操作
       originalZoom = Me.Printer.Zoom
       
       ' 设置导出缩放为75%
       Me.Printer.Zoom = 75
       
       ' 让用户选择PDF保存路径
       savePath = Application.GetSaveAsFilename( _
           FileFilter:="PDF 文件 (*.pdf), *.pdf", _
           Title:="选择PDF保存位置")
       
       ' 如果用户选择了路径，执行导出
       If savePath <> False Then
           DoCmd.OutputTo _
               ObjectType:=acOutputForm, _
               ObjectName:=Me.Name, _
               OutputFormat:=acFormatPDF, _
               OutputFile:=savePath, _
               AutoStart:=True ' 导出后自动打开PDF文件
       End If
       
       ' 恢复原来的缩放比例
       Me.Printer.Zoom = originalZoom
   End Sub
   

3. 测试功能
   保存表单和VBA代码，切换到表单视图点击按钮，就能自动以75%缩放导出表单为单页PDF，无需手动调整打印设置。

关键说明 #

• Me.Printer.Zoom属性直接控制当前表单的打印缩放比例，设置为75即对应75%缩放。
• 代码中保存并恢复原始缩放比例，是为了避免该设置影响后续的打印或导出操作。
• 使用GetSaveAsFilename让用户选择保存路径，比固定路径更灵活。

内容的提问来源于stack exchange，提问作者Danielthelawd