¿Cómo imprimir varias filas seleccionadas en una sola página en Excel?

A continuación, le explico cómo imprimir varias filas seleccionadas en una sola página mediante VBA en Excel. Siga estos pasos:

1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y, a continuación, pegue el siguiente código VBA en la nueva ventana de módulo que se abre.

VBA: Imprimir varias filas seleccionadas en una página en Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar este código VBA.

4. Ahora aparece un cuadro de diálogo de Kutools para Excel. Selecciona las filas múltiples que deseas imprimir y haz clic en el botón Aceptar para imprimir dichas filas.

Nota: Manteniendo pulsada la tecla Ctrl, puede seleccionar varias filas no adyacentes al mismo tiempo.

Si pudiéramos copiar estas filas no consecutivas y pegarlas como un rango consecutivo en otra hoja de cálculo, ¡podríamos imprimirlas fácilmente en una sola página! Este método aprovecha la utilidad Copiar Rangos de Kutools para Excel para gestionar esta tarea.

1. Cree una hoja de cálculo nueva, seleccione a continuación las filas que desea imprimir de su tabla y haga clic en Kutools > Rango > Copiar Rangos.

Nota: Manteniendo pulsada la tecla Ctrl, puede seleccionar varias filas no consecutivas al mismo tiempo.

2. En el cuadro de diálogo Copiar Múltiples Rangos que se abre, active la opción Todo y haga clic en el botón Aceptar.

Nota: La opción Incluir Altura de Fila y la opción Incluir Ancho de Columna copiarán la altura de fila y el ancho de columna del rango seleccionado y los pegarán en el rango de destino.

3. Seleccione la celda A1 en la nueva hoja de cálculo creada y haga clic en el botón Aceptar.

4. Permanezca en la hoja de destino y haga clic en Kutools > Eliminar > Eliminar filas en blanco > Hoja de cálculo activa.

A continuación, aparecerá un cuadro de diálogo indicando cuántas filas se han eliminado; simplemente ciérrelo.

5. Haga clic en Archivo(o en el)botón de Office) > Imprimir para imprimir dichas filas.

De hecho, Kutools para Excel ha diseñado el Asistente para imprimir selecciones múltiples para imprimir varios rangos juntos en Excel.

1. Haga clic en KUTOOLS PLUS > Impresión > Asistente para imprimir selecciones múltiples para abrir el Asistente para imprimir selecciones múltiples.

2. En el Asistente para imprimir selecciones múltiples que se abre, haga clic en el botón Agregar para añadir varias filas que desee imprimir conjuntamente y, a continuación, haga clic en el botón Finalizar.

Notas:

(1) Tras hacer clic en el botón Agregar, puede seleccionar varios rangos no consecutivos en una misma hoja manteniendo pulsada la tecla Ctrly seleccionándolos uno a uno;

(2) Para eliminar un rango o fila de la lista Rangos a imprimir, basta con seleccionar dicho rango o fila y hacer clic en el botón Eliminar.

(3) Esta utilidad no permite imprimir filas ni columnas completas, como por ejemplo la fila completa $4:$4 o la columna completa $B:$B.

3. Las filas o rangos seleccionados se han pegado como imágenes vinculadas en una hoja de cálculo nueva. A continuación, haga clic en Archivo(o en el)botón de Office) > Imprimir para imprimirlo.