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