macro en excel

[nohemibaac]

Hola las macros son muy fáciles de hacer, solo abre tu libro, escoge Herramientas, Macros, Grabar nueva macro, luego has lo que deseas que haga la macro, aplica un formato, configura la pag, etc. cuando termines, dale clic en Herramientas, Macro, detener grabacion, o el boton de "stop" que aparece sobre la hoja.

Para ver el código creado solo ve a Herramientas, Macro, Macros, escoge la macro creada y da clic en modificar, y listo puedes usar ese código, ahorita hice unas, estoy segura que puedes mejorarlas.

Espero te sirva

bye

'Esta configura la página

Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 03/07/2006 por GSoft
'

'
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$40"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&P de &N"
.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 = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 41
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

'y esta imprime

Sub Macro3()
'
' Macro3 Macro
' Macro grabada el 03/07/2006 por GSoft
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub