Excel - FOLIAR HOJAS AL MANDAR A IMPRIMIR EN EXCEL

Hola a todos, buen día,

Como puedo enviar a imprimir, desde una sola hoja en excel, varias paginas con la numeración consecutiva desde 1 hasta la cantidad de copias que desee, ejemplo, tengo una hoja y la mando a imprimir pero coloco que quiero 20 copias y cuando se imprima le salga folio desde el 1 hasta el 20 en este caso, o sea siendo la misma pagina lo único que va a variar seria el folio. lo hice de esta manera pero siempre sale el número 1, como hago para que se vaya incrementando en cada hoja.


saludos,

Cuando quieras imprimir utiliza esta Macro:


El problema de la función Workbook_BeforePrint es que la ejecuta una vez antes de imprimir todo el paquete no antes de cada hoja como deseabas.

Saludos.
\\//_

Hola Antoni,

Lo coloco como me dices pero igual no me imprime las hojas foliadas.

Saludos,

Enviame el fichero para ver donde esta el error.

BUENAS TARDES DON ANTONI, ME PODRIAS AYUDAR CON ESTE ARCHIVO QUE OCUPO SE FOLEE DEL 001 AL 999

• CONTROL-DE-DETENIDOS-msp-y-oij.zip(63,0 KB)

Abre un nuevo post para poder ayudarte.

Saludos.
\\//_

Muchas Gracias Antoni,
me ha funcionado super la macro, solo tengo una duda, ya que no soy muy diestra en este asunto, para colocar formato a la macro, como por ejemplo que el texto y folio en : "Nº: " & contador (en el documento), salgan en color rojo y negritas, y que modo hay para que si la hoja 1 se imprime en varias hojas, no me salga por ambos lados (nota: ya cambie las preferencias y configuraciones de mi impresora y sigue saliendo a ambos lados de la hoja la impresión)

hola amigo, me podrias pasar el archivo, ya que deceo hacer algo igual pero no he podido. muchas gracias

Buenas tardes. El código me ha funcionado, pero quiero que el número en cada impresión aparezca en una celda específica de la hoja, por ejemplo la H3. Cómo debo escribir el código? Gracias

Buenos días, te llegaron a explicar como enumerar a la hora de imprimir en una celda concreta?? Yo quiero hacer algo parecido y no se como hacerlo.
Muchas gracias.

cambia esta linea

ActiveSheet.Range("J1") = "Nº: " & contador

saludos

Gracias!!! me funcionó perfecto!

me funcionó perfecto!!! gracias!!!!