Multiple Custom Views to Single PDF

[Steims]

I have a worksheet that I use to create a report each month. I have saved 6 custom views to print the various pages of the report, 3 custom views on one sheet and one on each of 3 other sheets.

To compile my report, I currently select each custom view, save as PDF, and then use adobe acrobat to combine the files. This is not a bad work around, but I would like to create a macro that would allow me to either save or print the custom views to a single PDF with the click of a button, which would make it easier for me to pass the responsibility for this report off to someone else more easily.

Any help would be appreciated. Thanks.

 

[Worf]

Hello and welcome to the Board

See if this example is useful:

Sub Export_to_PDF()
Dim ws As Object
' tested with Excel 07


For Each ws In ActiveWorkbook.Sheets        ' hide unwanted sheets
    If ws.Name = "Draft" Then ws.Visible = False
Next


ActiveWorkbook.ExportAsFixedFormat xlTypePDF, _
ActiveWorkbook.Path & "\" & "Summary" & ".pdf"


End Sub