Este fórum está sendo desativado

[Iago46]

Bom dia a todos!

Alguém poderia me ajudar?

Possuo uma planilha que gera um relatório com informações e tamanhos variáveis em 4 intervalos espaçados dentro da mesma aba, para definir a área de impressão variável tentei utilizar o código abaixo, porém ao imprimir apenas o último intervalo é impresso:

Sub ImprimirRelatorio()

With ActiveSheet
.PageSetup.PrintArea = "$B$5:$O" & .Cells(Rows.Count, "A").End(3).Row
.PageSetup.PrintArea = "$R$21:$AE" & .Cells(Rows.Count, "Q").End(3).Row
.PageSetup.PrintArea = "$AH$21:$AU" & .Cells(Rows.Count, "AI").End(3).Row
.PageSetup.PrintArea = "$AX$21:$BK" & .Cells(Rows.Count, "AW").End(3).Row
.Application.Dialogs(xlDialogPrintPreview).Show

End With
End Sub

Como posso estar adaptando o código para que os 4 intervalos definidos sejam impressos em uma sequencia?

[DJunqueira]

As áreas q vc quer imprimir me parecem bem extensas, mas por princípio procure anexar uma planilha exemplo p/ obter a mais pronta ajuda.

[Iago46]

Bom dia!

Desculpe pela demora em responder, segue em anexo a planilha modelo. Na aba Rel_clientes encontram-se as áreas de impressão à qual me referi. Não deixei nenhum dado na planilha por tratar de informações sigilosas. Mas a ideia é que dependendo da quantidade de dados de cada cliente a área de impressão se adapte.