Imprimir varias copias con pie de página diferente por cada copia.

03/11/2008 - 10:19 por juanjose_mm | Informe spam
Como se podría imprimir una hoja de excel pero que en cada copia salga
un pié de página diferente.
Me explico.
Quiero imprimir 3 veces el rango A1:H40 y que en el pié de página de
cada copia salga algo como:

Copia para el departamento de Contabilidad.
Copia para el departamento de Personal
Copia para la dirección

Gracias por todo.
 

Leer las respuestas

#1 Héctor Miguel
03/11/2008 - 22:28 | Informe spam
hola, juan jose !

Como se podria imprimir una hoja de excel pero que en cada copia salga un pie de pagina diferente.
Me explico. Quiero imprimir 3 veces el rango A1:H40 y que en el pie de pagina de cada copia salga algo como:
Copia para el departamento de Contabilidad.
Copia para el departamento de Personal
Copia para la direccion



(p.e.) con una macro ? (imprime tantas veces como departamentos pongas en una matriz)...

Sub Imprime_mi_hoja()
Dim Departamento, n As Byte
Departamento = Array(" Contabilidad", "Personal", "Direccion")
For n = LBound(Departamento) To UBound(Departamento)
With Worksheets("hoja1")
With .PageSetup
.PrintArea = "$a$1:$h$40"
.LeftFooter = "Copia para " & Departamento(n)
End With
.PrintOut
End With
Next
End Sub

conociendo otros detalles se podria adaptar/optimiza/... la propuesta anteior...

saludos,
hector.

Preguntas similares