将工作表合并为一个 PDF答案

【问题标题】：Combining sheets into one PDF将工作表合并为一个 PDF
【发布时间】：2017-07-11 05:48:08
【问题描述】：

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

我想将所有工作表一起打印在一个 pdf 中。这意味着 pdf 将包含 600 张钞票。

VBA 代码是什么？

【问题讨论】：

【解决方案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

【讨论】：

我需要单张 PDF 意味着账单 1.pdf 2.pdf 3.pdf 到 600.pdf 并将所有文件合并为单个 pdf 文件。
@MahanteshAmbole：这是包含每张纸的单个 pdf。
@MahanteshAmbole：您的意思是在编号 1 到 600 的特定工作表，并导出为 Pdf？
如果你的注意力是那个，我的回答不合适。
是的，我想要 600 张表格用于每个表格帐号更改以及与公式相关的信息