Print Multiple Pages from one sheet

[The_Steward]

Hey,

i'm looking to create a 7 page PDF using data from one sheet in my workbook. 2 pages (First two ranges) worked successfully but any more than that has not worked.

Sub Printpdf()
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$B$24,$C$1:$H$24,$I$1:$I$24,$A$28:$B$48,$C$28:$H$48,$I$28:$I$48,$B$52:$C$53"
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Plan Review Budget", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
  End With
End Sub

 

[jolivanes]

Change the ranges in the array to suit your needs

Sub Maybe_So()
Dim prArr, i As Long
prArr = Array("A1:D10", "C4:F5", "B12:I17", "C6:J38", "F5:K22", "D1:K40", "D12:J35")
Application.ScreenUpdating = False
    For i = LBound(prArr) To UBound(prArr)
        With ActiveSheet.PageSetup
            .PrintArea = prArr(i)
            .FitToPagesWide = 1
            .FitToPagesTall = False
        End With
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Plan Review Budget Page " & i + 1 & ".PDF", Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next i
Application.ScreenUpdating = True
End Sub

 

[The_Steward]

Thankyou! a merging of yours and my original got the job done!