enumerar paginas en celda

hola, carlos !

Necesito saber si existe alguna forma de que una celda, por ejemplo H6
cuya fila se se repite en cada hoja muestre el numero de pagina de la hoja y el total de paginas.

-> si "esa" celda correspondiera a cada hoja en la salida a la impresora...
una solucion (la mas "barata" -creo-) seria obligar (usando encabezados) a que la numeracion "caiga" EN esa celda
(probablemente ajustando los margenes de los encabezados y/o agregando algun/os salto/s de linea a la seccion)

-> si "esa" celda es parte de las filas/titulo superior en la configuracion de la hoja...
(segun tu comentario de que la celda en el titulo donde quieres la numeracion es H6)
en un modulo de codigo 'normal' ==Sub ImprimirPorPaginas()
Dim Pagina As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("get.document(50)")
With ActiveSheet
For Pagina = 1 To Paginas
.Range("h6") = "Pag. " & Pagina & " de " & Paginas
.PrintOut From:=Pagina, To:=Pagina
Next
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Gracias Héctor,

Ha funcionado pero no del todo, ya que cuando imprimo en pdf me sale el
mismo número de página en distintas hojas.

"Héctor Miguel" escribió:

hola, carlos !

> Necesito saber si existe alguna forma de que una celda, por ejemplo H6
> cuya fila se se repite en cada hoja muestre el numero de pagina de la hoja y el total de paginas.

-> si "esa" celda correspondiera a cada hoja en la salida a la impresora...
una solucion (la mas "barata" -creo-) seria obligar (usando encabezados) a que la numeracion "caiga" EN esa celda
(probablemente ajustando los margenes de los encabezados y/o agregando algun/os salto/s de linea a la seccion)

-> si "esa" celda es parte de las filas/titulo superior en la configuracion de la hoja...
(segun tu comentario de que la celda en el titulo donde quieres la numeracion es H6)
en un modulo de codigo 'normal' ==> Sub ImprimirPorPaginas()
Dim Pagina As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("get.document(50)")
With ActiveSheet
For Pagina = 1 To Paginas
.Range("h6") = "Pag. " & Pagina & " de " & Paginas
.PrintOut From:=Pagina, To:=Pagina
Next
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, carlos !

Ha funcionado pero no del todo, ya que cuando imprimo en pdf me sale el mismo numero de pagina en distintas hojas.

(me temo que) para usarlo al generar archivos pdf, tendrias que generar un pdf por cada impresion (que no le veo "sentido") -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __

Necesito saber si existe alguna forma de que una celda, por ejemplo H6
cuya fila se se repite en cada hoja muestre el numero de pagina de la hoja y el total de paginas.

-> si "esa" celda correspondiera a cada hoja en la salida a la impresora...
una solucion (la mas "barata" -creo-) seria obligar (usando encabezados) a que la numeracion "caiga" EN esa celda
(probablemente ajustando los margenes de los encabezados y/o agregando algun/os salto/s de linea a la seccion)

-> si "esa" celda es parte de las filas/titulo superior en la configuracion de la hoja...
(segun tu comentario de que la celda en el titulo donde quieres la numeracion es H6)
en un modulo de codigo 'normal' ==>> Sub ImprimirPorPaginas()
Dim Pagina As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("get.document(50)")
With ActiveSheet
For Pagina = 1 To Paginas
.Range("h6") = "Pag. " & Pagina & " de " & Paginas
.PrintOut From:=Pagina, To:=Pagina
Next
End With
End Sub

hola (de nuevo), carlos !

Ha funcionado pero no del todo, ya que cuando imprimo en pdf me sale el mismo numero de pagina en distintas hojas.

prueba tambien con la primera opcion, dejando en blanco la celda donde quieres que aparezca la numeracion de pagina y...

-> si "esa" celda correspondiera a cada hoja en la salida a la impresora...
una solucion (la mas "barata" -creo-) seria obligar (usando encabezados) a que la numeracion "caiga" EN esa celda
(probablemente ajustando los margenes de los encabezados y/o agregando algun/os salto/s de linea a la seccion)

saludos,
hector.