¿Cómo imprimir una hoja de trabajo sin filas en blanco en Excel?
Al imprimir la hoja de trabajo, las filas en blanco también se imprimirán. Para algunos usuarios de Excel, tienden a imprimir hojas de trabajo sin filas en blanco para compactar los datos y guardar papeles. Pero cómo imprimir una hoja de trabajo sin filas en blanco en Excel. Este artículo le proporciona dos métodos.
Ocultar filas en blanco antes de imprimir con código VBA
Elimine 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 trabajo, puede ejecutar el siguiente código VBA para ocultar filas en blanco en un rango especificado. Haz lo siguiente.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Y luego copie y pegue debajo del código VBA en la ventana del Módulo.
Código de 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. presione el F5 clave para ejecutar el código, luego una Kutools for Excel aparece el cuadro de diálogo, seleccione el rango con filas en blanco que no desea imprimir, y luego haga clic en el OK del botón.
Luego, todas las filas en blanco en el rango seleccionado se ocultan inmediatamente. Luego, puede comenzar a imprimir la hoja de trabajo sin filas en blanco.
Note: Después de imprimir, puede mostrar estas filas en blanco con el siguiente código VBA.
Código de VBA: muestra 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
Elimine filas en blanco antes de imprimir con Kutools para Excel
Si desea imprimir la hoja de trabajo sin filas en blanco, le recomendamos que elimine todas las filas en blanco con el Eliminar filas en blanco utilidad de Kutools for Excely luego puede imprimir la hoja de trabajo manualmente.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Hacer clic en Kutools > Borrar > Eliminar filas en blanco > En rango seleccionado/En hoja activa/En hojas seleccionadas/En todas las hojas basado en sus necesidades. Ver captura de pantalla:
Note: Para eliminar filas en blanco en un rango, primero seleccione este rango y luego aplique la función.
2. A continuación, aparece un cuadro de diálogo para indicarle cuántas filas se han eliminado, haga clic en el OK del botón.
Ahora se eliminan todas las filas en blanco. Puede comenzar a imprimir su hoja de trabajo.
Note: Esta utilidad admite Deshacer Ctrl + Z.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!