edgar_prospero,
Revisa este link :
http://www.swissdelphicenter.ch/torr...ode.php?id=156
Código Delphi
[-]
ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape;
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 35;
ExcelApp.ActiveSheet.PageSetup.RightMargin := -15;
ExcelApp.ActiveSheet.PageSetup.FooterMargin := ExcelApp.InchesToPoints(0);
ExcelApp.ActiveSheet.PageSetup.FitToPagesWide := 1; ExcelApp.ActiveSheet.PageSetup.FitToPagesTall := 3;
ExcelApp.ActiveSheet.PageSetup.Zoom := 95;
ExcelApp.PageSetup.PaperSize := xlPaperA4;
ExcelApp.ActiveWindow.DisplayGridlines := False;
ExcelApp.ActiveSheet.PageSetup.BlackAndWhite := False;
ExcelApp.ActiveSheet.PageSetup.RightFooter := 'Right Footer / Rechte Fußzeile';
ExcelApp.ActiveSheet.PageSetup.LeftFooter := 'Left Footer / Linke Fußzeile';
ShowMessage(Format('Excel Version %s: ', [ExcelApp.Version]));
ExcelApp.Visible := True;
ExcelApp.SaveAs('c:\filename.xls');
ExcelApp.ActiveWorkBook.SaveAs('c:\filename.xls');
Nota : El método PageSetup no es soportado en Automation OLE de Excel 2010 según pude constatar al probar el código.
Espero sea útil
Nelson.