通过 VBA 代码将四份副本打印到单个 PDF 文件

Question

我有一个VBA Excel 代码，可以在默认打印机上打印一式四份。

我想要的是将此四份保存为单个 PDF 文件，即将所有四张纸保存在一个连续的 4 页 PDF 文件中。

代码如下。

Sub PrintInvoiceQuadtriplicate()
    Dim i As Integer
    Dim VList As Variant

    VList = Array("ORIGINAL  FOR  RECIPIENT", "DUPLICATE  FOR  TRANSPORTER", "TRIPLICATE  FOR  SELLER", "EXTRA  COPY")
    For i = LBound(VList) To UBound(VList)
        Range("L1") = VList(i)
        ActiveSheet.PrintOut
    Next
End Sub 

请告诉我如何修改此代码以获取单个 PDF 文件而不是单独的页面。

Answer 1

正如 Zac 所说，可能与已回答的this post 重复。

在导出为 PDF 之前，您似乎必须选择工作表。

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\tempo.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

感谢@Tim Williams 的回答。