Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro que imprimir varias abas...

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
xandrinho
Colaborador
Colaborador
Mensagens: 35
Registrado em: Seg Ago 04, 2014 1:52 pm

Macro que imprimir varias abas...

Mensagem por xandrinho »

Amigos, Boa Tarde!!!
Poderiam por favor me ajudar? Na planilha anexa, tenho varias Abas, estou usando o código abaixo para imprimir....
Sub Imprimir()
Range("a1:M" & Range("M" & Cells.Rows.Count).End(xlUp).Row).Select
SendKeys "^{p}", True 'comando ctrl + p
End Sub
...Precisava que com exceção da primeira aba, o código fosse aplicado em todas as abas existentes, pois o arquivo terá varias abas. Com isso ganharia um vasto tempo para imprimir as abas, com exceção da primeira.
Isso é possível? Poderiam por favor me ajudar
Anexos
Impressão.zip
(470.38 KiB) Baixado 602 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


JValq
Manda bem
Manda bem
Mensagens: 101
Registrado em: Qua Abr 27, 2011 7:34 pm
Localização: São Paulo/SP

Re: Macro que imprimir varias abas...

Mensagem por JValq »

Boa tarde,

Veja se este código atende:

Código: Selecionar todos

Sub ImprimirVarias()
    For i = 2 To Sheets.Count
        Sheets(i).Select
        [A1].CurrentRegion.Select
        Selection.PrintOut
    Next
End Sub
Abraço


xandrinho
Colaborador
Colaborador
Mensagens: 35
Registrado em: Seg Ago 04, 2014 1:52 pm

Re: Macro que imprimir varias abas...

Mensagem por xandrinho »

José Funcionou perfeitamente, Mto Obrigado!!!!

DEUS Abençoe Grandemente.

Forte Abraço!!!!


jf_pires
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qua Jul 25, 2018 4:10 pm

Re: Macro que imprimir varias abas...

Mensagem por jf_pires »

Boa tarde pessoal!

Sou novato aqui no fórum, esse é o meu primeiro post.
Achei vocês tentando achar uma solução para um caso parecido com o do colega xandrinho, porém, quero imprimir todas as abas, e o código não deu certo para mim.
Segue a planilha em questão. Conseguem me ajudar?
Recibos.rar
(27.12 KiB) Baixado 370 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


jf_pires
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qua Jul 25, 2018 4:10 pm

Re: Macro que imprimir varias abas...

Mensagem por jf_pires »

Bom dia pessoal!

Alguém conseguiu solucionar esse "mistério"? kkk
Obrigado!!!


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Macro que imprimir varias abas...

Mensagem por Reinaldo »

Não notei qualquer erro no código apresentado, acrescentado o mesmo em seu modelo imprime normalmente
Qual o procedimento que tentou (descreva passo a passo) e qual o erro/dificuldade encontrada?


jf_pires
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qua Jul 25, 2018 4:10 pm

Re: Macro que imprimir varias abas...

Mensagem por jf_pires »

Eu abri o módulo de VBA com Alt + F11, colei o código, fechei, em seguida executei apertando o botão verde tipo “play”.
Ao imprimir, só sai na folha as seguintes células: A1, B1, A2 E B2.


jf_pires
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qua Jul 25, 2018 4:10 pm

Re: Macro que imprimir varias abas...

Mensagem por jf_pires »

Ele imprime todas as abas, mas só as células que descrevi.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Macro que imprimir varias abas...

Mensagem por Reinaldo »

Experimente

Código: Selecionar todos

Sub Imprimir_Todas_Abas()
Application.ScreenUpdating = False
    For i = 2 To Sheets.Count
        Sheets(i).Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Next
Application.ScreenUpdating = True
End Sub


jf_pires
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qua Jul 25, 2018 4:10 pm

Re: Macro que imprimir varias abas...

Mensagem por jf_pires »

Meu caro,

Agora sim deu certo!
Muitíssimo obrigado!

Um grande abraço!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder