Excel VBA導出並附加到PDF

Question

我正在尋找一些解決PDF問題的幫助。我有一張表格，其中包含一些可在2頁上打印的信息。此表中顯示的信息由下拉選項控制，以選擇幾百個選項中的一個。我有一個PDF打印功能，可以正常顯示所顯示信息的單個視圖，因此我使用下拉菜單選擇1個選項，然後單擊保存到PDF按鈕，這一切都很好。

我需要添加第二個函數，它將遍歷下拉框中可用的所有選項，並將所有這些添加到單個PDF中進行保存。我可以處理循環中的所有標準代碼，但是如何在循環內部生成PDF文件。我知道如何構建一張紙張以導出爲單個PDF，但這種「循環」功能是我努力尋找答案的一種方式。

任何人都可以幫忙嗎？如果您需要更多信息，請直接詢問。

謝謝

Answer 1

在解決方案中，假設我們有一個名爲Table2的表。 我們還有一個幫助表（用於存儲過濾的表），它是Hiden並命名爲：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/