Formato de Página Global VBA

29/09/2005 - 00:49 por Mouse | Informe spam
Recibo todos los días varios ficheros/libros, con múltiples hojas cada uno.

A la hora de imprimir tengo una macro que va recorriendo cada fichero,
selecciona cada hoja, la formatea y la imprime, todo ello con un bucle for
each, pero es bastante lento.

Aclaración: Aunque las hojas tienen todas el mismo o parecido formato, desde
origen no vienen formateadas, cada fichero tiene un número variable de hojas
y los nombres de cada hoja son distintos entre sí y en cada fichero.

¿Existe alguna manera para que mediante código pueda asignar el formato a
todas las hojas a la vez en lugar de pasar una por una, lo cual repito, es
bastante lento, aunque he simplificado al máximo el pagesetup?.

Gracias
 

Leer las respuestas

#1 Héctor Miguel
29/09/2005 - 06:59 | Informe spam
hola, Mouse !

Recibo todos los días varios ficheros/libros, con múltiples hojas cada uno.
A la hora de imprimir tengo una macro que va recorriendo cada fichero, selecciona cada hoja, la formatea y la imprime, todo ello con un bucle for each, pero es bastante lento.
Aclaracion: Aunque las hojas tienen todas el mismo o parecido formato, desde origen no vienen formateadas
cada fichero tiene un numero variable de hojas y los nombres de cada hoja son distintos entre si y en cada fichero.
Existe alguna manera para que mediante codigo pueda asignar el formato a todas las hojas a la vez en lugar de pasar una por una [...]



SI por 'formatear' te refieres -exclusivamente- a igualar la configuracion de pagina para todas las hojas de un libro...
el siguiente procedimiento 'iguala' la configuracion de pagina de todas las hojas seleccionadas
[encabezados, pies de pagina, etc. excepto -obviamente- las areas de impresion]
1.- selecciona la hoja donde ya personalizaste segun tus preferencias/necesidades
2.- click-derecho sobre su pestaña y elige ->seleccionar todas las hojas<-
[la hoja 'correcta' debera ser la hoja 'activa']
3.- abre el cuadro de dialogo de: archivo / configurar pagina...
4.- SOLAMENTE PULSA ENTER [nada mas... OJO]
5.- listo... [revisa los encabezados, pies de pagina, orientacion, etc. de 'las demas' hojas seleccionadas]

si cualquire duda [o informacion adicional]... comentas?
saludos,
hector.

Preguntas similares