Fóruns
Microsoft Excel - 2...
Tabela Dinâmica
Imprimir várias tab...
 
Notifications
Clear all

Imprimir várias tabelas uma só vêz

 
Tabela Dinâmica
8 Posts
2 Usuários
0 Reactions
2,188 Visualizações
RSS
 neto1a
(@neto1a)
Posts: 28
Eminent Member
Topic starter
 

Boa tarde pessoa!
Eu tenho uma planilha que eu filtro SEMANA.PLANO (no filtro da tabela) que eu quero e mando imprimir. Gostaria de saber se não tem como imprimir tudo de uma vez, porém cada SEMANA.PLANO separado, como faço manualmente (um por um).
Seria ele filtrar e imprimir, um por um de forma automática.

A planilha original tem 5,9 mb, deletei bastante coisa e ficou com 296 kb. Aqui na empresa os sites de hospedagem são bloqueados.
Se alguém quiser essa planilha modelo só me manda um email que eu envio.

obs:
SEMANA = número da semana que se deve efetuar o serviço;
PLANO = número do plano de manutenção

Agradeço desde já

 
Postado : 27/06/2014 12:51 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Poste seu modelo compactado, aqui no fórum!!

Att

 
Postado : 27/06/2014 7:27 pm
 neto1a
(@neto1a)
Posts: 28
Eminent Member
Topic starter
 

Segue o link da planilha http://encodable.com/cgi-bin/filechucker.cgi?action=landing&path=/&file=IMPRESSOES.xlsm

Obrigado.

 
Postado : 30/06/2014 7:19 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não tive sucesso ao baixar o arquivo no link acima!

Att

 
Postado : 01/07/2014 7:04 am
 neto1a
(@neto1a)
Posts: 28
Eminent Member
Topic starter
 

novo link.

http://encodable.com/cgi-bin/filechucker.cgi?action=landing&path=/&file=IMPRESSOES.xlsm

 
Postado : 01/07/2014 7:35 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Pode ser assim, tovez que você mudar o filtro em C5, será executado uma impressão?
https://www.sendspace.com/file/4zai4f

Att

 
Postado : 01/07/2014 1:26 pm
 neto1a
(@neto1a)
Posts: 28
Eminent Member
Topic starter
 

Bom dia!!
Obrigado pela ajuda, seria isso o que foi adicionado certo?

Sub AleVBA()
    Range("MyrangeAleVBA").Select
    ActiveSheet.PageSetup.printarea = ""
    ActiveSheet.PageSetup.printarea = "MyrangeAleVBA"
    ActiveSheet.PrintOut
    'http://www.planilhando.com.br/forum/viewtopic.php?f=22&t=12280&sid=f32b603e460236981df8c2dc026d6eb5
End Sub

Isso já ajuda, já economiza vários CTRL P, e não vou mais me atrapalhar em algumas vezes se já imprimi ou não.

 
Postado : 02/07/2014 5:21 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu espero ter ajudado, até a próxima ;)

Att

 
Postado : 02/07/2014 5:31 am
Forum Jump:
  Tópico Anterior
Próximo Tópico