Seitenumbruch in Excel mit Delphi / IDispatch Problem

[omata]

Moin,

versuch mal folgendes...

Delphi-Quellcode:

procedure TMain.ButtonClick(Sender: TObject);
var Excel:TExcelApplication;
    LCID:integer;
    Workbook:_Workbook;
    Sheet:Variant;
begin
  Excel:=TExcelApplication.Create(Self);
  try
    LCID:=GetUserDefaultLCID;
    Excel.Connect;
    Excel.Visible[LCID] := true;
    Workbook:=Excel.Workbooks.Add(EmptyParam, LCID);
    Sheet:=Workbook.ActiveSheet;
    Sheet.HPageBreaks.Add(IDispatch(Excel.Cells.Range['A25', EmptyParam]));
  finally
    Excel.Disconnect;
    Excel.free;
  end;
end;

MfG
Thorsten