![]() |
#2 |
Участник
|
Рещаешь для себя сколько строк на странице и счетик линий и страниц делаешь, переидически добавля разделители
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))) |
|