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

Question

我创建了一个宏出口板材模板如下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

请帮助。

Answer 1

您的实际代码适用于我。然而试试这个（久经考验）

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 Save as PDF or XPS add-in。