publicado el 14 de julio5 años 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
publicado el 14 de julio5 años 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
publicado el 14 de julio5 años Autor 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
publicado el 15 de julio5 años 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)
publicado el 15 de julio5 años Autor 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
publicado el 15 de julio5 años 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 ?
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