Метод объекта не обнаружен (Печать)

Добавил ВПФ к документу
При попытке распечатать выдает ошибку:

Не удалось сформировать внешнюю печатную форму!
Метод объекта не обнаружен (Печать)

В чем проблема? Что не так?

Код:

Процедура ПечатьWord(ИмяМакета)

    Макет=ЭтотОбъект.ПолучитьМакет(ИмяМакета);
    MSWord=Макет.Получить();

     Попытка
        Документ = MSWord.Application.Documents(1);
        Документ.Activate();

        Замена = Документ.Content.Find;
        Замена.Execute("[НомерДоговора]", Ложь, Истина, Ложь, , , Истина, , Истина, СокрЛП(СсылкаНаОбъект.НомерДоговора));

        Замена = Документ.Content.Find;
        Замена.Execute("[ДатаДоговора]", Ложь, Истина, Ложь, , , Истина, , Ложь, СсылкаНаОбъект.ДатаДоговора);



        MSWord.Bookmarks(СокрЛП("Таблица3")).Select();
            Документ.Paragraphs.Add();
            Rng = MSWord.Application.Selection.Range;

        КонтактнаяИнформация = ПолучитьРеквизиты (СсылкаНаОбъект.Контрагент);

        Для Каждого Строка из КонтактнаяИнформация Цикл
            Если Строка.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента Тогда
                мСтрокаМФакт = СокрЛП (Строка.Представление);
            ИначеЕсли Строка.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента Тогда
                мСтрокаМЮр = СокрЛП (Строка.Представление);
            ИначеЕсли Строка.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда
                мСтрокаМТел = СокрЛП (Строка.Представление);
            КонецЕсли;
        КонецЦикла;
        Rng.InsertAfter(Строка("Фактический адрес: "+ СокрЛП(мСтрокаМФакт) +", Юридический адрес: "+ СокрЛП(мСтрокаМЮр)+", телефон "+ СокрЛП(мСтрокаМТел)));
         Rng.InsertParagraphAfter();
MSWord.Bookmarks(СокрЛП("Таблица4")).Select();
            Документ.Paragraphs.Add();
            Rng = MSWord.Application.Selection.Range;
            //Rng.InsertAfter(СокрЛП("Контрагент")+"РасСчет"+"*"+"КоррСчет"+"*"+"БИК");
            //Rng.InsertParagraphAfter();
            БанковскиеСчета = ПолучитьНомер (СсылкаНаОбъект.Контрагент);

    Для Каждого Строка из БанковскиеСчета Цикл

             мСтрокаМСчет = СокрЛП (Строка.НомерСчета);
             мСтрокаМКор = СокрЛП (Строка.КоррСчет);
             мСтрокаМБик = СокрЛП (Строка.Код);

         КонецЦикла;

    Rng.InsertAfter(Строка("р/с: "+ СокрЛП(мСтрокаМСчет) +", к/с: "+ СокрЛП(мСтрокаМКор)+", БИК "+ СокрЛП(мСтрокаМБик)));
         Rng.InsertParagraphAfter();



        MSWord.Application.Visible = Истина;
        MSWord.Activate();
    Исключение
        Сообщить(ОписаниеОшибки());
        MSWord.Application.Quit();

КонецПопытки
КонецПроцедуры

Функция ПолучитьРеквизиты(Плательщик)
    Запрос = Новый Запрос;
    Запрос.Текст=
                 "ВЫБРАТЬ
                 |    КонтактнаяИнформация.Объект,
                 |    КонтактнаяИнформация.Тип КАК Тип,
                 |    КонтактнаяИнформация.Вид,
                 |    КонтактнаяИнформация.Представление
                 |ИЗ
                 |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
                 |ГДЕ
                 |    КонтактнаяИнформация.Объект = &Организация
                 |
                 |УПОРЯДОЧИТЬ ПО
                 |    Тип
                 |АВТОУПОРЯДОЧИВАНИЕ";

    Запрос.УстановитьПараметр("Организация",Плательщик);
    КонтактнаяИнформация = Запрос.Выполнить().Выгрузить();

        Возврат КонтактнаяИнформация;

КонецФункции