Como imprimir todas as planilhas exceto uma planilha específica no Excel?
No funcionamento do Excel, a impressão de planilhas pode ser o trabalho diário geral para você. No entanto, você já tentou imprimir todas as folhas, exceto uma folha específica? Por exemplo, uma pasta de trabalho aqui, você deseja imprimir todas as planilhas, exceto a planilha chamada “Total”, como você pode lidar com isso rapidamente?
Imprima todas as folhas, exceto uma com VBA
Imprima certas páginas que você precisa com Kutools for Excel
Imprima todas as folhas, exceto uma com VBA
Aqui está um código VBA que pode imprimir todas as folhas, exceto uma folha específica.
1. Ative a pasta de trabalho que deseja imprimir nas planilhas e pressione Alt + F11 chave para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > móduloe, cole o código abaixo no script do módulo.
VBA: Imprimir folha, exceto um
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
Nota: No código, o Total in Se xWs.Name <> "Total" então e MsgBox "O total da folha não foi impresso" é o nome da folha que você não deseja imprimir, e A1: B15 in .PrintArea = "A1: B15" é o intervalo que você deseja imprimir de cada folha. Você pode alterá-los conforme necessário.
3. Pressione F5 para executar o código e, em seguida, uma caixa de diálogo é exibida para lembrá-lo de que a planilha específica não foi impressa. Veja a imagem:
4. Clique OK para fechar a caixa de diálogo.
Imprima certas páginas que você precisa com Kutools for Excel
Se você quiser apenas imprimir apenas páginas pares ou ímpares, ou páginas específicas de uma folha, você pode aplicar Kutools for Excel'S Imprimir páginas especificadas utilitário que pode lhe fazer um favor rapidamente.
| Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalar Kutools for Excel, faça como abaixo :(Download grátis Kutools for Excel Agora!)
1. Ative a folha na qual deseja imprimir certas páginas, clique Kutools Plus > Impressão > Imprimir páginas especificadas. Veja a imagem:
2. Em seguida, no Imprimir páginas especificadas caixa de diálogo, verifique as opções com base na sua necessidade de impressão. Veja a imagem:
3. Clique Impressão para imprimir as páginas.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for Excel Oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
