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

[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)" не заметил ) Спасибо!