1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

    Скрыть объявление

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

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

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. alexey

    alexey Гость

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

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

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

    В общем этот вариант вообще не работает по страницам, НО если туда вписать следующее
    WorkSheet.PageSetup.RightFooter := '&[Страница]';
    Т.е. тоже что он пишет и в самом диалоговом окне - то тогда получается интереснее - сначала он это печатает просто как текст, но стоит лишь войти в св-ва страницы и войти-выйти в нужный колонтитул ничего не меняя, но все сохраняя -то Excel моментально начинает печать номера страницы как ни в чем не бывало.
    А самое интересное - если смотреть через макрос то там так и стоит эта же строчка
    .RightFooter = "&P"
     
Загрузка...
Похожие Темы - Нумерация страниц Excel
  1. Zhuk
    Ответов:
    18
    Просмотров:
    2.217
  2. Xalet
    Ответов:
    5
    Просмотров:
    4.279
  3. makaset
    Ответов:
    40
    Просмотров:
    13.752
  4. NEO007
    Ответов:
    51
    Просмотров:
    1.253
  5. MaxP
    Ответов:
    13
    Просмотров:
    376
Статус темы:
Закрыта.

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