Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Imprimir Sheets
 
Notifications
Clear all

Imprimir Sheets

 
2024 - VBA & Macros
Post Recente por JokerPot 10 anos atrás
3 Posts
2 Usuários
0 Reactions
795 Visualizações
RSS
 JokerPot
(@jokerpot)
Posts: 0
New 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: 4063
Famed 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
 
Postado : 24/07/2014 1:20 pm
 JokerPot
(@jokerpot)
Posts: 0
New Member
Topic starter
 

Wagner Morel boa tarde!

Deu certinho, muito obrigado pela ajuda amigo.

Abraços,

 
Postado : 24/07/2014 1:49 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico