Saber número de copia.

Hola juanjose

Tengo una hoja la cual envío a imprimir un número X de copias, es
decir, UNA sola página la puedo imprimir 10 veces.
Lo que necesito es que me imprima "Copia x de y".
Se me ocurrió usar las opciones de pié de página, pero lo que más
se le parece es la opción de número de página, y eso no me vale ya
que como he dicho siempre será UNA sola página.

Prueba la siguiente macro
Debes tener la hoja configurada como la quieres presentar. La macro esta
configurada para poner el numero de copia en la esquina superior derecha, y
en un principio solo mostrar la presentacion preliminar. Si pones la comilla
en activesheet.printpreview y la quitas de activesheet.printout se
imprimiran directamente.

Comenta si tienes problemas

Un saludo
Juan

(en un modulo estandar)
Inicio Codigo

Sub Test_Imprimir()
Dim copias As String
Dim i As Long
copias = InputBox("Numero de copias", "Imprimir")
For i = 1 To CLng(copias)
With ActiveSheet.PageSetup
'Selecciona donde quieres que se muestre
' .LeftHeader = ""
' .CenterHeader = ""
.RightHeader = "copia " & i & " de " & CLng(copias)
' .LeftFooter = ""
' .CenterFooter = ""
' .RightFooter = ""
End With
'Presentacion preliminar
ActiveSheet.PrintPreview
'Manda imprimir
' ActiveSheet.PrintOut
Next i
End Sub
Fin codigo