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