Question

我正在尝试使用Excel中一些非常简单的代码。

Sub PDF()
Path = "C:\users\MyName\Desktop\Name"
MsgBox (Path)

ThisWorkbook.Sheets(1).ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Path, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

'
End Sub

此代码可以正常工作，它将第一个选项卡导出为excel文档。但是，我想要的是它能够将多个工作表导出为单个PDF。因此，我尝试过这种想法，它会起作用：

ThisWorkbook.Sheets(1,2,3).ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Path, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

那没有用。我也尝试过：

ThisWorkbook.Sheets(array(1,2,3,4)).ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Path, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

我看到了一些建议使用

的建议

Array("Sheet1", "Sheet2")

但是，我不想使用工作表名称，而是要使用工作表的索引。我敢肯定有一个明显的解决方案，但是我尝试搜索却找不到。

VBA打印要通过索引将PDF打印成多张纸？

0 个答案: