将表格合并为一个PDF

Question

我正在使用帐号从1到600的Excel工作表。

我想在一张pdf中打印所有纸张。这意味着pdf将包含600张账单。

这是什么VBA代码？

Answer 1

这很简单。只有工作簿导出到pdf文件。

Sub test()

    Dim WB As Workbook
    Dim myFn As String
    Dim Ws As Worksheet, i As Integer
    Set WB = ThisWorkbook

    For i = 1 To 600
        With Sheets(i)
            .Range("C5") = i 'Account No  cell
        End With
    Next i

    myFn = WB.Path & "\" & "test.pdf"

    WB.ExportAsFixedFormat xlTypePDF, myFn
End Sub