Printing multiple ranges on 1 page

[bademployee]

I'm using a simple print preview:

Private Sub CommandButton5_Click()
    With ActiveSheet
        .PageSetup.PrintArea = "$b$1:$t$5"
        .PageSetup.Orientation = xlLandscape
        .PageSetup.Zoom = 85
        .PrintPreview
End With
End Sub

But want to add $b$27:$t$45 as well on the same page - is this possible?

Thanks

 

[Misca]

I believe you should set the print area to print one single range and hide the rows you don't want to print:

Dim HiddenRng As Range

With ActiveSheet


    Set HiddenRng = .Range("A6:A26")


    HiddenRng.EntireRow.Hidden = True


        With .PageSetup
            .PrintArea = "$b$1:$t$45"
            .Orientation = xlLandscape
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .Zoom = 85
        End With
    
    .PrintPreview


    HiddenRng.EntireRow.Hidden = False


End With

If the hidden range is always the same you might want to set is as a constant and just make sure it's hidden when you print the sheet.

 

[bademployee]

I like your idea, keeps it simple.

Thanks