¿Cómo imprimir una hoja de cálculo sin filas en blanco en Excel?

Al imprimir una hoja de cálculo, también se imprimirán las filas en blanco. Algunos usuarios de Excel prefieren imprimir la hoja de cálculo sin filas en blanco para compactar los datos y ahorrar papel. Pero, ¿cómo imprimir una hoja de cálculo sin filas en blanco en Excel? Este artículo proporciona dos métodos para ti.

Ocultar filas en blanco antes de imprimir con código VBA
Eliminar filas en blanco antes de imprimir con Kutools para Excel

Ocultar filas en blanco antes de imprimir con código VBA

Antes de imprimir la hoja de cálculo, puedes ejecutar el siguiente código VBA para ocultar las filas en blanco en un rango especificado. Por favor, sigue estos pasos.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Application.

2. En la ventana de Microsoft Visual Basic for Application, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Ocultar filas en blanco en el rango seleccionado

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. Presiona la tecla F5 para ejecutar el código, luego aparecerá un cuadro de diálogo de Kutools para Excel, por favor selecciona el rango con las filas en blanco que no deseas imprimir y haz clic en el botón Aceptar.

Luego, todas las filas en blanco en el rango seleccionado se ocultan inmediatamente. Después, puedes comenzar a imprimir la hoja de cálculo sin filas en blanco.

Nota: Después de imprimir, puedes volver a mostrar estas filas en blanco con el siguiente código VBA.

Código VBA: Mostrar todas las filas en blanco en el rango seleccionado

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

Eliminar filas en blanco antes de imprimir con Kutools para Excel

Si deseas imprimir una hoja de cálculo sin filas en blanco, te recomendamos eliminar todas las filas en blanco con la utilidad Eliminar Filas en Blanco de Kutools para Excel, y luego puedes imprimir la hoja de cálculo manualmente.

1. Haz clic en Kutools > Eliminar > Eliminar Filas en Blanco > En Rango Seleccionado/En Hoja Activa/En Hojas Seleccionadas/En Todas las Hojas según tus necesidades. Ver captura de pantalla:

Nota: Para eliminar filas en blanco en un rango, selecciona primero este rango y luego aplica la función.

2. Luego aparece un cuadro de diálogo indicando cuántas filas se han eliminado, haz clic en el botón Aceptar.

Ahora se han eliminado todas las filas en blanco. Puedes comenzar a imprimir tu hoja de cálculo.

Nota: Esta utilidad admite Deshacer Ctrl + Z.