Lissa has a workbook that contains multiple worksheets. She would like to create individual PDFs for these worksheets (one PDF per worksheet) with the name of the PDF based on the worksheet's name. She wonders if there is a way to do this in Excel.
There are ways to do it, depending on how much time you want to spend. If this is a "one off" occurrence, you might consider just printing each individual worksheet manually. Or, you could copy each worksheet to its own workbook and then print each workbook to PDF.
These are quite manually intensive, though. (Which is why I said they may be good for only "one off" occurrences.) If you would like something a bit more automatic, you'll want to turn to using a macro to do the PDF files. Here's an example of a short macro that will do the PDF creation for you:
Sub CreatePDFs()
Dim wks As Worksheet
Dim sFolder As String
Dim sTemp As String
sFolder = ActiveWorkbook.Path & "\"
sTemp = "Created PDFs for the following worksheets"
For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = xlSheetVisible Then
sTemp = sTemp & vbCrLf & " * " & wks.Name
wks.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFolder & wks.Name & ".pdf", _
OpenAfterPublish:=False
End If
Next
MsgBox sTemp
End Sub
Note that the path stored in the sFolder variable is set to whatever path is associated with the active workbook. (If you haven't saved the active workbook yet, then the macro will not run properly.) This path is the folder in which the PDF files are saved. If you want them saved in a different location, just change the value assigned to the sFolder variable.
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (13570) applies to Microsoft Excel 2007, 2010, 2013, 2016, 2019, and Excel in Office 365.
Save Time and Supercharge Excel! Automate virtually any routine task and save yourself hours, days, maybe even weeks. Then, learn how to make Excel do things you thought were simply impossible! Mastering advanced Excel macros has never been easier. Check out Excel 2010 VBA and Macros today!
Want a list of all the worksheets in your workbook? Here's a short, handy macro that will place all the worksheet names ...
Discover MoreIf you want to automatically print a particular area of your worksheet at a specific time of day, you'll love this tip. ...
Discover MoreGot a bunch of worksheets and you want to save paper by printing multiple worksheets on a single piece of paper? There ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
2018-10-23 15:50:33
Lissa
Thank you! That worked for me too!
I did try the macro once, but had that error as well and I haven't had a chance to comment and get a fix for it, until checking in today.
Lissa (original macro request submittal)
2018-10-10 10:29:01
Gary Lundblad
MF, that worked perfectly- thank you!!!
Gary
2018-10-09 23:50:12
MF
Filename:=sFolder & wks.Name & ".pdf", _
Hi Gary,
Try to change the last "full stop" to "comma" as above.
Regards,
MF
2018-10-09 16:28:36
Gary Lundblad
Thank you for the macro, but I receive a "Compile Error" on this portion of the code, which appeared red immediately after pasting it in. Any thoughts?
"wks.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFolder & wks.Name & ".pdf". _
OpenAfterPublish:=False"
Thank you!
Gary
2018-10-09 11:03:29
Gary Lundblad
Thank you for the macro, but I receive a "Compile Error" on this portion of the code, which appeared red immediately after pasting it in. Any thoughts?
"wks.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFolder & wks.Name & ".pdf". _
OpenAfterPublish:=False"
Thank you!
Gary
Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2019 Sharon Parq Associates, Inc.
Comments