hola rechy, como estas, para eso debes ir a excel, y en el menu herramientas haces clic en macros y en grabar nueva macro, luego configura tu hoja de excel para impresion y vuelves a macros para detener la grabacion, una vez que hayas grabado la macro, puedes verla haciendo otra vez en herramientas, macros y luego en todas las macros, veras macro1 y pones modificar, ahi puedes ver todo el codigo que te genera excel, bueno especificamente para lo que quieres te va a salir algo como esto:
With ActiveSheet.PageSetup
.LeftHeader = "" 'aqui pones el text1.text'
.CenterHeader = "&A" 'o el caption del label
.RightHeader = "" 'etc...
.LeftFooter = "" 'etc...
.CenterFooter = "Página &P de &N" 'etc...
.RightFooter = ""
.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 = -3
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Aquello que no esta comentado ha sido generado por excel, asi que cualquier cosa, le preguntas a excel...
