PDF打印到文件pathVBA

我有我已经研究的下面的代码，并在我的工作簿之一工作。 代码的想法是自动打印一张表格到PDF中，并保存在我select的目录中，并将其命名为特定单元格的内容。

所有的工作正常，直到我试图复制到一个新的工作簿（我devise在一个testing工作簿不破坏原来的），然后我得到一个

运行时间错误1004

和ThisWorkbook.Sheets(Array("sheet 2")).Select突出显示，当我debugging。 我错过了一些简单的东西吗 因为代码在原始工作簿中工作，而不是在我粘贴到新工作簿中的新模块中时使用。 对不起，我很新！

 sub PrintPDFRT() Sheets("test").Activate ActiveSheet.UsedRange.Select Sheets("malbru1").Activate ActiveSheet.UsedRange.Select Sheets("sheet 2").Activate Range("A1:j137").Select ThisWorkbook.Sheets(Array("sheet 2")).Select Selection.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="FIle path\" & Range("L7").Value, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub 

Answer 1

试试像这样:( Array ）

 sub PrintPDFRT() WorkSheets("test").Activate ActiveSheet.UsedRange.Select WorkSheets("malbru1").Activate ActiveSheet.UsedRange.Select WorkSheets("sheet 2").Activate Range("A1:j137").Select ThisWorkbook.WorkSheets("sheet 2").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="FIle path\" & Range("L7").Value, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub