ANSWERED Macro establecer área de impresión variable

[Manuel TR 2]

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

[Gerson Pineda 3,470]

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 

[Manuel TR 2]

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

[Héctor Miguel 720]

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)

[Manuel TR 2]

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

[Héctor Miguel 720]

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 ?

[Manuel TR 2]

Hola Héctor, 

muchísimas gracias.

Saludos,

Manuel