Este código simplesmente salva todas as planilhas em um arquivo PDF. Você só precisa alterar o nome da pasta no código.
Sub SaveWorkshetAsPDF()
Dim ws As Worksheet
For Each ws In Worksheets
ws.ExportAsFixedFormat _
xlTypePDF, _
"DIGITE-A-PASTA-E-O-NOME-DO-ARQUIVO-AQUI" & _
ws.Name & ".pdf"
Next ws
End Sub
PUDIM PROJECT
Conheça também:
Veja outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário