Pie de página

[Enigma25]

Buenas noches Maestros y amigos del foro.

Les dejo este aporte que puede que les sirva en alguna ocasión. Se trata de una macro con la cual se define el pie de pagina enumerándolo.

Estaba buscándolo e igualmente grabando con la grabadora de macros pero uffs Demasiado código!!

With Hoja1.PageSetup
        .HeaderMargin = Application.InchesToPoints(0.25) 'Establece los margenes
        .FirstPageNumber = 1 'Inicia el contador con el numero 1
        .RightFooter = "Página &P " 'El el pie de pagina al lado derecho de la hoja
    End With

    With Hoja1
        .PrintPreview 'Vista Preliminar
    End With

P.D. Pueden elegir el lugar del pie de pagina:

        .LeftFooter = "Página &P"
        .CenterFooter = "Página &P"
        .RightFooter = "Página &P"

Espero les ayude en lo posible.

Mis respetos.

Pie de Pagina.zip

[winkey777]

INTERESANTE., LO PROBAREMOS.

Y GRACIAS.

[Enigma25]

Gracias hermano [uSER=162198]@winkey777[/uSER]

Espero le sirva.

Mis respetos.