Como imprimir uma folha de cálculo no Excel sem linhas em branco?
Ao imprimir uma folha de cálculo, as linhas em branco também são impressas. Alguns utilizadores do Excel preferem imprimir a folha sem essas linhas em branco, de forma a compactar os dados e poupar papel. Mas como imprimir uma folha de cálculo sem linhas em branco no Excel? Este artigo apresenta-lhe dois métodos.
Ocultar Linhas em branco antes de imprimir com código VBA
Excluir linhas em branco antes de imprimir com Kutools para Excel
Ocultar Linhas em branco antes de imprimir com código VBA
Antes de imprimir a folha de cálculo, pode executar o código VBA abaixo para ocultar as linhas em branco num intervalo limitado. Siga estes passos:
1. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela do Módulo.
Código VBA: Ocultar Linhas em branco Intervalo Selecionado
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub3. Prima a tecla F5 para executar o código. Em seguida, aparece uma caixa de diálogo Kutools para Excel. Selecione o intervalo com linhas em branco que não pretende imprimir e, depois, clique no botão OK.
De seguida, todas as linhas em branco do intervalo selecionado são imediatamente ocultadas. Pode agora imprimir a folha de cálculo sem linhas em branco.
Nota: Após a impressão, pode tornar novamente visíveis estas linhas em branco com o seguinte código VBA.
Código VBA: Tornar visíveis todos os Linhas em branco Intervalo Selecionado
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End SubExcluir linhas em branco antes de imprimir com Kutools para Excel
Se pretender imprimir uma folha de cálculo sem linhas em branco, recomendamos que elimine todas as linhas em branco com a utilidade Excluir linhas em branco do Kutools para Excel, podendo depois imprimir manualmente a folha de cálculo.
1. Clique em Kutools > Eliminar > Excluir linhas em branco e, de seguida, escolha Intervalo Selecionado, Planilha Ativa, Planilhas Selecionadas ou Em Todas as Folhas, consoante as suas necessidades. Veja a imagem:
Nota: Para eliminar linhas em branco num intervalo, selecione primeiro esse intervalo e, em seguida, aplique a função.
2. Em seguida, surge uma caixa de diálogo a indicar quantas linhas foram eliminadas; clique no botão OK.
Agora, todas as linhas em branco foram eliminadas. Pode começar a imprimir a sua folha de cálculo.
Nota: Esta utilidade suporta Anular com Ctrl+Z.
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos