VBA 从 Excel 导出 PDF 2 份

Question

我正在寻找将几张工作表从 Excel 导出到一个 PDF 文件的解决方案。我已经录制了一个宏，它可以使用所有有趣的我的工作表创建漂亮的 PDF。但是我需要同一个 PDF 中的一张纸的 2 份副本，但我不知道该怎么做。 这是我的代码。

Sub ExportPDF()  
    Sheets(Array("PackingList", "Administracyjny", "Nadawca", "Odbiorca", "Przewoźnik")).Select  
    Sheets("PackingList").Activate  
    ChDir "C:\Users\XXXXXX\Desktop"  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\XXXXXX\Desktop\Spools_PackingList.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False,  OpenAfterPublish:= False  
End Sub

Answer 1

See here for copying a worksheet，在代码开头复制整个工作表可能是一个很好的解决方法，然后您可以在末尾删除它 (taken from here):

Sub sbDeleteASheet()
Sheet1.Delete
'OR You can mention the Sheet name
Sheets("Sheet2").Delete
End Sub