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

Perdón por haber duplicado la consulta en el foro.

Lo que necesitaría es que COPIA 1 de 2 apareciera en una celda en
concreto de la hoja.

Gracias.

Hola

Perdón por haber duplicado la consulta en el foro.

Lo que necesitaría es que COPIA 1 de 2 apareciera en una celda en
concreto de la hoja.

Gracias.

Ah, al haber puesto cosas de los encabezados y todo eso me despiste... :)
Alguna celda en particular???

Un saludo
Juan

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)
ActiveSheet.range("A1")="copia " & i & " de " & CLng(copias)
'Presentacion preliminar
ActiveSheet.PrintPreview
'Manda imprimir
' ActiveSheet.PrintOut
Next i
End Sub
Fin codigo