HotXLS Delphi Excel Read Write Library / Component Developers Guide |
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;
Copyright©2007-2019 loslab.com |