Excel Impressão das quebras de páginas de Abas diferentes

[ppeterk]

Colegas, boa noite!

 

Gostaria de imprimir 2 abas do excel que contenham quebras de páginas. No entanto, gostaria que fosse imprimido da seguinte forma (Obs: Cada aba tem várias quebra de páginas):

 

- Imprime a primeira página da primeira aba e, em seguida, a primeira página da segunda aba.

- Imprime a segunda página da primeira aba e, em seguida, a segunda página da segunda.

 

No fim, o objetivo é imprimir frente e verso.

 

Segue o modelo em anexo

Impressão Condomínio 07 2021.xlsx

[Muca Costa]

Tente assim:

Public Function TotalDePaginas() As Variant
Dim pbHorizontal As HPageBreak
Dim pbVertical As VPageBreak
Dim nHorizontalPageBreaks As Long
Dim nVerticalPageBreaks As Long
Dim nTotalDePaginas As Long
On Error GoTo ErrHandler
    
    With ActiveSheet
        If .PageSetup.Order = xlDownThenOver Then
            nHorizontalPageBreaks = .HPageBreaks.Count + 1
            nVerticalPageBreaks = 1
        Else
            nHorizontalPageBreaks = 1
            nVerticalPageBreaks = .VPageBreaks.Count + 1
        End If
        nTotalDePaginas = 1
        For Each pbHorizontal In .HPageBreaks
            nTotalDePaginas = nTotalDePaginas + nVerticalPageBreaks
        Next pbHorizontal
        For Each pbVertical In .VPageBreaks
            nTotalDePaginas = nTotalDePaginas + nHorizontalPageBreaks
        Next pbVertical
    End With
    TotalDePaginas = nTotalDePaginas
ResumeHere:
    Exit Function
ErrHandler:
    TotalDePaginas = CVErr(xlErrRef)
    Resume ResumeHere
End Function

Sub Imprimir()
Dim N As String, i As Integer

N = TotalDePaginas()
For i = 1 To N
    Worksheets("Cálculos Clínicas").PrintOut From:=N, To:=N
    Worksheets("Cobrança Clinicas").PrintOut From:=N, To:=N
    N = N + 1
Next i

End Sub