Save Multiple Sheets as Single PDF

[Sargad_Strut]

Hi guys,

Yes, I know this question have been posted before, but I couldn't make use of the suggestions I found.
This is my current code:

Sub SaveAllAsPDF()
Dim wsh As Worksheet, vWshs, vWshName
RptDatum = Range("C10")
vWshs = Array("SheetX", "SheetY", "SheetZ")
With ActiveWorkbook
For Each vWshName In vWshs
.Worksheets(vWshName).<wbr>ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="G:\MyFolder\" & RptDatum & vWshName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next vWshName
End With
End Sub

It's working just fine, but I'd like to merge the sheets into a single PDF.

Any help would be much appreciated!

 

[Trevor G]

I believe you need to check all the page setups are the same and then you should be OK. Look at this website for suggestions, its the last thread.

Tracker Software Products :: Knowledgebase :: How do I make Excel print several sheets in a single PDF?

 

[Sargad_Strut]

Hi Trevor, thanks for your reply!

I actually came across that site when I tried to figure this out myself. However, I don't want to save all the sheets (about 40 in total), just eleven specific (monthly reports).
And yes, all the page setups are the same.

If possible I'd like to expand/edit the code above to "merge" this 11 sheets into a PDF somehow, so that I can still have a button attached to it for coworkers to use.
Thanks

 

[Trevor G]

I have just recorded a macro to group three sheets then save as PDF, they go into 1 PDF document, here is the recorded code.

Sub Macro4()
'
' Macro4 Macro
'
'
Sheets(Array("All Data 1", "Sheet2", "Sheet3")).Select
Sheets("All Data 1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Trevor Glover\Documents\Book1.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

 

[Sargad_Strut]

Hi again Trevor,

Yes, working like a charm, and so much easier than I thought!
Thanks a buch!