Excel VBA導出並附加到PDF

Question

我正在尋找一些幫助來解決保存為PDF的問題。 我有一張紙上有一些信息，可打印在2頁上。 此表上顯示的信息由下拉選項控制，以從數百個選項中選擇1個。 我有一個打印到PDF的功能，可以很好地處理所顯示信息的單個視圖，因此我使用下拉菜單選擇1個選項，然后單擊“保存到PDF”按鈕，效果都很好。

我需要添加第二個功能，該功能將遍歷下拉框中所有可用的選項，並將所有這些添加到單個PDF中以進行保存。 我可以處理循環中的所有標准代碼，但是如何在循環中構建PDF文件。 我知道如何構建一組工作表以導出到單個PDF，但是我一直在努力尋找這種“循環”功能。

有人可以幫忙嗎？ 如果您需要更多信息，請詢問。

謝謝

Answer 1

在解決方案中，假設我們有一個名為：Table2的表。 我們還有一個幫助表（用於存儲過濾的表），該表被隱藏並命名為：幫助。

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/