Numeros de paginas

18/02/2004 - 19:09 por JZA | Informe spam
Hola a todos.
¿Como puedo hacer lo siguiente?
Tengo un informe que me ocupa varias paginas y quiero que
todas esas paginas lleven Žunas filas repetidas en
extremo superiorŽ como titulo.
Eso bien.
Ahora quiero que en una celda de ese ŽtituloŽ lleve lo
necesario y he aqui la pregunta, para que me indique el
nº de pagina que es de las totales que hay, es decir,
ejemplo: Pag.1/6 , Pag.2/6 , etc..
Ya se que se puede configurar la pagina para esto, en
ŽEncabezado y Pie de pagina Ž , pero quisiera saber si se
puede como digo yo.
Gracias de antemano a todos.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
19/02/2004 - 03:24 | Informe spam
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.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida