About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2008-05-25

Há dias, foi-me perguntado qual o método para se poder imprimir, de uma só vez, Ranges provenientes de duas WorkSheets.

Uma das possibilidades, é utilizar uma mistura de Excel (definição das áeras de impressão nas duas WorkSheets) e de VBA, no sentido de, a partir daquela definição, imprimir de uma só vez, mas em duas folhas distintas, os Ranges pretendidos.

Exemplo:

Sheet1:

image 

Sheet2:

image

 

Para definir as respectivas áreas de impressão:

1 - "marcar" o Range pretendido

2 - File>PrintArea>Set Print Area

 image

3 - A definição das áreas de impressão deve ser efectuada para as duas Sheets.

 

E, agora, para a impressão dos Ranges definidos, o código VBA:

 

Sub ImprimeDeUmaVez()

    Sheets(Array("Sheet1", "Sheet2")).Select
    ActiveWindow.SelectedSheets.PrintOut

End Sub

 

Tópicos relacionados: