Notifications

Clear all

Imprimir várias tabelas uma só vêz

Tabela Dinâmica

Post Recente por Fernando Fernandes 10 anos atrás

8 Posts

2 Usuários

0 Reactions

2,197 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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