Esta macro activa las tres primeras hojas y fija el área de impresión en el rango seleccionado, de esta forma para un conjunto de hojas no tendríamos que estar seleccionando cada una de ellas para fijarlas, si en todas es es igual podríamos usarla para imprimir el libro de Excel de una forma rápida.

Sub Area_Impresion()

‘ Seleccionar Áreas
    Dim i As Integer

        For i = 1 To 3
            Sheets(i).Activate
            Range(“B5:D10,B13:D20”).Select
            ActiveSheet.PageSetup.PrintArea = “$B$5:$D$10,$B$13:$D$20”
        Next i
‘ Imprimir las Áreas

    ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    
End Sub