Numeros de paginas

hola, JZA !

... informe ... varias paginas y quiero que todas ... lleven unas filas repetidas en extremo superior como titulo.
... quiero que en una celda de ese 'titulo' lleve ... el nº de pagina ... ejemplo: Pag.1/6, Pag.2/6, etc.
... se que se puede configurar ... en Encabezado y Pie de pagina, pero quisiera ... como digo yo.

el [unico] 'inconveniente' de 'paginar' las impresiones EN una celda que es 'parte de' los titulos...
es la 'necesidad' de [re-]escribir el numero de cada pagina [imprimible] EN LA MISMA celda [siempre].
bueno... hay 'otro' :( cuando la 'paginacion' incluye una seleccion de varias hojas de calculo...
se requiere 'obtener' [sumar] el total de cada pagina antes de imprimir o... imprimir cada hoja 'por separado' :(

una solucion [la mas 'sencilla' -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']

otra [posible] solucion =>para una sola o para cada hoja<= seria algo +/- como lo siguiente:
[suponiendo que la celda EN el titulo donde quieres la numeracion es 'E5']
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("e6") = "Pag. " & Pagina & "/" & Paginas
.PrintOut From:=Pagina, To:=Pagina
Next
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.