Configurar impresión 1 página en vertical y 1 en horizontal

Hola MM; con gusto:

• Seleccionar A1: I51,
  • ir a DISPOSICIÓN/PáginaImpr/Definir
  • ir a DISPOSICIÓN/Orientación/Vertical
• Seleccionar A52:P77,
  • ir a DISPOSICIÓN/PáginaImpr/Añadir a la zona de impresión
  • ir a DISPOSICIÓN/Orientación/Horizontales

--
¡Qué bien, la jubilación! Sobre todo en las Antillas...
Raymond (INSA, AFPA)

Hola
Gracias por tomarte el tiempo de responderme,
He intentado pero el problema no se ha resuelto porque cuando inicio la impresión solo sale 1 de las 2 hojas.
Tengo la impresión de que el hecho de seleccionar 1 área de impresión (formato horizontal) anula la segunda área de impresión (formato vertical)

... y sin embargo !

https://www.cjoint.com/c/LBybbWhrO7Z

Deberías probar con otra computadora ...
o con otra impresora ...
o con otro usuario ...

Tu "impresión" es infundada !

--
¡Está bien, la jubilación! Sobre todo en las Antillas ...
Raymond (INSA, AFPA)

Hola
Lo siento, quizás no me expresé bien
Cuando hago la manipulación, aparece correctamente como a usted en la pantalla, pero el problema es que cuando voy a imprimir y miro la vista previa de impresión, mis 2 páginas están en horizontal, mientras que quiero que la página 1 salga en vertical y la 2 en horizontal.
Así que en el documento mismo aparece como quiero, es decir, que mi página 1 está bien en vertical y la página 2 está bien en horizontal, como en su documento, pero al imprimir, las dos páginas están en horizontal.
Página 1 en la impresión:
https://www.cjoint.com/c/LByjpM5B6NP
Página 2 en la impresión:
https://www.cjoint.com/c/LByjqet0zHP

Hola a todos,

con una pequeña macro (aceptar al abrir):

Sub imprime() ' imprimir en vertical y luego en horizontal With ActiveSheet.PageSetup .PrintArea = "$A$1:$I$51" .Orientation = xlPortrait ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False .PrintArea = "$A$54:$P$77" .Orientation = xlLandscape ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False End With End Sub

https://www.cjoint.com/c/LBykugLSmL4
eric

--
Intentando continuamente, al final se logra.
Así que cuanto más falla, más posibilidades tenemos de que funcione. (los Shadoks)
Además de dar las gracias (sí, sí, ¡esto se hace!), pensar en marcarlo como resuelto. Gracias

¿a doble cara?
Ah, pues no, no es una impresión, son 2.

¿configurar por defecto la impresión sistemática en color?
Te toca configurar la impresora en sus ajustes.
Hacerlo a través de Excel es una misión casi imposible.

¿copiar el código en algún lugar?
Como trabajo en la hoja activa, lo mejor es pegarlo en un módulo estándar y añadir un botón Imprimir en tu hoja conectado a esta macro.
Si varias hojas están involucradas, tendrás que adaptarlo para pasarle como parámetros los rangos a imprimir y en qué formato.
Alt+F11 para abrir el editor VBE
Haz clic derecho en el proyecto de tu libro (lista a la izquierda) y 'Insertar / Módulo'
Pega el código
Añade el botón y conéctalo a la macro
eric

--
Intentando continuamente, al final se logra.
Así que cuanto más falla, más posibilidades hay de que funcione. (los Shadoks)
Además de dar las gracias (¡sí sí, se hace!), piensa en marcarlo como resuelto. Gracias

Muchas gracias por tu ayuda :)
Buen fin de semana

A la límite puedes insertar un msgbox entre las dos hojas para permitirte hacer un recto-verso manual al dar la vuelta a la hoja.

--
Intentando continuamente, al final se logra.
Por lo tanto, cuanto más falla, más posibilidades tenemos de que funcione. (los Shadoks)
Además de dar las gracias (sí, sí, ¡se hace!), piensa en marcar como resuelto. Gracias.

Gracias por tu ayuda.