Cambiar valor al imprimir

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.

Hola chicos,

Solo una cosa a tener en cuenta al utilizar la solucion de David - el evento Workbook_BeforePrint se disparara igualmente (y el
contador aumentara) tanto si se imprime algo como si simplemente se abre la Vista Preliminar sin que sea necesario imprimir nada.
Una alternativa podria ser la de crear una serie de macros que inhabilten los procedimientos habituales de impresion y permitan
imprimir pulsando un boton especialmente creado para este caso. Incluso, se podria crear un UserForm que emularia el dialogo de
impresion. Comentais si esto es lo que hace falta?

Saludos,
KL


"David" <sdgm04(mapstonod)@hotmail.com> wrote in message news:

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.