How to split multiple excel data /sheets into multiple PDF files

**Faridwahidi** · 08-07-2014, 11:05 AM

Hi,

can anyone help me?

this code will only create multiple PDF pages but saved it into one PDF files

I want every pages of PDF files to be split out in multiple PDF Files.

Sub CompileReport2()
    Dim mySheets As Variant
    Dim sh As Worksheet

    mySheets = Array("Sheet1", "Sheet2", "Sheet3")
    For Each sh In mySheets
        Sheets(sh).PageSetup.Orientation = xlLandscape
    Next

    Sheets(mySheets).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Test2" & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub

**Tinbendr** · 08-08-2014, 12:25 PM

Sub CompileReport2()
    Dim Sh As Worksheet
    Dim Cnt As Long
    
    For Each Sh In Worksheets
        Select Case Sh.Name
        Case "Sheet1", "Sheet2", "Sheet3"
            Cnt = Cnt + 1
            Sh.PageSetup.Orientation = xlLandscape
            Sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Test" & Cnt & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        End Select
    Next
End Sub

Here's an article about saving worksheets into workbooks.