Como insertar "contador" en una celda de excel al imprimir varia.

Creo que te sirve este codigo que debes colocar en el codigo del objeto
ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Hoja1.Range("a1") = Hoja1.Range("a1") + 1
If Hoja1.Range("a1")> = 100 Then
If MsgBox("Ya imprimiste 100 copias. Deseas reiniciar el contador?",
vbQuestion + vbYesNo) = vbYes Then Hoja1.Range("a1") = ""
End If
End Sub

Cuando completes 100 copias, el procedimiento te pregunta si quieres
reiniciar el contador.


Luis Medina
Menufazt - Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/


"Contador en una Celda" <Contador en una
escribió en el mensaje
news:

Tengo un formato en la cual en una celda quiero insertar un contador
automatico al imprimir. ejemplo. Al imprimir 10 copias del formato me vaya
contado en una celda automaticamente e impreso. 1 of 10, 2 of 10, 3 of
10...etc.
Como en Microsoft word Mail merge puedo hacer form letter.
O de otra forma, al imprimir 100 copias de un formato me vaya enumerando
en
una de sus celdas automaticamente 1, 2, 3 hasta 100. puedo hacer eso?

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.783 / Virus Database: 529 - Release Date: 10/25/2004