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
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 WithP.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