Imprimir Sheets

2024 - VBA & Macros

Post Recente por JokerPot 10 anos atrás

3 Posts

2 Usuários

0 Reactions

807 Visualizações

RSS

JokerPot

(@jokerpot)

Posts: 132

Estimable Member

Topic starter

Senhores Boa Tarde!

Gostaria de ajuda de vcs para criar uma macro faça a impressao de algumas Sheets dentro de uma planilha mas obedecendo alguns critérios:
Por exemplo:

Tenho uma PLANILHA com 8 Sheets(abas) sendo que neste exemplo a primeira tem o nome de Base de Dados e as outras de Plan2 a Plan8.
A sheets Base de Dados NAO precisa ser impressa.
As sheets Plan2 a Plan7 deverão ser impressas normalmente.
Já a sheets Plan8 deverá ser impressa conforme a quantidade de sheets a serem impressas. No exemplo acima de Plan2 a Plan7 temos um intervalo de 6 Sheets, portanto essa é a quantidade de impressões a serem feitas da Plan8.

Podem me auxiliar?

Postado : 24/07/2014 12:41 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

JokerPot,

Boa Tarde!

Utilize o código abaixo:

Sub Imprimir()
    Sheets(Array("Plan2", "Plan3", "Plan4", "Plan5", "Plan6", "Plan7")).Select
    Sheets("Plan2").Activate
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("Plan8").Select
    ExecuteExcel4Macro "PRINT(1,,,6,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("Base de Dados").Select
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 24/07/2014 1:20 pm