Добрый день! После обновления на ЗУП 3.1.10 функция "ПодготовитьКоллекциюПечатныхФорм" перестала быть экспортной, поэтому
```1c
    КоллекцияФорм = УправлениеПечатью.ПодготовитьКоллекциюПечатныхФорм(ПечатнаяФорма);
```
 стало выдавать ошибку: "Метод объекта не обнаружен (ПодготовитьКоллекциюПечатныхФорм)".
В модуль формы ВПФ добавили функцию:

```1c
    Функция ПодготовитьКоллекциюПечатныхФорм(Знач Идентификаторы)

    Результат = Новый ТаблицаЗначений;
    Для Каждого ИмяКолонки Из УправлениеПечатьюКлиентСервер.ИменаПолейКоллекцииПечатныхФорм() Цикл
    Результат.Колонки.Добавить(ИмяКолонки);
    КонецЦикла;

    Если ТипЗнч(Идентификаторы) = Тип("Строка") Тогда
    Идентификаторы = СтрРазделить(Идентификаторы, ",");
    КонецЕсли;

    Для Каждого Идентификатор Из Идентификаторы Цикл
    ПечатнаяФорма = Результат.Найти(Идентификатор, "ИмяМакета");
    Если ПечатнаяФорма = Неопределено Тогда
    ПечатнаяФорма = Результат.Добавить();
    ПечатнаяФорма.ИмяМакета = Идентификатор;
    ПечатнаяФорма.ИмяВРЕГ = ВРег(Идентификатор);
    ПечатнаяФорма.Экземпляров = 1;
    Иначе
    ПечатнаяФорма.Экземпляров = ПечатнаяФорма.Экземпляров + 1;
    КонецЕсли;
    КонецЦикла;

    Результат.Индексы.Добавить("ИмяВРЕГ");
    Возврат Результат;

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

Заменили
```1c
    КоллекцияФорм = УправлениеПечатью.ПодготовитьКоллекциюПечатныхФорм(ПечатнаяФорма);
```

на
```1c
    КоллекцияФорм = ПодготовитьКоллекциюПечатныхФорм(ПечатнаяФорма);
```

Но выходит теперь сообщение об ошибке:
Значение не является значением объектного типа (Экземпляров)
   ПечатнаяФорма.Экземпляров = ПечатнаяФорма.Экземпляров + 1;

Как это исправить?
---
Решение здесь: https://forum.infostart.ru/forum9/topic220334/#message2285052

```1c
    Функция ПодготовитьКоллекциюПечатныхФорм(Знач ИменаМакетов)

    Макеты = Новый ТаблицаЗначений;
    Макеты.Колонки.Добавить("ИмяМакета");
    Макеты.Колонки.Добавить("ИмяВРЕГ");
    Макеты.Колонки.Добавить("СинонимМакета");
    Макеты.Колонки.Добавить("ТабличныйДокумент");
    Макеты.Колонки.Добавить("Экземпляров");
    Макеты.Колонки.Добавить("Картинка");
    Макеты.Колонки.Добавить("ПолныйПутьКМакету");
    Макеты.Колонки.Добавить("ИмяФайлаПечатнойФормы");
    Макеты.Колонки.Добавить("ОфисныеДокументы");

    Если ТипЗнч(ИменаМакетов) = Тип("Строка") Тогда
    ИменаМакетов = СтрРазделить(ИменаМакетов, ",");
    КонецЕсли;

    Для Каждого ИмяМакета Из ИменаМакетов Цикл
    Макет = Макеты.Найти(ИмяМакета, "ИмяМакета");
    Если Макет = Неопределено Тогда
    Макет = Макеты.Добавить();
    Макет.ИмяМакета = ИмяМакета;
    Макет.ИмяВРЕГ = ВРег(ИмяМакета);
    Макет.Экземпляров = 1;
    Иначе
    Макет.Экземпляров = Макет.Экземпляров + 1;
    КонецЕсли;
    КонецЦикла;

    Возврат Макеты;

    КонецФункции
```
---
Посмотрите, есть ли такая колонка "Экземпляров " в вашей ТЗ и что там лежит
---
Нет такой
---
добавьте колонку

```1c
    Результат.Колонки.Добавить("Экземпляров");
```
---
Что у вас тут УправлениеПечатьюКлиентСервер.ИменаПолейКоллекцииПечатныхФорм()?
---
Вот
---
а имена колонок?
---
```1c
    Процедура ВыполнитьПечать()

    Если ТипЗнч(Объект.СсылкаНаОбъект) = Тип("СправочникСсылка.Сотрудники") Тогда

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

    Если Результат.Следующий() Тогда
    МассивОбъектовНазначения = Новый Массив;
    МассивОбъектовНазначения.Добавить(Результат.Ссылка);
    КонецЕсли;

    Иначе
    МассивОбъектовНазначения = Новый Массив;
    МассивОбъектовНазначения.Добавить(Объект.СсылкаНаОбъект);
    КонецЕсли;

    ПараметрыВывода = ПодготовитьСтруктуруПараметровВывода();

    ОбъектыПечати = Новый СписокЗначений;

    КоллекцияФорм = ПодготовитьКоллекциюПечатныхФорм(ПечатнаяФорма);

    ЭтотОбъект().Печать(МассивОбъектовНазначения, КоллекцияФорм, ОбъектыПечати, ПараметрыВывода);

    ТабличноеПоле.Очистить();

    Для каждого СтрокаТаблицы Из КоллекцияФорм Цикл
    Если СтрокаТаблицы.ТабличныйДокумент <> Неопределено Тогда
    ТабличноеПоле = СтрокаТаблицы.ТабличныйДокумент;
    КонецЕсли;
    КонецЦикла;

    КонецПроцедуры
```
---
Эта процедура перестала быть экспортной. Скопируйте ее в вашу обработку и вызывайте локально.
---
Нет её больше ВААБЩЕ ни в БСП ни во всем решении, надо чем - то заменять
---
Решение здесь: https://forum.infostart.ru/forum9/topic220334/#message2285052

```1c
    Функция ПодготовитьКоллекциюПечатныхФорм(Знач ИменаМакетов)

    Макеты = Новый ТаблицаЗначений;
    Макеты.Колонки.Добавить("ИмяМакета");
    Макеты.Колонки.Добавить("ИмяВРЕГ");
    Макеты.Колонки.Добавить("СинонимМакета");
    Макеты.Колонки.Добавить("ТабличныйДокумент");
    Макеты.Колонки.Добавить("Экземпляров");
    Макеты.Колонки.Добавить("Картинка");
    Макеты.Колонки.Добавить("ПолныйПутьКМакету");
    Макеты.Колонки.Добавить("ИмяФайлаПечатнойФормы");
    Макеты.Колонки.Добавить("ОфисныеДокументы");

    Если ТипЗнч(ИменаМакетов) = Тип("Строка") Тогда
    ИменаМакетов = СтрРазделить(ИменаМакетов, ",");
    КонецЕсли;

    Для Каждого ИмяМакета Из ИменаМакетов Цикл
    Макет = Макеты.Найти(ИмяМакета, "ИмяМакета");
    Если Макет = Неопределено Тогда
    Макет = Макеты.Добавить();
    Макет.ИмяМакета = ИмяМакета;
    Макет.ИмяВРЕГ = ВРег(ИмяМакета);
    Макет.Экземпляров = 1;
    Иначе
    Макет.Экземпляров = Макет.Экземпляров + 1;
    КонецЕсли;
    КонецЦикла;

    Возврат Макеты;

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