Como evitar que linhas em branco sejam impressas no Excel?

Se a sua planilha do Excel contém linhas em branco, elas geralmente serão impressas junto com o restante dos seus dados, desperdiçando papel e espaço. Para evitar isso, você pode usar um código VBA para ocultar automaticamente as linhas vazias antes da impressão. Este guia mostrará como configurar e usar esse código para imprimir apenas as linhas com dados, garantindo uma impressão mais limpa e eficiente.

Excluir linhas em branco ao imprimir uma planilha com código VBA

Excluir linhas em branco ao imprimir uma planilha com código VBA

Com o seguinte código VBA, você pode imprimir a planilha sem as linhas em branco; siga estas instruções:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Impedir linhas em branco ao imprimir:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. Em seguida, pressione a tecla F5 para executar este código. Uma caixa de diálogo aparecerá, pedindo para você selecionar o intervalo de dados que deseja imprimir. Veja a captura de tela:

4. Depois clique em OK, e o intervalo selecionado será impresso imediatamente sem as linhas em branco.