Imprima por lotes múltiples selecciones (todas las áreas de impresión) en una página en Excel

Aquí hablaré sobre la impresión de varias filas seleccionadas en una página con VBA en Excel. Haz lo siguiente:

1. Prensa otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic en recuadro > Módulo, y luego pegue el siguiente código VBA en la nueva ventana del Módulo de apertura.

VBA: imprima 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. Prensa F5 o haga clic en el Ejecutar botón para ejecutar este VBA.

4. Ahora aparece un cuadro de diálogo Kutools for Excel. Seleccione varias filas que imprimirá y haga clic en el OK para imprimir estas filas.

Nota:: Sosteniendo el Ctrl , puede 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 trabajo, podemos imprimirlas fácilmente en una página. Este método presentará Kutools para Excel Copiar rangos utilidad para hacer frente a ella.

1. Cree una nueva hoja de trabajo, luego seleccione las filas que imprimirá de su tabla y haga clic en Kutools > Copiar rangos.

Nota:: Sosteniendo el Ctrl , puede seleccionar varias filas consecutivas al mismo tiempo.

2. En el cuadro de diálogo de apertura Copiar varios rangos, marque Todos opción, y haga clic en Ok

Nota:: Los Incluyendo la altura de la fila opción y Incluyendo el ancho de la columna Las opciones copiarán las alturas de fila y el ancho de columna de los rangos seleccionados y se pegarán en el rango de destino.

3. Seleccione la celda A1 en la nueva hoja de trabajo creada y haga clic en el OK Botón.

4. Permanezca en la hoja de trabajo de destino y haga clic en Kutools > Borrar > Eliminar filas en blanco > En hoja activa.

Y luego aparece un cuadro de diálogo que muestra cuántas filas se han eliminado. Solo ciérralo.

5. Haga clic en el Declarar impuestos (o Botón de oficina)> Imprimir para imprimir estas filas.

En realidad, Kutools para diseños de Excel Asistente de impresión de selección múltiple para imprimir varios rangos juntos en Excel.

1. Hacer clic en Empresa > Impresión > Asistente de impresión de selección múltiple para abrir el Asistente de impresión de selección múltiple.

2. En el Asistente de impresión de selección múltiple de apertura, haga clic en Añada .  para agregar filas que imprimirán juntas, y haga clic en el Terminar

Notas

(1) Después de hacer clic en el Añada . , puede seleccionar varios rangos no consecutivos en una hoja de trabajo manteniendo presionada la tecla Ctrl clave y luego seleccionándolos uno por uno;

(2) Para eliminar un rango / fila del Rangos para imprimir lista, simplemente seleccione este rango / fila y haga clic en el Borrar ..

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

3. Las filas / rangos seleccionados se han pegado como imágenes vinculadas en una nueva hoja de trabajo. Adelante, haga clic Declarar impuestos (o Botón de oficina)> Imprimir para imprimirlo.