Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro que imprimir varias abas...
Macro que imprimir varias abas...
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
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
Re: Macro que imprimir varias abas...
Boa tarde,
Veja se este código atende:
Abraço
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
Re: Macro que imprimir varias abas...
José Funcionou perfeitamente, Mto Obrigado!!!!
DEUS Abençoe Grandemente.
Forte Abraço!!!!
DEUS Abençoe Grandemente.
Forte Abraço!!!!
Re: Macro que imprimir varias abas...
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?
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?
Re: Macro que imprimir varias abas...
Bom dia pessoal!
Alguém conseguiu solucionar esse "mistério"? kkk
Obrigado!!!
Alguém conseguiu solucionar esse "mistério"? kkk
Obrigado!!!
- Reinaldo
- 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...
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?
Qual o procedimento que tentou (descreva passo a passo) e qual o erro/dificuldade encontrada?
Re: Macro que imprimir varias abas...
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.
Ao imprimir, só sai na folha as seguintes células: A1, B1, A2 E B2.
- Reinaldo
- 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...
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
Re: Macro que imprimir varias abas...
Meu caro,
Agora sim deu certo!
Muitíssimo obrigado!
Um grande abraço!!!
Agora sim deu certo!
Muitíssimo obrigado!
Um grande abraço!!!