Folio en impresión

07/03/2005 - 22:37 por Age | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
08/03/2005 - 09:24 | Informe spam
"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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida