Impresión de dos o mas copias con pie de página diferente
publicado
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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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