VBA to Print all Visable sheets - All to 1 PDF file - Colated

I have tried searching but have come up with only partials of what I might need

I have a excel 2013 file that has 25 pages with some being charts and some being report info

There will be multiple users with different PDF programs, and the user will need to just save to a folder.

There are hidden sheets, so to keep things simple I would like to PDF all visible sheets to 1 file ?

I would appreciate any Help ! even direction to a link I may have missed !

Thanks in Advance, Gerry..

Hi Gerry Pasveer,

check the code below

Sub PrintPDF()
    Dim myArray() As Variant
    Dim i As Integer
    Dim j As Integer
    j = 0
    For i = 1 To Sheets.Count
        If Sheets(i).Visible = True Then
            ReDim Preserve myArray(j)
            myArray(j) = i
            j = j + 1
        End If
    Next i
    Sheets(myArray).Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\tempo.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Try changing the path

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\tempo.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

You're welcome Gerry. Glad we can offer some help for you and thanks a lot for fshbet for the great solution

welcome friends.