Repetir filas en extremo superior

Tonata:

Primero, se escribe "mencionada" y no "mensionada".

Segundo, no, no es posible delimitar el uso de títulos de impresión para
páginas específicas. Aplica para todas las que se generen para impresión.

Saludos,
Administrador de Proyectos


"Tonata" escribió:

Hola,

La opción que da excel de repetir filas en extremo superior o columnas a la
izquierda (Configurar página - Hoja - Imprimir títulos) me resulta muy
útil, pero tengo un documento en el que me gustaría que la fila mensionada
no saliera en la última página. ¿Se puede conseguir?

Gracias anticipadas.

Saludos

hola, Tonata !

... repetir filas en extremo superior o columnas a la izquierda... me resulta muy util
... tengo un documento en el que me gustaria que la fila mensionada no saliera en la ultima pagina.
Se puede conseguir?

si no te 'incomoda' hacerlo de forma 'manual'...
1) con 'la fila' puesta como titulos -> imprime de la hoja 1 a la total-1
2) define como rango de impresion [SOLO] el rango correspondiente a la ultima hoja
3) 'elimina' los titulos
4) imprime el 'nuevo' rango de impresion ;)

si lo necesitas mas... 'automatico'... habria que utilizar macros ;)

comentas [si hubiera] algun 'detalle' adicional ?
saludos,
hector.

Gracias, Hector.

Si, lo necesito bastante mas "automatico". Hice una macro:

ActiveSheet.PageSetup.PrintArea = "$A$1:$F$93"
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ActiveSheet.PageSetup.PrintArea = "$A$94:$F$128"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

que en principio funciona. Pero me surgen 2 problemas:

1. Me gustaría que la PrintArea se defina "automaticamente". P.ej. ¿Sería
posible definirla utilizando una palabra clave? Algo por el estilo:
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$numFilaPalabraClave"

2. Imprimiendo la segunda area pierdo la paginación - empieza por pagina 1.
¿Hay manera de contar el numero total de paginas de la primera area y
asignar este numero+1 al FirstPageNumber? O ¿otro modo?

Gracias.


"Héctor Miguel" escribió en el mensaje
news:%

hola, Tonata !

... repetir filas en extremo superior o columnas a la izquierda... me
resulta muy util
... tengo un documento en el que me gustaria que la fila mensionada no
saliera en la ultima pagina.
Se puede conseguir?

si no te 'incomoda' hacerlo de forma 'manual'...
1) con 'la fila' puesta como titulos -> imprime de la hoja 1 a la total-1
2) define como rango de impresion [SOLO] el rango correspondiente a la
ultima hoja
3) 'elimina' los titulos
4) imprime el 'nuevo' rango de impresion ;)

si lo necesitas mas... 'automatico'... habria que utilizar macros ;)

comentas [si hubiera] algun 'detalle' adicional ?
saludos,
hector.

hola, Tonata !

... lo necesito bastante mas "automatico". Hice una macro [...]
... en principio funciona. Pero me surgen 2 problemas:
1. Me gustaria que la PrintArea se defina "automaticamente".
P.ej utilizando una palabra clave? Algo por el estilo:
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$numFilaPalabraClave"
2. Imprimiendo la segunda area pierdo la paginación - empieza por pagina 1. Hay manera de contar el numero total de paginas de la primera area y asignar este numero+1 al
FirstPageNumber?...

el siguiente ejemplo esta basado en 'encontrar' algunos 'parametros clave' como...
PT - el numero total de hojas que se imprimirian uan vez establecida/s fila/s como titulos en el encabezado
sH - los numeros de filas donde 'caen' los saltos de pagina 'horizontales' [para 'rescatar' el penultimo] y...
uHoja - 'construye' la direccion de la ultima hoja [la que quedaria 'pendiente'] luego de quitar los titulos/fila
[uCelda la use como variable 'comodin' para establecer 'de golpe' el rango total a imprimir] ;)

estoy suponiendo que la paginacion la pones en el pie de pagina derecho -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=Sub Quitar_Encabezado_UltimaHoja()
Dim PT As Integer, sH As Variant, uCelda As String, uHoja As String
uCelda = ":$f$128"
With ActiveSheet.PageSetup
.PrintArea = "$a$1" & uCelda
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
.RightFooter = "&p"
PT = ExecuteExcel4Macro("Get.Document(50)")
Names.Add Name:="sH", RefersToR1C1:="=Get.Document(64)"
sH = Evaluate("index(sH,column(a:iv),0)"): Names("sH").Delete
uHoja = "$a$" & sH(UBound(sH) - 1) & uCelda
.Parent.PrintOut From:=1, To:=PT - 1
.PrintTitleRows = ""
.PrintArea = uHoja
.RightFooter = PT
.Parent.PrintOut
.PrintArea = ""
.RightFooter = ""
End With
End Sub

Muchisimas gracias, Hector, eres de gran ayuda!

¿Donde puedo encontrar info sobre las funciones de Excel4?

y...una cosa más. No entiendo la utilidad de uCelda:
..
uCelda = ":$f$128"
ActiveSheet.PageSetup.PrintArea = "$a$1" & uCelda

Le doy valor a mano y si el "largo" del documento cambia tengo que modificar
la macro a mano? O funciona de otra manera?
Mi idea inicial (que no tengo ni idea si es facil a realizar) era: buscar
una palabra-clave unica en el documento (p.ej. "Presupuesto") y utilizar el
numero de la fila, en la que se encuentra esta palabra, para definir la
printArea.

Saludos

Tónata