Macro establecer área de impresión variable

Manuel TR · el 14 de julio

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 · el 14 de julio

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 · el 14 de julio

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 · el 15 de julio

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 · el 15 de julio

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 · el 15 de julio

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 ?