Codifique para imprimir o loop de lista para PDF

Question

Eu tenho uma planilha que cria um gráfico e um gráfico usando uma seleção de lista. Eu descobri o código para obter o arquivo para percorrer a lista e imprimir cada seleção, no entanto, não fui capaz de descobrir como imprimi-lo em PDF ao contrário da minha impressora. Alguém pode me ajudar? Eu quero um arquivo PDF com todos os gráficos / gráficos. Pontos de bônus se o código automaticamente deixar de fora páginas sem dados.

Este é o código que tenho no meu arquivo:

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

Você pode tentar esta solução comercial, ele tem opções de impressora de arquivos para criar arquivos PDF e pode levar automaticamente as páginas com base nas condições que você configurar. Não tenho certeza se é possível de outra forma.