Queremos imprimir la información de una hoja de Excel y sabemos que ocupará varias páginas, y queremos que todas ellas tengan como encabezado común un par de filas de la hoja.
El Excel dispone -para definir esas filas- de la opción: Repetir filas en extremo superior, según vemos en la siguiente imagen:
El problema
Queremos hacer exactamente lo mismo... ¡pero con el pie de página!, o sea: definir un par de filas que se impriman al pie de todas las páginas.
_________________________
En el "rar" que adjunto muestro dos archivos:
- UpperLowerRowsTitles.xlsm
Éste es el que contiene la macro que resuelve el problema. Se ejecuta como un complemento, de modo que una vez abierto "no se ve" pero su efecto funciona según lo descrito.
- Rows_Titles.xlsx
Es un archivo de prueba.
Su primera hoja (RQ) es impresa en 3 páginas. Notar que todas esas páginas tendrán el mismo encabezado y el mismo pie de página.
Su segunda hoja (RQ2) permite observar otro "efecto".
> Encabezado: filas 1:11
> Área de impresión: A12:M16
> Pie de página: filas 24:28
¿Se advierte que las filas 17 a 23 no queremos imprimirlas?...
La solución que aquí les propongo generará -para este segundo caso- una sola página con su encabezado, su área de impresión y su pie de página... ¡como si las filas 17 a 23 no existieran!
_________________________
Procedimiento para imprimir
1º) Seleccionamos nuestra hoja
2º) Presionamos las dos teclas: Alt+F8
3º) En nombre de la macro escribimos: prnCacho, y damos <Enter> (o click en Ejecutar)
Situación
Queremos imprimir la información de una hoja de Excel y sabemos que ocupará varias páginas, y queremos que todas ellas tengan como encabezado común un par de filas de la hoja.
El Excel dispone -para definir esas filas- de la opción: Repetir filas en extremo superior, según vemos en la siguiente imagen:
El problema
Queremos hacer exactamente lo mismo... ¡pero con el pie de página!, o sea: definir un par de filas que se impriman al pie de todas las páginas.
_________________________
En el "rar" que adjunto muestro dos archivos:
- UpperLowerRowsTitles.xlsm
Éste es el que contiene la macro que resuelve el problema. Se ejecuta como un complemento, de modo que una vez abierto "no se ve" pero su efecto funciona según lo descrito.
- Rows_Titles.xlsx
Es un archivo de prueba.
Su primera hoja (RQ) es impresa en 3 páginas. Notar que todas esas páginas tendrán el mismo encabezado y el mismo pie de página.
Su segunda hoja (RQ2) permite observar otro "efecto".
> Encabezado: filas 1:11
> Área de impresión: A12:M16
> Pie de página: filas 24:28
¿Se advierte que las filas 17 a 23 no queremos imprimirlas?...
La solución que aquí les propongo generará -para este segundo caso- una sola página con su encabezado, su área de impresión y su pie de página... ¡como si las filas 17 a 23 no existieran!
_________________________
Procedimiento para imprimir
1º) Seleccionamos nuestra hoja
2º) Presionamos las dos teclas: Alt+F8
3º) En nombre de la macro escribimos: prnCacho, y damos <Enter> (o click en Ejecutar)
¡Espero que les sea de utilidad!
Saludos, Cacho R.
RowsTitles.rar