2

我创建了一个宏来将工作表模板导出为 PDF：

ActiveWorkbook.Sheets("Sheet2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  ActiveWorkbook.Path & "\Survey Report.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=True

我尝试了其他方式，但在错误方面没有区别。

已经尝试过的链接：

  1. http://www.mrexcel.com/forum/excel-questions/608810-printing-multiple-worksheets-pdf-2.html
  2. http://www.mrexcel.com/forum/microsoft-access/385749-exportasfixedformat-error.html
  3. http://answers.microsoft.com/en-us/office/forum/office_2010-customize/error-5-invalid-procedure-call-or-argument/574c2c8f-7f2c-4644-9373-bbc14c8d3fd7?msgId=4dbee3f3- ad28-4427-a50b-a3904b09ec1e
4

4 回答 4

4

您的实际代码对我有用。但是试试这个（TRIED AND TESTED）

Sub Sample()
    ActiveWorkbook.Sheets("Sheet2").Activate

    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=ActiveWorkbook.Path & "\Survey Report.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

注意：

  1. 也希望Sheet2里面有一些东西可以打印，否则一张空白纸会给你错误。
  2. 如果您想从运行代码的工作簿中打印工作表，那么您可能需要更改ActiveWorkbook为ThisWorkbook并重试...
于 2012-12-27T15:02:55.577 回答
4

我也遇到了这个错误，并尝试手动解决问题。

事实证明，当文件名（包括路径）超过 218 个字符时，您无法另存为 PDF。

于 2019-02-07T23:26:09.227 回答
2

您还必须安装 Excel 的免费Microsoft Save as PDF 或 XPS 插件。

于 2016-09-09T17:17:03.957 回答
1

如果您安装了 adobe 打印机，则只需使用以下代码获取 pdf

sub Sample()
    ActiveWorkbook.Sheets("Sheet2").Activate
    ActiveSheet.Printout
End Sub
于 2013-06-25T12:35:06.390 回答