Impresión de pies de página

20/06/2006 - 20:13 por Gustavo | Informe spam

Hola que tal !!

Me interesa imprimir dos hojas tamaño carta en orientación horizontal, que
por motivos de la información contenida, tengo que unirlas para crear una
"sábana", de tal forma que en ocasiones tengo de 2 a 3 sábanas. Ahora resulta
que tengo un informe con 33 sábanas (66 páginas), por lo que me interesa
colocar como pie de página de la hoja derecha de la sábana: hoja 1 de 33, en
la siguiente sábana: 2 de 33, etc.

_________________ __________________
| | | |
| | | |
| | | |
| | | |
| | | |
| | | 1 de 33|
|________________| |_________________|

He intentado que me ponga el pie de página solo las páginas pares mediante
una macro pero no me resulta. Alguna idea?

Gracias por adelantado.

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

20/06/2006 - 22:08 | Informe spam

hola, Gustavo !

... imprimir dos hojas tama#o carta en orientacion horizontal, que... tengo que unirlas para crear una "sabana"
... en ocasiones tengo de 2 a 3 sabanas. Ahora... tengo un informe con 33 sabanas (66 paginas)
... me interesa colocar como pie de pagina de la hoja derecha de la sabana: hoja 1 de 33, en la siguiente sabana: 2 de 33, etc...

prueba con una macro +/- como la siguiente [suponiendo que la 'sabana' esta en la hoja 'activa']...
-> procura hacer las pruebas en una 'sabana ligera'... [es decir... de pocas hojas] :))
Sub Imprimir_Sabanas()
Dim Par As Integer, Impar As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("get.document(50)")
With ActiveSheet
.PageSetup.Orientation = xlLandscape
.PageSetup.Order = xlOverThenDown
.PageSetup.RightFooter = ""
' para imprimir las paginas 'impares'
For Impar = 1 To Paginas Step 2
.PrintOut From:=Impar, To:=Impar
Next
' para imprimir las paginas 'pares'
For Par = 2 To Paginas Step 2
.PageSetup.RightFooter = "Pagina " & Par / 2 & " de " & Paginas / 2
.PrintOut From:=Par, To:=Par
Next
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida