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/