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

Aquí hablaré sobre cómo imprimir varias filas seleccionadas en una sola página con VBA en Excel. Por favor, sigue los siguientes pasos:

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

2. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en la nueva ventana del Módulo que se abre.

VBA: Imprimir varias filas seleccionadas en una sola 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. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar este VBA.

4. Ahora aparecerá un cuadro de diálogo de Kutools para Excel. Por favor, selecciona varias filas que deseas imprimir y haz clic en el botón Aceptar para imprimirlas.

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

Si podemos copiar estas filas no consecutivas y pegarlas como un rango consecutivo en otra hoja de cálculo, podemos imprimirlas fácilmente en una sola página. Este método presentará la utilidad Copiar Rangos de Kutools para Excel para manejarlo.

1. Crea una nueva hoja de cálculo, luego selecciona las filas que deseas imprimir desde tu tabla y haz clic en Kutools > Rango > Copiar Rangos.

Nota: Manteniendo presionada la tecla Ctrl, puedes seleccionar varias filas inconsecutivas al mismo tiempo.

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

Nota: Las opciones Incluir altura de fila e Incluir ancho de columna copiarán las alturas de fila y anchos de columna de los rangos seleccionados y los pegarán en el rango de destino.

3. Selecciona la Celda A1 en la hoja de cálculo recién creada y haz clic en el botón Aceptar.

4. Permanece en la hoja de cálculo de destino y haz clic en Kutools > Eliminar > Eliminar Filas en Blanco > Hoja de cálculo activa.

Luego aparecerá un cuadro de diálogo que te mostrará cuántas filas se han eliminado. Simplemente ciérralo.

5. Haz clic en Archivo (o botón Office) > Imprimir para imprimir estas filas.

En realidad, Kutools para Excel ha diseñado el Asistente para Imprimir Múltiples Selecciones para imprimir varios rangos juntos en Excel.

1. Haz clic en Kutools Plus > Imprimir > Asistente para Imprimir Múltiples Selecciones para abrir el Asistente para Imprimir Múltiples Selecciones.

2. En el Asistente para Imprimir Múltiples Selecciones que se abre, haz clic Agregar botón  para agregar las filas que deseas imprimir juntas, y haz clic en el Finalizar botón.

Notas:

(1) Después de hacer clic en el Agregar botón , puedes seleccionar múltiples rangos no consecutivos en una hoja de cálculo manteniendo presionada la Ctrl tecla y luego seleccionándolos uno por uno;

(2) Para eliminar un rango/fila de la Rangos para imprimir lista, simplemente selecciona este rango/fila y haz clic en el Eliminar botón.

(3) Esta utilidad no admite la impresión de filas y columnas completas, como la fila completa $4:$4 o la columna completa $B:$B.

3. Las filas/rangos seleccionados se han pegado como imágenes vinculadas en una nueva hoja de cálculo. Continúa haciendo clic en Archivo (o botón Office) > Imprimir para imprimirlo.