Access报表无法保存为PDF，报错2501：Output was canceled 求助

问题分析 #

你遇到的情况是：原本导出PDF时触发Error 2501（操作被取消），调整视图后虽无报错，但也没生成PDF文件。核心问题大概率出在路径有效性、变量声明漏洞和错误处理的笔误上。

代码修复步骤 #

1. 修正变量声明错误
   原代码中Dim语句仅最后一个变量为String类型，其余默认是Variant类型，虽不致命但可能引发意外问题。修改为：

   Dim sRptName As String, sDateStamp As String, sTimeStamp As String, sFilename As String, sPath As String, sFilespec As String
   

2. 确保PDF目标文件夹存在
   如果AppPath & "PDF\"指向的文件夹不存在，Access的OutputTo操作会静默失败，既不生成文件也不触发错误。添加文件夹检查与创建逻辑：

   sPath = AppPath & "PDF\"
   ' 检查文件夹是否存在，不存在则创建
   If Dir(sPath, vbDirectory) = "" Then
       MkDir sPath
   End If
   

3. 修复错误处理中的变量笔误
   原错误处理里的msRptName是拼写错误，应为sRptName，否则错误提示会失效：

   ERR_cmdSavePDF_Click:
       ShowError sRptName & "_cmdSavePDF_Click"
       Resume EXIT_cmdSavePDF_Click
   

4. 优化AppPath函数避免路径重复
   确保路径末尾不会重复添加反斜杠，修改AppPath函数：

   Public Function AppPath() As String
       If Right(Application.CurrentProject.Path, 1) = "\" Then
           AppPath = Application.CurrentProject.Path
       Else
           AppPath = Application.CurrentProject.Path & "\"
       End If
   End Function
   

5. 验证输出路径正确性
   在执行OutputTo前，添加弹窗确认路径是否正确，方便排查：

   sFilespec = sPath & sFilename
   MsgBox "即将导出至：" & sFilespec ' 测试用，确认后可删除
   DoCmd.OutputTo acOutputReport, sRptName, acFormatPDF, sFilespec, True
   

额外注意事项 #

• 如果报表从表单打开，确保导出时报表处于激活状态；若按钮在报表上，Me.Name就是正确的报表名称。
• 若仍出现Error 2501，检查报表是否有未加载完成的控件、数据源错误，或是其他代码干扰了导出流程。

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