Como imprimir todas as planilhas, exceto uma específica no Excel?
Ao trabalhar no Excel, imprimir várias planilhas é uma tarefa comum. Mas e se você precisar imprimir todas as planilhas de uma pasta de trabalho, exceto uma específica? Por exemplo, você pode querer imprimir todas as planilhas, exceto a chamada “Total”. Neste guia, mostraremos dois métodos para excluir rapidamente uma planilha da sua impressão.
Imprimir todas as planilhas exceto uma com VBA
Imprima as páginas desejadas com o Kutools para Excel
Imprimir todas as planilhas exceto uma com VBA
Aqui está um código VBA que pode imprimir todas as planilhas, exceto uma específica.
1. Ative a pasta de trabalho da qual deseja imprimir as planilhas e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, cole o código abaixo no script do Módulo.
VBA: Imprimir Planilha exceto uma
Sub printsheets() 'UpdatebyExtendoffice20161031 Dim xWs As Worksheet Application.ScreenUpdating = False For Each xWs In ThisWorkbook.Worksheets If xWs.Visible = True Then If xWs.Name <> "Total" Then With xWs.PageSetup .PrintArea = "A1:B15" ' USE YOUR PRINTAREA .Zoom = False .FitToPagesTall = 1 .FitToPagesWide = 1 End With xWs.PrintOut End If End If Next xWs Application.ScreenUpdating = False MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel" End Sub
Observação: No código, o Total em If xWs.Name <> "Total" Then e MsgBox "Sheet Total have not been printed" é o nome da planilha que você não deseja imprimir, e A1:B15 em .PrintArea = "A1:B15" é o intervalo que você deseja imprimir em cada planilha. Você pode alterá-los conforme necessário.
3. Pressione F5 para executar o código e, em seguida, uma caixa de diálogo aparecerá para lembrá-lo de que a planilha específica não foi impressa. Veja a captura de tela:
4. Clique em OK para fechar a caixa de diálogo.
Imprima as páginas desejadas com o Kutools para Excel
Se você quiser imprimir apenas páginas pares ou ímpares, ou páginas específicas de uma planilha, pode aplicar o utilitário Imprimir Páginas Específicas do Kutools para Excel, que pode ajudá-lo rapidamente.
1. Ative a planilha na qual deseja imprimir certas páginas, clique em Kutools Plus > Impressão > Imprimir Páginas Específicas. Veja a captura de tela:
2. Em seguida, na caixa de diálogo Imprimir Páginas Específicas marque as opções com base nas suas necessidades de impressão. Veja a captura de tela:
3. Clique em Imprimir para imprimir as páginas.
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Melhores Ferramentas de Produtividade para Office
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.
- 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