Este fórum está sendo desativado

[guilhermedurso]

Pessoal, boa tarde!

Como faço para imprimir várias abas de uma só vez?
Alguém teria como mandar um exemplo?

Valeu!!!

[zOwwt]

Código: Selecionar todos

dim i as integer

for i = 1 to Sheets.Count
    Sheets(i).Select
    ' se for imprimir um intervalo especifico pode usar:
     ActiveSheet.PageSetup.PrintArea = "INTERVALO"
     ActiveWindow.SelectedSheets.PrintOut copies:=1
' se for imprimir a região inteira use o current region..
     
next i