Folio en impresión

"Age" escribió en el mensaje news:

tengo un formato que solo es para imprimir finiquitos, a este le tengo que
poner un folio cada vez que lo vaya a imprimir, existe una macro que haga
esto de forma automatica, es decir que me ponmga el folio y que si ese
formato lo uso dentro de 2 dias siga con el consecutico del los folios ya
impresos?

Gracias

Si pegas el siguiente código en el módulo del libro (en ThisWorkbook), antes de imprimir Hoja1 se incrementará su celda A1 en 1:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Hoja1" Then Exit Sub 'Hoja1 es la hoja en que se quiere incrementar la numeración
Cancel = True
ActiveSheet.[A1] = ActiveSheet.[A1] + 1 'A1 es la celda en que se incrementará la numeración
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel