Excel VBAのエクスポートとPDFへの添付

Question

私はPDFの問題を解決するためにいくつかの助けを探しています。私は2ページに印刷する情報があるシートを持っています。このシートに表示される情報は、数百のオプションのうちの1つを選択するドロップダウンオプションによって制御されます。表示される情報の単一のビューに対して、PDFへの印刷機能が正常に機能しているため、ドロップダウンを使用して1つのオプションを選択し、PDFに保存ボタンをクリックするとすべてがうまく動作します。

ドロップダウンボックスで使用可能なすべてのオプションをループし、すべてを保存する単一のPDFに追加する2番目の関数を追加する必要があります。ループ内のすべての標準コードを処理できますが、ループ内でPDFファイルを構築するにはどうすればよいですか。私は単一のPDFにエクスポートするシートの配列を構築する方法を知っていますが、このような「ループ内」関数は答えを見つけるのに苦労しています。

誰でも助けてください。それ以上の情報が必要な場合は、尋ねてください。表2：

おかげで、溶液中の

Answer 1

は、我々はという名前のテーブルを持っていると仮定します。 また、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/