Como imprimir uma planilha sem linhas em branco no Excel?

Ao imprimir uma planilha, as linhas em branco também serão impressas. Alguns usuários do Excel preferem imprimir a planilha sem as linhas em branco para compactar os dados e economizar papel. Mas como imprimir uma planilha sem linhas em branco no Excel? Este artigo oferece dois métodos para você.

Ocultar linhas em branco antes de imprimir com código VBA
Excluir linhas em branco antes de imprimir com o Kutools para Excel

Ocultar linhas em branco antes de imprimir com código VBA

Antes de imprimir a planilha, você pode executar o seguinte código VBA para ocultar as linhas em branco em um intervalo específico. Siga os passos abaixo.

1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código VBA na janela Módulo.

Código VBA: Ocultar linhas em branco no 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 Sub

3. Pressione a tecla F5 para executar o código, então uma caixa de diálogo do Kutools para Excel aparecerá. Por favor, selecione o intervalo com as linhas em branco que você não deseja imprimir e clique no botão OK.

Todas as linhas em branco no intervalo selecionado serão ocultadas imediatamente. Depois disso, você pode começar a imprimir a planilha sem as linhas em branco.

Observação: Após a impressão, você pode exibir novamente essas linhas em branco com o seguinte código VBA.

Código VBA: Exibir todas as linhas em branco no 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 Sub

Excluir linhas em branco antes de imprimir com o Kutools para Excel

Se você deseja imprimir uma planilha sem linhas em branco, recomendamos que você exclua todas as linhas em branco utilizando a ferramenta Excluir Linhas em Branco do Kutools para Excel, e depois poderá imprimir a planilha manualmente.

1. Clique em Kutools > Excluir > Excluir Linhas em Branco > No Intervalo Selecionado/Na Planilha Ativa/Nas Planilhas Selecionadas/Em Todas as Planilhas, dependendo das suas necessidades. Veja a captura de tela:

Observação: Para excluir linhas em branco em um intervalo, selecione primeiro esse intervalo e depois aplique a função.

2. Uma caixa de diálogo aparecerá informando quantas linhas foram excluídas. Clique no botão OK.

Agora, todas as linhas em branco foram excluídas. Você pode começar a imprimir sua planilha.

Observação: Esta utilidade suporta Desfazer Ctrl + Z.