Kode untuk Mencetak Daftar. Loop ke PDF

Saya memiliki spreadsheet yang membuat grafik dan bagan menggunakan daftar pilihan. Saya telah menemukan kode untuk membuat file untuk mengulang daftar dan mencetak setiap pilihan, namun, saya belum bisa menemukan cara untuk mencetaknya ke PDF sebagai lawan dari printer saya. Adakah yang bisa membantu saya? Saya ingin satu file PDF dengan semua grafik / grafik. Poin bonus jika kode secara otomatis meninggalkan halaman tanpa data.

Ini adalah kode yang saya miliki di file saya:

Sub Test()
Dim rng As Range
Set rng = Sheets("Lists").Range("a2:a122")
For Each cell In rng.Cells
Sheets("Summary").Range("b3").Value = cell.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next cell
End Sub

Anda dapat mencoba solusi komersial ini , ia memiliki opsi printer file untuk membuat file PDF dan dapat secara otomatis menghapus halaman berdasarkan kondisi yang Anda konfigurasi. Saya tidak yakin apakah mungkin sebaliknya.