Saltar al contenido principal

¿Cómo imprimir múltiples selecciones en una página en Excel?

Si tiene una hoja de trabajo grande que contiene muchos datos, y ahora, desea imprimir algunos rangos seleccionados que no son continuos en una página, para que pueda ahorrar mucho papel. Excel proporciona Establecer área de impresión función para que podamos imprimir múltiples selecciones a la vez, pero, cada rango seleccionado se imprimirá en una página por separado. Este artículo hablará sobre cómo imprimir múltiples selecciones no continuas en una página.

Imprima múltiples selecciones de una hoja de trabajo en una página con código VBA

Imprima múltiples selecciones de una o varias hojas de trabajo en una página con Kutools para Excel


Imprima múltiples selecciones de una hoja de trabajo en una página con código VBA

Para imprimir múltiples selecciones no contiguas seleccionadas de una hoja de trabajo en una página, el siguiente código VBA puede ayudarlo, haga lo siguiente:

1. prensa Ctrl para seleccionar los rangos que desea imprimir.

2. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

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

Código VBA: imprima múltiples selecciones en una página

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Entonces presione F5 para ejecutar este código, y los rangos seleccionados se imprimirán de una vez y se imprimirán en una sola página.


Imprima múltiples selecciones de una o varias hojas de trabajo en una página con Kutools para Excel

El código anterior solo puede ayudarlo a imprimir los rangos seleccionados de una hoja de trabajo, si desea que varias selecciones de varias hojas de trabajo se impriman en una página, el código anterior no funcionará. No se preocupe, aquí, puedo presentarle una herramienta útil: Kutools for Excel, Con su Asistente de impresión de selección múltiple utilidad, puede imprimir las selecciones de una hoja de trabajo o varias hojas de trabajo en una página a la vez.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días

Después de instalar Kutools for Excel, siga los siguientes pasos:

1. Hacer clic Kutools Más > Impresión > Asistente de impresión de selección múltiple, ver captura de pantalla:

2. En la Asistente de impresión de selección múltiple, haga clicdoc agregar botón para seleccionar y agregar el rango que desea imprimir en el cuadro de lista Rangos para imprimir uno por uno (puede seleccionar los rangos de una hoja de trabajo o varias hojas de trabajo), haga clic en botón de eliminar doc El botón puede eliminar los rangos que no necesita, vea la captura de pantalla:

doc imprimir selecciones múltiples 2

3. Después de agregar las selecciones en el cuadro de lista, haga clic en Siguiente >> para ir al paso 2 del asistente, especifique la configuración de impresión que necesite y puede agregar una fila en blanco entre los rangos seleccionados marcando Agregar una fila en blanco entre rangos opción, ver captura de pantalla:

doc imprimir selecciones múltiples 3

4. Luego sigue haciendo clic Siguiente >> Pero, en el paso 3 del asistente, especifique la acción para la hoja de trabajo temporal, puede activar la hoja de trabajo pero no imprimir, imprima la hoja de trabajo y guárdela o imprima la hoja de trabajo y elimínela. Ver captura de pantalla:

doc imprimir selecciones múltiples 4

5. Hacer clic Acabado , todos los rangos seleccionados se han pegado en una nueva hoja de trabajo como objetos de imagen vinculados. Y puede arrastrarlos y reorganizarlos en la hoja de trabajo. Ver captura de pantalla:

doc imprimir selecciones múltiples 5

6. Cuando imprima esta nueva hoja de trabajo, los rangos se imprimirán en una sola página según lo necesite.

Haga clic para obtener más información sobre esta utilidad del Asistente de impresión de selección múltiple.

¡Descargue y pruebe Kutools para Excel ahora!


Demostración: imprima múltiples selecciones de una o varias hojas de trabajo en una página con Kutools para Excel

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to print selection area with multi print ? i means selection area i wan to print 10 times
This comment was minimized by the moderator on the site
I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined. This line is highlighted: Set xRng1 = xNewWs.Cells(xIndex, 1)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations