
29/04/2010, 11:07
|
 | | | Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 4 meses Puntos: 47 | |
Respuesta: Controlar encabezado en excel Intenta asi:
Dim xlApp As excel.Application
Dim xlBook As excel.Workbook
Dim xlSheet As excel.Worksheet
Set xlApp = New excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
DoEvents
'CENTRADO DE LA PAGINA
xlApp.ActiveSheet.PageSetup.CenterHorizontally = True
'ENCABEZADOS
xlApp.ActiveSheet.LeftHeader = ""
xlApp.ActiveSheet.CenterHeader = "ESTA ES UNA PRUEBA DE ENCABEZADO CENTRADO"
xlApp.ActiveSheet.RightHeader = ""
'PIE DE PAGINAS
xlApp.ActiveSheet.LeftFooter = ""
xlApp.ActiveSheet.CenterFooter = ""
xlApp.ActiveSheet.RightFooter = ""
'MARGENES
xlApp.ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(0.22)
xlApp.ActiveSheet.PageSetup.RightMargin = Application.InchesToPoints(0.18)
xlApp.ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.34)
xlApp.ActiveSheet.PageSetup.BottomMargin = Application.InchesToPoints(0.34)
xlApp.ActiveWindow.DisplayGridlines = False
...
...
...
Nos cuentas! |