将列表循环打印为 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 文件，并且可以自动删除页面根据您配置的条件。我不确定是否可行。