Save Each Worksheet as a Single PDF
This code will simply save all the worksheets in a separate PDF
file. You just need to change the folder name from the code.
Sub SaveWorkshetAsPDF()
Dimws As Worksheet
For Each ws In Worksheetsws.ExportAsFixedFormat xlTypePDF,
“ENTER-FOLDER-NAME-HERE" & ws.Name & ".pdf" Nextws
End Sub
No comments:
Post a Comment