Print dynamic ranges each from different sheets in 1 go ?

[Paul Sansom]

Hi
Trying to Print dynamic ranges from different sheets in one print run.
I have the code below but I cant see why I doesn't populate, and I get an object error.
Guidance always appreciated

Sub PrintAllDataSheets()
'   Print Initiate Investigate Validate Audit Implement Summary Page in sigle report
    
    Dim arrSheets
    Dim arrAreas
    Dim i As Integer
    
    arrSheets = Array("Initiate", "Investigate", "Validate", "Audit", "Implement")
    arrAreas = Array("Print_Initiate", "Print_Investigate", "Print_Validate", "Print_Audit", "Print_Implement")
    
    For i = 0 To UBound(arrSheets)
    Sheets(arrSheets(i)).PageSetup.PrintArea = arrAreas(i)

    arrAreas(i).PrintOut
    Next
    
End Sub

I also have an alt version with more print control . Same error , but also not sure if I can do this????
Pointers on feasibility appreciated???

Sub PrintAllDataSheets1()
'   Print Initiate Investigate Validate Audit Implement Summary Page in sigle report
    
    Dim arrSheets
    Dim arrAreas
    Dim i As Integer
            
    arrSheets = Array("Initiate", "Investigate", "Validate", "Audit", "Implement")
    arrAreas = Array("Print_Initiate", "Print_Investigate", "Print_Validate", "Print_Audit", "Print_Implement")
    
    For i = 0 To UBound(arrSheets)

    With Sheets(arrSheets(i)).PageSetup
        .PrintArea = arrAreas(i)
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 2
        .Orientation = xlLandscape
        .BlackAndWhite = False
    
    arrAreas(i).PrintOut
    
    End With
    Next
    
End Sub

Cheers Paul

 

[Paul Sansom]

Der.... worked it out
Ranges were not set correctly

Sub PrintAllDataSheets()
'   Print Initiate Investigate Validate Audit Implement Summary Page in sigle report
    
    Dim arrSheets
    Dim arrAreas
    Dim i As Integer
    
    arrSheets = Array("Initiate", "Investigate", "Validate", "Audit", "Implement")
    arrAreas = Array(Range("Print_Initiate"), Range("Print_Investigate"), Range("Print_Validate"), Range("Print_Audit"), Range("Print_Implement"))
    
    For i = 0 To UBound(arrSheets)
    Sheets(arrSheets(i)).PageSetup.PrintArea = arrAreas(i)

    arrAreas(i).PrintOut
    Next
    
End Sub

Wasted 2hours of my life on this, that I wont get back...... grrrr