Excel VBA 导出并附加到 PDF

Question

我正在寻求一些帮助来解决保存到 PDF 的问题。我有一张纸，其中包含一些打印在 2 页上的信息。此表上显示的信息由下拉选项控制，可从数百个选项中选择一个。我有一个打印到 PDF 功能，对于显示的信息的单一视图工作正常，所以我使用下拉菜单选择 1 个选项，然后单击保存到 PDF 按钮，这一切都很好。

我需要添加第二个函数，它将遍历下拉框中的所有可用选项，并将所有这些添加到要保存的单个 PDF 中。我可以处理循环中的所有标准代码，但是如何在循环中构建 PDF 文件。我知道如何构建一组工作表以导出到单个 PDF，但这种“循环内”功能是我正在努力寻找答案的东西。

有人可以帮忙吗？如果您需要更多信息，请尽管询问。

谢谢

Answer 1

在解决方案中，假设我们有一个名为：Table2 的表。 我们还有一个帮助表（用于存储过滤后的表），它是隐藏的，名为：Help。

Option Explicit

Sub print_to_pdf()
    Dim sh  As Long
    Dim rg  As Range
    Dim Rng As Range
    Dim rw  As Range

    Application.ScreenUpdating = False

    For Each rw In Range("Table2[#All]").Rows

        If rw.EntireRow.Hidden = False Then
            If Rng Is Nothing Then Set Rng = rw
            Set Rng = Union(rw, Rng)
        End If

    Next

    Rng.Copy

    With Sheets("help")
        .Visible = True
         sh = .Cells(Rows.Count, "A").End(xlUp).Row + 2
        Set rg = Range("a3" & ":" & "a" & sh - 2)

        .Activate
        .Cells(sh, "A").Select
        ActiveSheet.Paste

        ActiveSheet.PageSetup.PrintArea = rg

        ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\rep.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

        .Visible = False
    End With

    Application.ScreenUpdating = True

    MsgBox "Your PDF Has been Created with Success!!", vbInformation
End Sub

您可以在帮助表中附加数据，然后导出 pdf。

参考：https://stackoverflow.com/questions/