var i: Integer; begin for i := 1 to Workbook.Sheets[1].VPageBreaks.Count do begin Workbook.Sheets[2].VPageBreaks.Add(Workbook.Sheets[1].VPageBreaks.Item[i].Location); end; end;