¿Cómo imprimir una hoja de cálculo en Excel sin filas en blanco?
Al imprimir una hoja de cálculo, las filas en blanco también se imprimen. Muchos usuarios de Excel prefieren imprimir la hoja 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 le ofrece dos métodos.
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, puede ejecutar el siguiente código VBA para ocultar las filas en blanco dentro de un rango limitado. Siga estos pasos:
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el siguiente código VBA en la ventana del módulo.
Código VBA: Ocultar Filas en blanco 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 Sub3. Pulse la tecla F5 para ejecutar el código. A continuación, aparecerá un cuadro de diálogo Kutools para Excel; seleccione el rango con filas en blanco que no desea imprimir y, después, haga clic en el botón Aceptar.
Entonces, todas las filas en blanco del rango seleccionado se ocultan inmediatamente. Ahora puede imprimir la hoja de cálculo sin filas en blanco.
Nota: Tras imprimir, puede volver a mostrar estas filas en blanco con el siguiente código VBA.
Código VBA: Mostrar todas las Filas en blanco 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 SubEliminar filas en blanco antes de imprimir con Kutools para Excel
Si desea imprimir una hoja de cálculo sin filas en blanco, le recomendamos eliminar todas las filas vacías con la utilidad Eliminar filas en blanco de Kutools para Excel. ¡Así podrá imprimir la hoja manualmente sin ningún problema!
1. Haga clic en Kutools > Eliminar > Eliminar filas en blanco y, a continuación, elija Rango seleccionado, Hoja de cálculo activa, Hojas de cálculo seleccionadas o En todas las hojas, según sus necesidades. Vea la captura de pantalla:
Nota: Para eliminar filas en blanco de un rango, selecciónelo primero y, a continuación, aplique la función.
2. A continuación, aparecerá un cuadro de diálogo indicando cuántas filas se han eliminado; haga clic en el botón Aceptar.
Ahora se han eliminado todas las filas en blanco. Ya puede imprimir su hoja de cálculo.
Nota: Esta utilidad admite la función Deshacer ()Ctrl+Z).
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos