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

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.