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

Тема в разделе "Delphi - СОМ", создана пользователем alexey, 6 дек 2005.

Статус темы:
Закрыта.
  1. alexey

    alexey Гость

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

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

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

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

Поделиться этой страницей