Jump to content
Manuel TR

ANSWERED Macro establecer área de impresión variable

Recommended Posts

Hola a todos, si alguien me puede ayudar con lo siguiente:
Tengo una hoja con varias boletas de pago, la cual su rango es variable y lo que necesito es establecer el rango de impresión, tal como se muestra en el archivo adjunto.

Muchas gracias.

BOLETAS.xls

Share this post


Link to post
Share on other sites
Hace 1 hora, Gerson Pineda dijo:

Hola

Prueba asi


With Hoja6
    vuf = .Range("A" & .Rows.Count).End(xlUp).Row + 3
    .PageSetup.PrintArea = .Range("A3:H" & vuf).Address(, , , 1)
End With

 

Saludos 

Hola Gerson,

Gracias por responder, me explicare mejor, en la hoja que adjunto hay varias boletas las cuales deseo imprimir horizontalmente, es decir en cada hoja debe imprimirse 2 boletas una que seria la original y la otra una copia de la misma, es por eso que en al archivo que adjunto hay una boleta al costado de cada una, la cual se imprimirá por duplicado en cada hoja, mi problema es que como el rango de cada boleta es variable al momento de querer imprimir sale cortado, es decir no se ajusta en una hoja.

Gracias

Share this post


Link to post
Share on other sites
Hace 13 horas, Manuel TR dijo:

Tengo una hoja con varias boletas de pago, la cual su rango es variable y lo que necesito es establecer el rango de impresión, tal como se muestra en el archivo adjunto

  • (prácticamente) no es necesario definir una "área de impresión", excel detecta el "rango usado" al imprimir
  • la excepción es si acostumbras dejar "regadas" celdas con formatos (?)
  • si es el caso (al menos en tu muestra) => ELIMINA (filas y/ o columnas) y restablece el "rango usado"
  • una alternativa es grabando el archivo y otra es esta instrucción: activesheet.usedrange (p.ej. desde la ventana de inmediato)

además, si ya insertas un salto de página al inicio de cada "par de boletas"...
=> cual es el objetivo de mantener en blanco las filas 1 y 2 ???
- si es por algún logo, establécelas como títulos (filas en el extremo superior)

Share this post


Link to post
Share on other sites

Hola Héctor ,

Gracias por responder, me explicare mejor, en la hoja que adjunto hay varias boletas las cuales deseo imprimir horizontalmente, es decir en cada hoja debe imprimirse 2 boletas una que seria la original y la otra una copia de la misma, es por eso que en al archivo que adjunto hay una boleta al costado de cada una, la cual se imprimirá por duplicado en cada hoja, mi problema es que como el rango de cada boleta es variable al momento de querer imprimir sale cortado, es decir no se ajusta en una hoja.

No es necesario mantener en blanco la fila 1 y 2

Gracias

Share this post


Link to post
Share on other sites
Hace 22 minutos , Manuel TR dijo:

mi problema es que como el rango de cada boleta es variable al momento de querer imprimir sale cortado, es decir no se ajusta en una hoja.

precisamente, hice pruebas (printpreview) sobre tu adjunto después de haber eliminado las filas "sobrantes" al final (quizá por exceso de formatos ?) y eliminado el rango asignado al nombre de "área_de_impresión" y veo un total de 22 hojas "a imprimir" configuradas para tamaño A4 (dos boletas completas en cada hoja y de rangos variables -diferente número de registros en cada hoja- por los "saltos de página" ya establecidos)

probablemente sea un detalle de configuración de la impresora a la que diriges la salida ?

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5