在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