Код для печати списка Loop to PDF

Question

У меня есть электронная таблица, которая создает график и диаграмму, используя выбор списка. Я выяснил код, чтобы заставить файл циклически проходить по списку и распечатывать каждый выбор, однако я не смог выяснить, как напечатать его в PDF, в отличие от моего принтера. Может кто-нибудь мне помочь? Я хочу один файл PDF со всеми графиками / диаграммами. Бонусные баллы, если код автоматически пропускает страницы без данных.

Вот код, который у меня есть в моем файле:

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

Answer 1

Вы можете попробовать это коммерческое решение, у него есть опции файлового принтера для создания файлов PDF, и он может автоматически удалять страницы в зависимости от настроенных вами условий. Я не уверен, возможно ли это иначе.