|
|
|
|
|
|
|
|
|
||||||||||||||||||||||||||||
|
|
[CODE] Кнопка печать через БСП (Программно 1С)
&НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) ТабДокумент = Заполнялка(ПараметрКоманды); //Создаём новую коллекцию печатных форм КоллекцияПечатныхФорм = УправлениеПечатьюКлиент.НоваяКоллекцияПечатныхФорм("ПечатьБланка"); //Добавляем в коллекцию сформированный табличный документ КоллекцияПечатныхФорм[0].ТабличныйДокумент = ТабДокумент; //Устанавливаем параметры печати (при необходимости) КоллекцияПечатныхФорм[0].Экземпляров = 1; КоллекцияПечатныхФорм[0].СинонимМакета = "ПечатьБланка"; //Так будет выглядеть имя файла при сохранении в файл из формы "Печать документов" //Вывод через стандартную процедуру БСП УправлениеПечатьюКлиент.ПечатьДокументов(КоллекцияПечатныхФорм, Неопределено, Неопределено); КонецПроцедуры &НаСервере Функция ПолучениеМакета(ДокСсылка) Попытка Макет = УправлениеПечатью.МакетПечатнойФормы("Документ.пмДокументАвтосервиса.ПФ_MXLПечатьЗаказНаряд"); исключение Макет = ДокСсылка.ПолучитьОбъект().ПолучитьМакет("ПФ_MXLПечатьЗаказНаряд"); КонецПопытки; Возврат Макет; КонецФункции &НаСервере Функция Заполнялка(ДокСсылка) Экспорт ТабДокумент = Новый ТабличныйДокумент; ТабДокумент.АвтоМасштаб = истина ; ТабДокумент.ОтображатьСетку = Ложь; ТабДокумент.ТолькоПросмотр = Истина; ТабДокумент.ОтображатьЗаголовки = Ложь; Макет = ПолучениеМакета(ДокСсылка); СсылкаНаОбъект = ДокСсылка ; ОбластьМакета = Макет.ПолучитьОбласть("Область1"); ОбластьМакета.Параметры.ЮрЛицо = ДокСсылка.Организация.НаименованиеСокращенное ; ТабДокумент.Вывести(ОбластьМакета); Возврат ТабДокумент; КонецФункции
Данный код можно можно разместить в команде для отдельной кнопки печати, в модуле объекта (справочника или документа) Количество показов: 1421 Дата изменения: 05.09.2024 06:09:25
|
||||||||||||||||||||||||||||||||||
Модули Статьи Отзывы Кабинет Поддержка | ||||||||||||||||||||||||||||||||||||
@ !pride, 1module. Все права защищены. 2003 -
2024
|