Cambiar valor al imprimir

07/12/2005 - 18:31 por Cesar H | Informe spam
Apreciados Colegas:

Necesito que me ayuden a mirar si lo que pretendo hacer es posible y es lo
siguiente:

Tengo una plantilla en Excel y necesito que cada vez que imprima ese formato
me aumente el valor en una celda. Es decir; la celda A1 contiene el valor
"1" al imprimir el formato ese número se aumente en 1 y quede "2" y así
suscesivamente... será esto posible?

Agradezco de antemano la ayuda.
 

Leer las respuestas

#1 David
07/12/2005 - 18:56 | Informe spam
César, prueba agregar lo siguiente a los eventos del libro:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Hoja1" Then ActiveSheet.Range("A1").Value =
ActiveSheet.Range("A1").Value + 1
End Sub

PD: Estoy suponiendo que sólo quieres incrementar el contador cuando
imprimas la hoja llamada "Hoja1"...


"Cesar H" escribió:


Apreciados Colegas:

Necesito que me ayuden a mirar si lo que pretendo hacer es posible y es lo
siguiente:

Tengo una plantilla en Excel y necesito que cada vez que imprima ese formato
me aumente el valor en una celda. Es decir; la celda A1 contiene el valor
"1" al imprimir el formato ese número se aumente en 1 y quede "2" y así
suscesivamente... será esto posible?

Agradezco de antemano la ayuda.




Preguntas similares