Excelente!! Vídeo simples, sem enrolação, pratico e muito assertivo. Aprendi em 5 minutos como fazer uma macro para impressão, que vai me ajudar muito no dia a dia de trabalho. Parabéns pelo trabalho e obrigado!!!
Podes me ajudar? Preciso que o botão imprimir, além de imprimir a planilha como um todo , imprima também em determinada parte, apenas as linhas que foram editadas. É possível?
sei que já passou muito tempo e você provavelmente já encontrou a resposta, mas vou responder aqui assim mesmo porque outros podem vir aqui com a mesma dúvida. Para adicionar mais de uma área de impressão basta criar mais de um macro deixando em cada um a área de seleção que você deseja e dando um nome diferente para cada um. Eu, por exemplo, numa planilha que gera recibos automaticamente e me permite imprimir até dois de uma vez (porque é o que cabe em uma folha A4), eu adicionei 3 botões de imprimir. O primeiro para imprimir apenas o recibo de cima, o segundo, apenas o de baixo e o terceiro, os dois. As macros ficaram assim: Sub Imprimir() ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$16" ActiveWindow.SelectedSheets.PrintPreview End Sub __________________________________________________________________________________________________________________________________________________________________________ Sub Imprimir2() ActiveSheet.PageSetup.PrintArea = "$A$20:$AB$35" ActiveWindow.SelectedSheets.PrintPreview End Sub __________________________________________________________________________________________________________________________________________________________________________ Sub ImprimirT() ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$35" ActiveWindow.SelectedSheets.PrintPreview End Sub
Eu queria configurar uma impressão com uma condição.. como faz isso? Eu gostaria que ele configurasse para imprimir um determinado local, com uma condição.... por exemplo: se(tal coisa; imprimir da pagina x até y)...
Neste caso, você precisa incluir as instruções através de IF THEN ELSE, por exemplo. Abaixo estão alguns links que podem te ajudar: exceleasy.com.br/if-then-else-no-excel-vba/ exceleasy.com.br/loops-vba-no-excel/
Essa parte do código, =copies, em vez de 1, tem alguma forma escolher a partir das células, tipo uma célula específica pra selecionar o total de cópias a imprimir?
Veja se o código abaixo funciona. Substitua A1 pela célula que contém o número de cópias e Plan1 pelo nome da sua planilha. Sub Imprimir() Dim n As Integer n = Range("A1").Value ActiveSheet.PageSetup.PrintArea = "$A$2:$E$30" Worksheets("Plan1").PrintOut copies:=n End Sub
Tente usar o código abaixo: Onde está "Planilha1", "Planilha2"... altere para as planilhas que você deseja imprimir. Sub ImprimirPlanilhas() Dim Planilhas As Variant Planilhas = Array("Planilha1", "Planilha2") ThisWorkbook.Sheets(Planilhas).PrintOut End Sub
Consegue me ajudar? Eu estou usando uma planilha para preencher os dados e a plhaninha 2 é uma tabela que é preenchida a partir das informações na planilha 1. Eu quero colocar um botão de imprimir na planilha 1 para imprimir a planilha 2. Tem como fazer isso?
Tente o código abaixo. Adapte o intervalo do código conforme o intervalo da sua tabela que será impressa. Depois crie um botão na Planilha1 e vincule a macro. Sub Imprimir() Application.ScreenUpdating = False Planilha2.Select ActiveSheet.PageSetup.PrintArea = "$A$2:$E$30" ActiveWindow.SelectedSheets.PrintOut copies:=1 Planilha1.Select Msgbox "Impressão realizada com o sucesso!" Application.ScreenUpdating = True End Sub
Olá... existe a possibilidade de criar um código para imprimir com um Botão e uma caixa de texto? Exemplo, tenho 4 partes da minha planilha e desejo imprimir somente algumas partes que eu selecionar com a caixa de seleção daquela parte usando um botão imprimir
Olá! É possível sim. Neste caso, você apenas precisa ajudar o código para definir a área de impressão de acordo com o que estiver selecionado na sua lista suspensa. Abaixo está um exemplo para você ajudar o código conforme a sua necessidade: Obs: Neste exemplo, a lista suspensa está na célula A1. Conforme o valor selecionado na lista, eu defini os meus intervalos nomeados e imprimi logo em seguida. Sub Imprimir() On Error Resume Next 'Verifica se lista suspensa possui algum valor selecionado If ActiveSheet.Range("A1") = "" Then MsgBox "Selecione uma opção na lista" Exit Sub ElseIf ActiveCell = "Parte1" Then ActiveSheet.PageSetup.PrintArea = "$A$5:$D$21" ActiveWindow.SelectedSheets.PrintOut copies:=1 ElseIf ActiveCell = "Parte2" Then ActiveSheet.PageSetup.PrintArea = "$F$5:$J$21" ActiveWindow.SelectedSheets.PrintOut copies:=1 ElseIf ActiveCell = "Parte3" Then ActiveSheet.PageSetup.PrintArea = "$L$5:$P$21" ActiveWindow.SelectedSheets.PrintOut copies:=1 ElseIf ActiveCell = "Parte4" Then ActiveSheet.PageSetup.PrintArea = "$R$5:$V$21" ActiveWindow.SelectedSheets.PrintOut copies:=1 End If End Sub
Alguém poderia me ajudar? eu gostaria que imprimisse apenas até ás células preenchida, irei copiar informações de outra planilha na coluna A, NA coluna B repetira os mesmo números da coluna A porém em forma de códigos de barras, depois disso é só clicar em um botão que mandará de forma automática imprimir apenas os códigos, porém eu isso tem que ser de forma sistematizada ou seja tenho que dizer para o excel que imprima apenas os conteúdos reenchidos na coluna B...
Você pode usar um código conforme abaixo. Ele seleciona a célula B1 e faz a seleção até a última linha preenchida. A seleção é interrompida quando encontra a primeira célula em branco na coluna B. Depois é feito a impressão da seleção. Sub Macro1() Range("B1").Select Range(Selection, Selection.End(xlDown)).Select ActiveWindow.RangeSelection.PrintOut End Sub
Bom dia, amigo. Eu fiz uma Macro parecida com a sua, porem eu adicionei o opção de visualização antes de imprimir, mas quando eu coloco o excel em tela cheia desaparece o botão de impressão na tela de visualização. Você saberia me informar como consigo resolver isso?
Basta vc selecionar a planilha desejada e executar o comando de impressão: Dá uma olhada neste artigo: exceleasy.com.br/como-manipular-planilhas-do-excel-com-o-vba/
E qual seria o comando pra inves de imprimir criar um botão pra salvar direto em PDF e também padronizar como tem que sair na hora de salvar Exemplo (nome cliente - placa do veículo - modelo do carro) porque essa sequência é que a planilha é de ordem de serviço que vai ser usada em oficina entendeu, pode me ajudar?
São apenas duas linhas amigo! Segue o código Sub Imprimir() ActiveSheet.PageSetup.PrintArea = "$A$2:$E$30" ActiveWindow.SelectedSheets.PrintOut copies:=1 End Sub
![Lil Uzi Vert - Chill Bae [Official Music Video]](http://i.ytimg.com/vi/D7F42F_JM3U/mqdefault.jpg)
Excelente!! Vídeo simples, sem enrolação, pratico e muito assertivo. Aprendi em 5 minutos como fazer uma macro para impressão, que vai me ajudar muito no dia a dia de trabalho. Parabéns pelo trabalho e obrigado!!!
Valeu quebrou um galho, um abraço.
RAPAZ EU VOU ATÉ DIGITAR EM MAIÚSCULAS AS PALAVRAS, PARABÉNS!!!!!!!
Obrigado!
Perfeito. muito obrigada por ter ensinado, deu super certo
deu certinho men obrigado
Simples e objetivo, ajudou muito. Obrigada.
Parabéns, muito bem Explicado!
Bom dia! Como faço para escolher quais folhas imprimir?
muito bom! Era bem o que eu queria
Podes me ajudar? Preciso que o botão imprimir, além de imprimir a planilha como um todo , imprima também em determinada parte, apenas as linhas que foram editadas. É possível?
Olá, amigo. Como faço para adicionar mais de uma área de impressão ?
sei que já passou muito tempo e você provavelmente já encontrou a resposta, mas vou responder aqui assim mesmo porque outros podem vir aqui com a mesma dúvida. Para adicionar mais de uma área de impressão basta criar mais de um macro deixando em cada um a área de seleção que você deseja e dando um nome diferente para cada um. Eu, por exemplo, numa planilha que gera recibos automaticamente e me permite imprimir até dois de uma vez (porque é o que cabe em uma folha A4), eu adicionei 3 botões de imprimir. O primeiro para imprimir apenas o recibo de cima, o segundo, apenas o de baixo e o terceiro, os dois. As macros ficaram assim:
Sub Imprimir()
ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$16"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
__________________________________________________________________________________________________________________________________________________________________________
Sub Imprimir2()
ActiveSheet.PageSetup.PrintArea = "$A$20:$AB$35"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
__________________________________________________________________________________________________________________________________________________________________________
Sub ImprimirT()
ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$35"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Muito bom!!
Eu queria configurar uma impressão com uma condição.. como faz isso? Eu gostaria que ele configurasse para imprimir um determinado local, com uma condição.... por exemplo: se(tal coisa; imprimir da pagina x até y)...
Neste caso, você precisa incluir as instruções através de IF THEN ELSE, por exemplo.
Abaixo estão alguns links que podem te ajudar:
exceleasy.com.br/if-then-else-no-excel-vba/
exceleasy.com.br/loops-vba-no-excel/
Essa parte do código, =copies, em vez de 1, tem alguma forma escolher a partir das células, tipo uma célula específica pra selecionar o total de cópias a imprimir?
Veja se o código abaixo funciona. Substitua A1 pela célula que contém o número de cópias e Plan1 pelo nome da sua planilha.
Sub Imprimir()
Dim n As Integer
n = Range("A1").Value
ActiveSheet.PageSetup.PrintArea = "$A$2:$E$30"
Worksheets("Plan1").PrintOut copies:=n
End Sub
Como fazer para selecionar outras abas para impressão em um só clique ?
Você pode usar o método select. Recomendo a leitura deste artigo em nosso site:
exceleasy.com.br/como-manipular-planilhas-do-excel-com-o-vba/
Qual código usaria pra imprimir 2 planilhas?
Tente usar o código abaixo:
Onde está "Planilha1", "Planilha2"... altere para as planilhas que você deseja imprimir.
Sub ImprimirPlanilhas()
Dim Planilhas As Variant
Planilhas = Array("Planilha1", "Planilha2")
ThisWorkbook.Sheets(Planilhas).PrintOut
End Sub
Consegue me ajudar? Eu estou usando uma planilha para preencher os dados e a plhaninha 2 é uma tabela que é preenchida a partir das informações na planilha 1. Eu quero colocar um botão de imprimir na planilha 1 para imprimir a planilha 2. Tem como fazer isso?
Tente o código abaixo. Adapte o intervalo do código conforme o intervalo da sua tabela que será impressa. Depois crie um botão na Planilha1 e vincule a macro.
Sub Imprimir()
Application.ScreenUpdating = False
Planilha2.Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$E$30"
ActiveWindow.SelectedSheets.PrintOut copies:=1
Planilha1.Select
Msgbox "Impressão realizada com o sucesso!"
Application.ScreenUpdating = True
End Sub
MACRO PHODA, PARABÉNS!
Olá... existe a possibilidade de criar um código para imprimir com um Botão e uma caixa de texto? Exemplo, tenho 4 partes da minha planilha e desejo imprimir somente algumas partes que eu selecionar com a caixa de seleção daquela parte usando um botão imprimir
Olá! É possível sim. Neste caso, você apenas precisa ajudar o código para definir a área de impressão de acordo com o que estiver selecionado na sua lista suspensa. Abaixo está um exemplo para você ajudar o código conforme a sua necessidade:
Obs: Neste exemplo, a lista suspensa está na célula A1. Conforme o valor selecionado na lista, eu defini os meus intervalos nomeados e imprimi logo em seguida.
Sub Imprimir()
On Error Resume Next
'Verifica se lista suspensa possui algum valor selecionado
If ActiveSheet.Range("A1") = "" Then
MsgBox "Selecione uma opção na lista"
Exit Sub
ElseIf ActiveCell = "Parte1" Then
ActiveSheet.PageSetup.PrintArea = "$A$5:$D$21"
ActiveWindow.SelectedSheets.PrintOut copies:=1
ElseIf ActiveCell = "Parte2" Then
ActiveSheet.PageSetup.PrintArea = "$F$5:$J$21"
ActiveWindow.SelectedSheets.PrintOut copies:=1
ElseIf ActiveCell = "Parte3" Then
ActiveSheet.PageSetup.PrintArea = "$L$5:$P$21"
ActiveWindow.SelectedSheets.PrintOut copies:=1
ElseIf ActiveCell = "Parte4" Then
ActiveSheet.PageSetup.PrintArea = "$R$5:$V$21"
ActiveWindow.SelectedSheets.PrintOut copies:=1
End If
End Sub
No caso, eu faria a impressão por meio de uma lista suspensa, e não de uma caixa de seleção isso?
No exemplo que citei funcionará para lista suspensa. Mas também é possível ajustá-lo para uma caixa de seleção.
como faz se em vez de retrato eu quero imprimir em paisagem?
Configure a impressão. Acesse a guia Arquivo > Imprimir e altere para o modo Paisagem.
Alguém poderia me ajudar? eu gostaria que imprimisse apenas até ás células preenchida, irei copiar informações de outra planilha na coluna A, NA coluna B repetira os mesmo números da coluna A porém em forma de códigos de barras, depois disso é só clicar em um botão que mandará de forma automática imprimir apenas os códigos, porém eu isso tem que ser de forma sistematizada ou seja tenho que dizer para o excel que imprima apenas os conteúdos reenchidos na coluna B...
Você pode usar um código conforme abaixo. Ele seleciona a célula B1 e faz a seleção até a última linha preenchida. A seleção é interrompida quando encontra a primeira célula em branco na coluna B.
Depois é feito a impressão da seleção.
Sub Macro1()
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.RangeSelection.PrintOut
End Sub
@@ExcelEasyBR tem algum vídeo que explica a aplicação desse código?
Bom dia, amigo.
Eu fiz uma Macro parecida com a sua, porem eu adicionei o opção de visualização antes de imprimir, mas quando eu coloco o excel em tela cheia desaparece o botão de impressão na tela de visualização.
Você saberia me informar como consigo resolver isso?
Amigo e para imprimir dados de uma outra aba?
Basta vc selecionar a planilha desejada e executar o comando de impressão: Dá uma olhada neste artigo: exceleasy.com.br/como-manipular-planilhas-do-excel-com-o-vba/
E qual seria o comando pra inves de imprimir criar um botão pra salvar direto em PDF e também padronizar como tem que sair na hora de salvar Exemplo (nome cliente - placa do veículo - modelo do carro) porque essa sequência é que a planilha é de ordem de serviço que vai ser usada em oficina entendeu, pode me ajudar?
Por gentileza, veja os exemplos mostrados neste artigo:
exceleasy.com.br/macro-para-exportar-pdf/
Acredito que possa te ajudar
Queria um botão desse pra gerar PDF :/ alguém sabe o código?
Uma opção rápida é gravar uma macro. Veja o passo a passo neste artigo: exceleasy.com.br/macro-para-exportar-pdf/
Gostaria dessa opção para o google planilhas. Se possível para gerar download do pdf.
Bem que podia deixar os codigos na descrição do video, mas valeu.
São apenas duas linhas amigo!
Segue o código
Sub Imprimir()
ActiveSheet.PageSetup.PrintArea = "$A$2:$E$30"
ActiveWindow.SelectedSheets.PrintOut copies:=1
End Sub
@@ExcelEasyBR consegui fazer com seu comentário, não estava sabendo deixar a palavra" SUB" em azul
@@ExcelEasyBR achei 😁
GOSTARIA DE SELECIONAR OUTRAS PLANILHAS TAMBÉM! COMO SERIA A AREA DE SELEÇAO ? EX : + (PLANILHA1; "$A$1:$G$10"; PLANILHA2; "$A$1:$G$10")
EM UM UNICO BOTAO IMPRIMIR VARIAS AREAS SELECIONADAS DE VARIAS PLANILHAS SELECIONADAS DE ABAS DIFERENTES