¿Cómo evitar que se impriman filas en blanco en Excel?

Si tu hoja de cálculo de Excel contiene filas en blanco, normalmente se imprimirán junto con el resto de tus datos, lo que desperdicia papel y espacio. Para evitar esto, puedes usar un código VBA para ocultar automáticamente las filas vacías antes de imprimir. Esta guía te mostrará cómo configurar y usar este código para imprimir solo las filas con datos, asegurando una impresión más limpia y eficiente.

Excluir filas en blanco al imprimir una hoja de cálculo con código VBA

Excluir filas en blanco al imprimir una hoja de cálculo con código VBA

Con el siguiente código VBA, puedes imprimir la hoja de cálculo sin filas en blanco; por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Detener filas en blanco al 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. Luego presiona la tecla F5 para ejecutar este código. Aparecerá un cuadro de diálogo solicitándote que selecciones el rango de datos que deseas imprimir. Ver captura de pantalla:

4. Luego haz clic en Aceptar, y tu rango seleccionado se imprimirá de inmediato sin las filas en blanco.