En este grupo En todos

Foro de Excel



IMPRSION PIE DE HOJA

Milton
Ingeniero civil universidad central
Escrito por Milton Cordova
el 12/03/2012

Saludos master, por favor me puede ayudar, necesito una macro para que al imprimir las hojas en estas se imprima un pie de hoja numerado y con el nombre de autor.

Este nombre debe estar ingresado desde una hoja por ejm hoja seg! C:4

Gracias por su atención y ayuda.

Att. Milton córdova

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 12/03/2012

Hola! Milton.
a) Enciende la grabadora de macros
b) Adecua MANUALMENTE el pie de página según tu necesidad colocando la numeración y el nombre del autor.
c) Manda a imprimir las hojas
d) Apaga la grabadora de macros

Con lo anterior obtendrás el código básico que necesitas.
Publícalo en este debate para adecuarlo a fin de tomar el nombre de autor desde la celda C4.

Saludos, Cacho R.

Milton Cordova
Ingeniero civil universidad central
Escrito por Milton Cordova
el 12/03/2012

SALUDOS, procedi con lo recomendado y obtube esta macro

ActiveSheet.PageSetup.PrintArea = "$C$3:$H$32"
With ActiveSheet. PageSetup
. LeftHeader = ""
. CenterHeader = ""
. RightHeader = ""
. LeftFooter = ""
. CenterFooter = "Preparado por MILTON "
. RightFooter = "Página &P"
. LeftMargin = Application. InchesToPoints(0. 787401575)
. RightMargin = Application. InchesToPoints(0. 787401575)
. TopMargin = Application. InchesToPoints(0. 984251969)
. BottomMargin = Application. InchesToPoints(0. 984251969)
. HeaderMargin = Application. InchesToPoints(0)
. FooterMargin = Application. InchesToPoints(0)
. PrintHeadings = False
. PrintGridlines = False
. PrintComments = xlPrintNoComments
. PrintQuality = 600
. CenterHorizontally = False
. CenterVertically = False
. Orientation = xlPortrait
. Draft = False
. PaperSize = xlPaperA4
. FirstPageNumber = xlAutomatic
. Order = xlDownThenOver
. BlackAndWhite = False
. Zoom = 100
. PrintErrors = xlPrintErrorsDisplayed
End With

He intentado vinculat el nombre MILTON que es lo que sale en el pie de pagina por el nombre registrado en al celda A1 hoja SEG mediante la siguiente instruccion de la macro

. CenterFooter = "Preparado por MILTON "

He cambiado por la instruccion

. CenterFooter = "Preparado por" & Sheets(SEG) & Range(A1). Select

para que aparezaca el nombre registrado en la hoja SEG A1

Pero no funciona

Por favor alguna ayuda adicional

Gracias.

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 13/03/2012

Intenta con:

. CenterFooter = "Preparado por " & _
Sheets("SEG"). [A1]

Saludos, Cacho R.

Milton Cordova
Ingeniero civil universidad central
Escrito por Milton Cordova
el 13/03/2012

Saludos, gracias por la importante ayuda.

La macro funciona muy bien, adjunto la macro que se ejecuta al abrir el archivo, de esta manera todas las hojas quedan formateadas para la impresion

Gracias una vez mas

Private Sub Workbook_Open()

'
' PIEPAGINA Macro
' Macro grabada el 12/03/2012 por MILTON
'

'
With ActiveSheet. PageSetup
. PrintTitleRows = ""
. PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$C$3:$H$32"
With ActiveSheet. PageSetup
. LeftHeader = ""
. CenterHeader = ""
. RightHeader = ""
. LeftFooter = ""
. CenterFooter = "Elaborado por : " & Sheets("SEG"). Range("A1"). Value
. RightFooter = "Página &P"
. LeftMargin = Application. InchesToPoints(0. 787401575)
. RightMargin = Application. InchesToPoints(0. 787401575)
. TopMargin = Application. InchesToPoints(0. 984251969)
. BottomMargin = Application. InchesToPoints(0. 984251969)
. HeaderMargin = Application. InchesToPoints(0)
. FooterMargin = Application. InchesToPoints(0)
. PrintHeadings = False
. PrintGridlines = False
. PrintComments = xlPrintNoComments
. PrintQuality = 600
. CenterHorizontally = False
. CenterVertically = False
. Orientation = xlPortrait
. Draft = False
. PaperSize = xlPaperA4
. FirstPageNumber = xlAutomatic
. Order = xlDownThenOver
. BlackAndWhite = False
. Zoom = 100
. PrintErrors = xlPrintErrorsDisplayed
End With
End Sub