Impresión de dos o mas copias con pie de página diferente

[Ruilla]

Buenas noches y felices fiestas a todos

He estado buscando una macro de como poder imprimir copias de una misma hoja pero con diferentes pies de página, y aquí no supe encontrar nada relacionado.

ejemplo:

1ª copia..... Copia departamento RECAMBIOS

2ª copia..... Copia departamento LOGISTICA

Conseguí desde otra web código para hacerlo efectivo y creo que es interesante para cualquiera que tenga mi misma necesidad.

Sub Imprime_mi_hoja()

Dim Departamento, n As Byte

Departamento = Array("RECAMBIOS", " LOGÍSTICA")

For n = LBound(Departamento) To UBound(Departamento)

With Worksheets("hoja1")

With .PageSetup

.PrintArea = "$a$1:$G$19"

.LeftFooter = "Copia para " & Departamento(n)

End With

.PrintPreview 'PrintOut

End With

Next

End Sub

En el array se ponen los nombres de los departamentos y tantos como copias haya que hacer.

Espero que alguien lo pueda utilizar y sino que por lo menos este post sirva para desearos a todos un muy buen inicio de año y sobre todo que el resto, sea mucho mejor.

Saludos