Tento příklad zkopíruje všechny svislé konce stránek z prvního listu na druhý
var
i: Integer;
beginfor i := 1 to Workbook.Sheets[1].VPageBreaks.Count dobegin
Workbook.Sheets[2].VPageBreaks.Add(Workbook.Sheets[1].VPageBreaks.Item[i].Location);
end;
end;