UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

MauMeza


Que Tal! Espero se encuentren bien.

Actualmente tengo que imprimir 5 facturas con el mismo folio.
lo malo es que en cada una de ellas,  tengo que poner en el pie de pagina, departamento que van. (Original, Caseta, C. por Cobrar, Facturación, Almacén)
Habra algún macro que permita mandar imprimir las 5 facturas al mismo tiempo, y que al imprimirse en el pie de pagina aparezca el texto mencionado en cada una. 

Agradezco de antemano sus atenciones.

ioyama

avatar
Hola MauMeza

Con la siguiente macro puedes obrener lo que deseas

Sub Imprime_5()
    Dim pie(5)
    pie(1) = "Original"
    pie(2) = "Caseta"
    pie(3) = "C. por Cobrar"
    pie(4) = "Facturación"
    pie(5) = "Almacén"
    For i = 1 To 5
        ActiveSheet.PageSetup.LeftFooter = pie(i)
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next
End Sub

La variable podrías alimentarla desde una lista en una hoja en vez de directamente desde la macro. 

Tú mismo verás qué te es más útil o cómodo

Un saludo desde Vitoria


Motivo de la edición del post: Atención, acabo de percatarme (si no me equivoco) que la matriz empieza en el 0 y no en el 1, con lo que tendrás que cambiar los 5 pie(x). Disculpa

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.