var
  i, cnt: integer;
begin
  cnt := Workbook.Sheets[1].HPageBreaks.Count;
  if cnt > 0 then begin
     for i := cnt downto 1 do
       Workbook.Sheets[1].HPageBreaks.Item[i].Delete;
  end;
end;