вывод на печать в pdf- проблема

[madace]

Добрый день всем!
макрос выводит на печать отчет

With ActiveSheet.PageSetup
       
        .RightHeader = "страница &P из &N"
        .LeftFooter = TextBox17.Text
        End With

если оставить код так- то макрос не может определить количество страниц

если вначале установить связь (Application.PrintCommunication = True)
то работает, но не для виртуального pdf(foxit)
microsoft xps и onenote работают без проблем, а вот pdf- нет

помогите, плиз!