Примерно так (взято из примеров к книге "Программир.док-тов и прилож MS OFFICE в Delphi"):
Код:
Var
Excel, PageSetup : variant;
...
Excel:=CreateOleObject('Excel.Application');
Excel.Visible:=true;
Excel.WorkBooks.Open(OpenDialog1.FileName);
PageSetup:=Excel.ActiveSheet.PageSetup;
PageSetup.PrintArea:='A1:B10';