При печати большого числа картинок не хватает памяти

Для каждого стр из Табл Цикл

        МассивСтраницы = Новый Массив;//его надо обнулять в цикле

        ТабДок.Вывести(ОблЗаголовок);
        ОблПодвал.Параметры.СписокНомеровКвартир = стр.НомераКвартир;

        //Найдем изображение (элемент справочника ХДИ_ОР) для данной квартиры:
        Если не ЗначениеЗаполнено(ВыборкаОсновныхДанных.ИмяПланировки) Тогда
            Сообщить("Не заполнено Имя планировки для данной квартиры", СтатусСообщения.Внимание);
            Возврат;
        КонецЕсли;
        Запрос = Новый Запрос("ВЫБРАТЬ
        |    ХранилищеДополнительнойИнформацииОР.ИмяФайла,
        |    ХранилищеДополнительнойИнформацииОР.Хранилище
        |ИЗ
        |    Справочник.ХранилищеДополнительнойИнформацииОР КАК ХранилищеДополнительнойИнформацииОР
        |ГДЕ
        |    не ХранилищеДополнительнойИнформацииОР.ПометкаУдаления
        |    И ХранилищеДополнительнойИнформацииОР.ВидДанных = Значение(Перечисление.ВидыДополнительнойИнформацииОбъектов.Изображение)
        |    И ХранилищеДополнительнойИнформацииОР.Объект = &Объект
        |    И ХранилищеДополнительнойИнформацииОР.Наименование = &Наименование");
        Запрос.УстановитьПараметр("Объект", СсылкаОбъекта.ОбъектСтроительства);
        Запрос.УстановитьПараметр("Наименование", стр.ИмяПланировки);
        ХДИ = Запрос.Выполнить().Выбрать();
        Если ХДИ.Следующий() Тогда
            //вытащим изображение
            Если ЗначениеЗаполнено(ХДИ.ИмяФайла) и (Лев(ХДИ.ИмяФайла, 1) <> ".") Тогда
                //возьми изо-ние из файла:
                //Надо взять и выделить из ИмяФайла само имя (с расширением), а каталог взять из константы:
                КаталогХранилищаФайлов = Константы.ХранилищеФайловПуть.Получить();
                Подкаталог = "\Изображения\";
                ДополнительныеПроцедурыОР.РазделитьИмена(ХДИ.ИмяФайла, ИмяКаталога1, ИмяСРасширением);//выделяет из полного имени файла ИмяКаталога и Имя с расширением
                ИмяФайлаИсточника = КаталогХранилищаФайлов + Подкаталог + ИмяСРасширением;
                ТекущаяКартинка = Новый Картинка(ИмяФайлаИсточника);
            Иначе
                //возьми изображение из реквизита Хранилище
                ТекущаяКартинка = ХДИ.Хранилище.Получить();
            КонецЕсли;
        Иначе
            Сообщить("Не найден файл с планировкой для данной квартиры", СтатусСообщения.Внимание);
            Возврат;
        КонецЕсли;

        //Выведем изображение в ТабДок:
        НомерСтраницы = НомерСтраницы + 1;
        рис=ОбластьСередина.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
        рис.Картинка=ТекущаяКартинка;
        Рис.Расположить(ОбластьСередина.ТекущаяОбласть);
        рис.Лево=2;
        рис.Ширина=170;
        рис.РазмерКартинки=РазмерКартинки.АвтоРазмер;
        ТабДок.Вывести(ОбластьСередина);
        ТабДок.Вывести(ОблПодвал);
        Если НомерСтраницы=Табл.Количество() Тогда
            ТабДок.Вывести(ОбластьПодписи);
        КонецЕсли;
        табдок.ВывестиГоризонтальныйРазделительСтраниц();
    КонецЦикла;