在Excel VBA中创建单个PDF文件

Question

我在工作表中有一个模板，要在另一个工作表中填充数据。我有代码来填充模板，但它打印为单独的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 

Answer 1

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

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