INSERTAR UN NUMERO CONSECUTIVO EN UNA IMPRESION

Que tal jrsyus ¡

Pega el siguiente código en un módulo de VBA:

Sub imprimir_consecutivo()
Dim Imprimir As Variant
With ThisWorkbook.Sheets("Hoja1")
Imprimir = InputBox("Introduce el número de veces que se imprimirá el
consecutivo", "Aumentar número", 1)
.Range("a1") = Imprimir
For i = 1 To .Range("a1") + 1
.Range("a1") = (i)
MsgBox "Imprimir copia" & .Range("a1")
ActiveSheet.PrintOut Copies:=1
Next i
End With
End Sub

'Recuerda asignar la macro a un botón ó a un método abreviado de teclas.

<!>
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"jrsyus" escribió en el mensaje
news:

Hola :

Tengo una hoja que debo imprimir 50 veces, que debo hacer para que a cada
hoja impresa le aparezca un numero consecutivo, es decir salga impresa con
el numero 1,2,3, etc