在Excel vba中创建单个PDF文件

我在工作表中有一个模板，数据将在另一张表中填写。我有代码来填充模板，但它作为单独的PDF打印。但是，我需要它是在一个单一的PDF文件。文件名可以是任何名称，无所谓。如何修改此Excel VBA代码以执行此操作

Sub GenerateDataSheets()
    Row = 4
    Do Until IsEmpty(Worksheets("Descriptions").Cells(Row, 1))
        Sheets("Template").Range("U3") = Worksheets("Descriptions").Cells(Row, 1)
        Sheets("Template").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Worksheets("Descriptions").Cells(Row, 1)
        Row = Row + 1
    Loop
       MsgBox "DataSheets have been generated."
End Sub

---

为什么不先将所有数据添加到列表中，然后打印？我认为这可能对你有用：

Sub GenerateDataSheets()
Row = 3
Do Until IsEmpty(Worksheets("Descriptions").Cells(Row + 1, 1))
    Sheets("Template").Range("U" & Row) = Worksheets("Descriptions").Cells(Row + 1, 1)
    Row = Row + 1
Loop
Sheets("Template").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Worksheets("Descriptions").Cells(3, 1)
MsgBox "DataSheets have been generated."
End Sub