Имя: Пароль:
1C
1С v8
Внешние печатные формы, не выводится макет
0 jinny84
 
06.06.22
12:27
Добрый день. Есть внешняя печатная форма, но при нажатие на печать с клиента, макет на печать не выводится, при этом не каких ошибок нет, не подскажите как исправить:

<CODE>
Функция Печать(Идентификатор,назначение,МассивОбъектов) Экспорт
    
    //Адрес = ;
    //обр = ВнешниеОбработки.Создать(Адрес, Ложь);
    //обр.СсылкаНаОбъект = ЭтотОбъект.СсылкаНаОбъект;
    //Возврат обр.Печать();
    
    ЗаполнитьРеквизитыПечати();
    Если НЕ ПроверитьЗаполнение() Тогда
        Возврат Неопределено;        
    КонецЕсли;          
    
    ТабДок = Новый ТабличныйДокумент;
    Макет = ЭтотОбъект.ПолучитьМакет("ПФ_MXL_УПД");
    
    ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
    СтруктураДанныеПечатиШапки = ДанныеПечатиШапки(назначение);
    ОбластьМакета.Параметры.Заполнить(СтруктураДанныеПечатиШапки);
    //ОбластьМакета.Параметры.ИдентификаторГосКонтракта = "Идентификатор государственного контракта, договора (соглашения) (при наличии): " +
    //                                                    СтруктураДанныеПечатиШапки.ИдентификаторГосКонтракта;
    ТабДок.Вывести(ОбластьМакета);
    
    
    ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокТаблицы");
    ТабДок.Вывести(ОбластьМакета);
    ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Области.ЗаголовокТаблицы;
    
    ОбластьМакета = Макет.ПолучитьОбласть("Строка");
    ТаблицаПечатиТоваров = ТаблицаПечатиТоваров(назначение); //  ТаблицаПечатиТоваров = ТаблицаПечатиТоваров(МассивОбъектов);
    Для каждого СтрокаТаблицы Из ТаблицаПечатиТоваров Цикл
        
        ОбластьМакета.Параметры.Заполнить(СтрокаТаблицы);
        ТабДок.Вывести(ОбластьМакета);            
        
    КонецЦикла;
    
    ОбластьМакета = Макет.ПолучитьОбласть("Итого");
    ОбластьМакета.Параметры.ИтогоСтоимость = ТаблицаПечатиТоваров.Итог("Стоимость");
    ОбластьМакета.Параметры.ИтогоСуммаНДС = ТаблицаПечатиТоваров.Итог("СуммаНДС");
    ОбластьМакета.Параметры.ИтогоВсего = ТаблицаПечатиТоваров.Итог("Всего");    
    ТабДок.Вывести(ОбластьМакета);
    
    ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
    СтруктураДанныеПечатиПодвала = ДанныеПечатиПодвала(назначение);
    ОбластьМакета.Параметры.Заполнить(СтруктураДанныеПечатиПодвала);
    ТабДок.Вывести(ОбластьМакета);
    
    ОбластьМакета = Макет.ПолучитьОбласть("ПодвалНакладной");
    СтруктураДанныеПечатиПодвалаНакладной = ДанныеПечатиПодвалаНакладной(назначение);
    ОбластьМакета.Параметры.Заполнить(СтруктураДанныеПечатиПодвалаНакладной);
    ТабДок.Вывести(ОбластьМакета);    
    
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.КлючПараметровПечати = "MTF-10122, универсальный передаточный документ";
    
    ТабДок.ВерхнийКолонтитул.НачальнаяСтраница = 2;
    ТабДок.ВерхнийКолонтитул.ВертикальноеПоложение = ВертикальноеПоложение.Низ;
    ТабДок.ВерхнийКолонтитул.ТекстСлева = СтруктураДанныеПечатиШапки.Номер;
    ТабДок.ВерхнийКолонтитул.ТекстСправа = "Лист [&НомерСтраницы]";
    ТабДок.ВерхнийКолонтитул.Выводить = Истина;
    
    КоличествоСтраниц = ТабДок.КоличествоСтраниц();
    ПредставлениеКоличестваЛистов = "Документ составлен на " + КоличествоСтраниц + " " +
    ФормаМножественногоЧисла(КоличествоСтраниц, "листе", "листах", "листах");

    ОбластьКоличествоЛистов = ТабДок.НайтиТекст("#КоличествоЛистов");
    ОбластьКоличествоЛистов.Текст = ПредставлениеКоличестваЛистов;    
    
    //ТабДок.Показать("");
    Возврат ТабДок;
    
КонецФункции
</CODE>