Нумерация страниц в Excel

  • Автор темы alexey
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

alexey

#1
Замучился уже :)
В общем макрос работает следующим образом

With ActiveSheet.PageSetup
.RightFooter = "&P"
End With

Я его ковертирую в следующее (только нужное) через OLE
var
WorkSheet:OleVariant;
...
WorkSheet.PageSetup.RightFooter := '&P';

В общем этот вариант вообще не работает по страницам, НО если туда вписать следующее
WorkSheet.PageSetup.RightFooter := '&[Страница]';
Т.е. тоже что он пишет и в самом диалоговом окне - то тогда получается интереснее - сначала он это печатает просто как текст, но стоит лишь войти в св-ва страницы и войти-выйти в нужный колонтитул ничего не меняя, но все сохраняя -то Excel моментально начинает печать номера страницы как ни в чем не бывало.
А самое интересное - если смотреть через макрос то там так и стоит эта же строчка
.RightFooter = "&P"
 
Статус
Закрыто для дальнейших ответов.