Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

Cómo detener filas en blanco al imprimir la hoja de trabajo?

Si hay múltiples filas en blanco en su hoja de trabajo, normalmente, cuando imprima la hoja, también se imprimirán las filas en blanco. Para imprimir la hoja de trabajo ignorando las filas en blanco puede guardar documentos para nosotros, en este caso, ¿cómo podría detener las filas en blanco al imprimir una hoja de trabajo?

Detener filas en blanco al imprimir la hoja de cálculo con el código VBA

Detener las filas en blanco al imprimir la hoja de trabajo al eliminar las filas en blanco a la vez


flecha azul burbuja derecha Detener filas en blanco al imprimir la hoja de cálculo con el código VBA


Con el siguiente código VBA, puede imprimir la hoja de trabajo sin filas en blanco, por favor haga lo siguiente:

1. Mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: pare las filas en blanco al imprimir:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice 20160704
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. Entonces presione F5 tecla para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione el rango de datos que desea imprimir, vea la captura de pantalla:

impresión de documentos sin filas en blanco 3

4. Y luego haz clic OK, y su rango seleccionado ha sido impreso a la vez sin las filas en blanco.


flecha azul burbuja derecha Detener las filas en blanco al imprimir la hoja de trabajo al eliminar las filas en blanco a la vez

Si las filas en blanco son inútiles para usted, puede eliminar todas las filas en blanco al principio y luego imprimir la hoja de trabajo como lo necesite. Con Kutools for Excel, Eliminar filas en blanco función, puede eliminar rápidamente las filas en blanco de una selección, hoja de cálculo o libro de trabajo según lo necesite.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de datos que desea eliminar las filas en blanco, y luego haga clic Kutools > Borrar > Eliminar filas en blanco > En el rango seleccionado, mira la captura de pantalla:

impresión de documentos sin filas en blanco 1

2. Y aparecerá un cuadro de aviso para recordarle cuántas filas en blanco se eliminaron en una selección.

impresión de documentos sin filas en blanco 2

3. Después de eliminar las filas en blanco, puede imprimir la hoja de trabajo.

Haga clic en Descargar gratis Kutools para Excel ahora!



Excel herramientas de productividad

Kutools para Excel - La mejor herramienta de productividad de Office

  • Trae las características avanzadas y potentes de 300 a Excel, que le permiten hacer más inteligente, más rápido y mejor.
  • Ya no es necesario memorizar fórmulas y códigos de VBA, dale un descanso a tu cerebro de ahora en adelante.
  • Conviértase en un experto en Excel en minutos 3. Las operaciones complicadas y repetidas se pueden realizar en segundos.
  • Reduzca miles de operaciones de teclado y mouse todos los días, despídase ahora de las enfermedades profesionales.
  • 110,000 personas altamente efectivas y 300 + elección de compañías de renombre mundial.
  • 60-day completo de prueba gratuita de características. Garantías de devolución del dinero de 60-day. 2 años de actualización y soporte gratis.

Pestaña de Office: trae la interfaz de pestañas a Office, facilita mucho su trabajo.

  • 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 tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.