|
Рещаешь для себя сколько строк на странице и счетик линий и страниц делаешь, переидически добавля разделители
NewPage()
brs:=XlsWsh.HPageBreaks;
IF CurrColon=0 THEN br := brs.Add(XlsWsh.Range(Cell(CurrColon+1,CurrLine)))
ELSE br := brs.Add(XlsWsh.Range(Cell(CurrColon,CurrLine)))
|