运行时错误：5，无效的过程调用或参数

我创build了一个macros，用于将表格模板导出为PDF，如下所示：

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

＆试了它会很多其他方式，谷歌build议。 但是这在错误方面没有任何区别。

链接已经尝试：

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

请帮忙。

Answer 1

您的实际代码适用于我。 不过试试这个（ 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然后重试…

Answer 2

如果你安装了Adobe打印机，那么只需使用下面的代码来获得PDF

 sub Sample() ActiveWorkbook.Sheets("Sheet2").Activate ActiveSheet.Printout End Sub 

Answer 3

您还必须安装Excel的免费Microsoft另存为PDF或XPS加载项 。