Как определить конец страницы в Excel

[vasiliy]

Буду иметь ввиду. Теперь только осталось определить адрес этого pageBreak и добавлять туда итог
Спасибо за наводку.

[Gustav]

Цитата:

Сообщение от vasiliy

Теперь только осталось определить адрес этого pageBreak и добавлять туда итог

Копайте в сторону HPageBreak.Location. Возвращается объект Range, т.е. ячейка - НИЖЕ HPageBreak:

Цитата:

Location Property

For the HPageBreak and VPageBreak objects, this property returns or sets the cell (a Range object) that defines the page-break location. Horizontal page breaks are aligned with the top edge of the location cell; vertical page breaks are aligned with the left edge of the location cell. Read/write Range.

[vasiliy]

Спасибо, как раз маялся с этим Location

[Gustav]

Вот, доктора прямо английским по-белому пишут про GET.DOCUMENT(50):
How to determine how many pages will be printed in Excel

А вот это вообще круть - на формулах сделано:
Page Of Pages in a Cell

Во второй ссылке создаются вот такие имена с такими формулами (не связанными явно с ячейками!). Чтобы создать такие имена надо в Excel'е нажать Ctrl+F3 (или по меню: Вставить-Имя-Присвоить) и далее ввести в поле "Имя" то, что до двоеточия, а в поле "Формула" то, что после.

Для английской версии Excel:
RowAfterpgbrk : =GET.DOCUMENT(64)
TotPageCount : =GET.DOCUMENT(50)
PageOfPages : ="Page " & IF(ISNA(MATCH(ROW(),RowAfterpgbrk,1)),1,MATCH(ROW(),RowAfterpgbrk,1)+1)& " of " & TotPageCount + 0*NOW()
ThisPage : =IF(ISNA(MATCH(ROW(),RowAfterpgbrk,1)),1,MATCH(ROW(),RowAfterpgbrk,1)+1)

Для русской версии Excel:
RowAfterpgbrk: =ПОЛУЧИТЬ.ДОКУМЕНТ(64)
TotPageCount : =ПОЛУЧИТЬ.ДОКУМЕНТ(50)
PageOfPages : ="Page " & ЕСЛИ(ЕНД(ПОИСКПОЗ(СТРОКА(),RowAfterpgbrk,1)),1,ПОИСКПОЗ(СТРОКА(),RowAfterpgbrk,1)+1)& " of " & TotPageCount + 0*ТДАТА()
ThisPage : =ЕСЛИ(ЕНД(ПОИСКПОЗ(СТРОКА(),RowAfterpgbrk,1)),1,ПОИСКПОЗ(СТРОКА(),RowAfterpgbrk,1)+1)

Следуя указаниям второй ссылки создал свой примерчик с этими формулами. Посмотрите вложение (немножко подождите при открытии, чтобы пересчитались формулы). Посмотрите Print Preview. В общем, занятная штуковина...

Еще раз смысл происходящего: есть возможность выяснить при помощи формул, на какой лист при распечатке попадет та или иная строка листа Excel.

[fedka]

Цитата:

Сообщение от Gustav

Вот, доктора прямо английским по-белому пишут про GET.DOCUMENT(50):
How to determine how many pages will be printed in Excel

Странно, этот подход у меня ни в какую не работает.
cv.double() - выдает 0
cv.toString() - выдает 0x800A07ED VT_ERROR

Если смотрю через макрос в экселе :
"MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
" pages will be printed."
- отрабатывает конечно... 0x800A07ED VT_ERROR

[Gustav]

Может, у Вас какие-нибудь языковые проблемы типа как здесь? Может, надо по-русски ПОЛУЧИТЬ.ДОКУМЕНТ писать?

[fedka]

Действитель, Вы правы. Главное вчера читал вашу ссылку, об этом думал, но пост выше моего "TotPageCount : =ПОЛУЧИТЬ.ДОКУМЕНТ(50)" не заметил ) Спасибо!

[CDan]

Цитата:

Сообщение от vasiliy

Как при выгрузке можно определить что достигнут конец страницы? Высота строк может быть разной, поэтому простой подсчет не подходит.

Была подобная задачка, поначалу тоже пробовал пользовать коллекцию HPageBreaks.
Но высота добавляемой строки с итогами может оказаться большей высоты последней строки страницы, и итоги вполне могут появиться в заголовке следующей.

Высота строки:

COMVariant  height;
COM            r = excelDocument.findRange("a1");

height = r.height();
info(int2str(height.double())

Используйте простой подсчет - это сильно, но Оккуратно

[AxCustomer]

Цитата:

Сообщение от CDan

Была подобная задачка, поначалу тоже пробовал пользовать коллекцию HPageBreaks.
Но высота добавляемой строки с итогами может оказаться большей высоты последней строки страницы, и итоги вполне могут появиться в заголовке следующей.

Зачем добавлять строку, если можно писать непосредственно в колонтитул страницы Excel? Допустим:
Worksheets(1).PageSetup.RightFooter = SumPage,
где SumPage = требуемое значение, вычисленное, например, при помощи HPageBreaks

[Gustav]

Цитата:

Сообщение от AxCustomer

Зачем добавлять строку, если можно писать непосредственно в колонтитул страницы Excel? Допустим:
Worksheets(1).PageSetup.RightFooter = SumPage,
где SumPage = требуемое значение, вычисленное, например, при помощи HPageBreaks

Не сильно много чего можно в колонтитул написать, а требуется, вроде, итоговая строка внизу каждой страницы со структурой, аналогичной структуре таблицы (т.е. ячейки, бордюрчики, цвет и т.п.).