Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como imprimir páginas ou planilhas específicas com base no valor de uma célula no Excel?

Author Siluvia Last modified

Você já precisou imprimir páginas ou planilhas específicas no Excel com base no valor de uma célula? Seja imprimindo um número de página específico ou uma planilha inteira quando uma condição for atendida, este guia oferece métodos passo a passo para realizar isso.

Imprimir uma página específica com base no valor da célula usando código VBA
Imprimir uma planilha específica com base no valor da célula usando código VBA

Imprimir uma página específica com base no valor da célula usando código VBA

Por exemplo, você pode querer que uma determinada página, como a página 1 da planilha atual, seja impressa automaticamente ao digitar o número da página 1 na célula A1 da planilha atual. Você pode fazer o seguinte para alcançar isso.

1. Selecione a célula que contém o número da página que deseja imprimir e, em seguida, pressione simultaneamente as teclas Alt e F11 para abrir a janela Microsoft Visual Basic for Applications. Depois clique em Inserir > Módulo.

2. Em seguida, a janela Microsoft Visual Basic for Applications será aberta, por favor copie e cole o seguinte código VBA na janela Código.

Código VBA: Imprimir página com base no valor da célula

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. Pressione a tecla F5 para executar o código. Na caixa de diálogo Kutools for Excel que aparecerá, clique no botão Sim para imprimir a página específica ou clique no botão Não para sair da caixa de diálogo se não quiser imprimir. Veja a captura de tela:

A screenshot of the Kutools for Excel dialog box for printing a specific page based on a cell value

A janela de visualização da página específica da planilha atual será aberta, por favor clique no botão Imprimir para iniciar a impressão.

A screenshot of the Print Preview window

Imprimir uma página específica com base no valor da célula usando código VBA

Suponha que você deseje imprimir a planilha ativa quando o valor na célula B2 desta planilha for igual ao número 1001. Você pode alcançar isso com o seguinte código VBA. Por favor, faça o seguinte.

1. Clique com o botão direito do mouse na Guia da Planilha que deseja imprimir com base no valor da célula e depois clique em Ver Código no menu de contexto.

2. Em seguida, a janela Microsoft Visual Basic for Applications será aberta, por favor copie e cole o seguinte código VBA na janela Código.

Código VBA: Imprimir planilha com base no valor da célula

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

A screenshot showing where to insert VBA code for printing based on a cell value in Excel

Observação: Você pode alterar a célula e o valor da célula no código conforme necessário.

3. Pressione Alt + Q para fechar a janela Microsoft Visual Basic for Applications.

Ao inserir o número 1001 na célula B2, uma caixa de diálogo Kutools for Excel aparecerá, por favor clique no botão Sim para iniciar a impressão. Ou clique no botão Não para sair da caixa de diálogo diretamente sem imprimir. Veja a captura de tela:

A screenshot of the Kutools for Excel dialog box for confirming worksheet printing based on cell value

Dica: Se você quiser imprimir diretamente páginas não consecutivas, como página 1, 6 e 9 na planilha atual, ou imprimir apenas todas as páginas pares ou ímpares, você pode experimentar o utilitário Imprimir Páginas Específicas do Kutools for Excel, conforme mostrado na captura de tela abaixo.

A screenshot of the Kutools for Excel Print Specified Pages utility for selective printing

Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora

Artigos relacionados:

Melhores Ferramentas de Produtividade para Office

🤖 Kutools AI Aide: Revolucione a análise de dados com: Execução Inteligente   |  Gerar Código  |  Criar Fórmulas Personalizadas  |  Analisar Dados e Gerar Gráficos  |  Chamar Funções Aprimoradas…
Recursos Populares: Localizar, Destacar ou Marcar Duplicatas   |  Excluir Linhas em Branco   |  Consolidar Colunas ou Células sem Perder Dados   |   Arredondar...
Super PROC: Procura por múltiplos critérios  |   Procura por múltiplos valores  |   Procura em várias planilhas   |   Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente Lista suspensa  |  Lista suspensa dependente  |  Lista suspensa com múltipla seleção ...
Gerenciador de Colunas: Adicionar número específico de colunas  | Mover Colunas  | Alternar status de visibilidade de Colunas ocultas |  Comparar Intervalos & Colunas...
Recursos em Destaque: Grade de foco   |  Visualização de Design  |  Barra de fórmulas aprimorada   |  Gerenciador de Pasta de trabalho & Planilha   |  Biblioteca de AutoTexto (Auto Text)   |  Selecionador de Data   |  Mesclar Dados   |  Criptografar/Descriptografar Células   |  Enviar Email por Lista   |  Super Filtro   |   Filtro Especial (filtrar negrito/itálico/tachado...) ...
Os 15 Principais Conjuntos de Ferramentas: 12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...)  | 50+ Tipos de Gráficos (Gráfico de Gantt, ...)  | 40+ Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...)  | 19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem pelo Caminho, ...)  | 12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...)  | 7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ...e muito mais
Use o Kutools no idioma de sua preferência – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 idiomas!

Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para acessar o recurso que você mais precisa...

Office Tab traz interface com abas para o Office e facilita muito seu trabalho

  • Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
  • Aumente sua produtividade em50% e economize centenas de cliques todos os dias!

Todos os complementos Kutools. Um instalador

O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.

Excel Word Outlook Tabs PowerPoint
  • Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Um instalador, uma licença — configuração em minutos (pronto para MSI)
  • Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
  • Avaliação completa por30 dias — sem registro e sem cartão de crédito
  • Melhor custo-benefício — economize comparado à compra individual de add-ins