Boa noite!!

Eu não entendi muito bem...

Option Explicit

Sub Tente()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets
    If ws.Visible = xlSheetVisible Then
      ws.PageSetup.PrintTitleRows = "$2:$3"
      ws.PageSetup.PrintArea = "$A$2:$E$9"
      ws.PrintOut
    
      ws.PageSetup.PrintTitleRows = "$12:$13"
      ws.PageSetup.PrintArea = "$A$12:$E$49"
      ws.PrintOut
    End If
Next ws

End Sub

Att

Olá. alexandrevba
Experimentei a tua dica, mas além de desformatar tudo imprimia 10 folhas, pelo que não resulta.
Vou explicar melhor o que prtendo:
Pretendo que numa folha dividida em duas páginas as ultimas linhas sejam impressas nas duas páginas
Ex.
Cabeçalho da folha de A1:AS6
Página1 com dados de A7:AS24.
Divisão da folha em A24:AS24,
Página2 com dados A25:AS44
Final da folha A55:AS55
Linhas que deverão ser impressas nas duas páginas A45:AS55
Portanto:
A página1 terá de conter as Linhas A1:AS6 + A7:AS23 + A45:AS55
A página2 terá de conter as linhas A1:AS6 + A25:AS44 + A45:AS55

Para o cabeçalho não há problema mas, no entanto a opção de introduzir no rodapé não serve.
PS: Se necessário posso enviar ficheiro.

Boa noite, segue uma sugestão que talvez possa lhe atender no que precisa.
já fiz isso em algumas planilhas e quando tinha situações parecidas com a que voce informa agora.
Crie uma planilha em branco, com a formatação que voce precisa, depois crie uma macro que copia os dados que voce quer que sejam impressos e colem na planilha que voce criou.
Fazendo isso voce terá as planilhas prontas para serem impressas, na formatação que sugeri voce já cola as informações que precisa que se repitam.
Não deu pra fazer o exemplo na sua planilha, se tiver dúvidas me dá um toque que lhe envio o exemplo da macro na sua planilha.