1с правильный вывод табличного документа на печать

Готовые тексты модулей и решений
Ответить
Аватара пользователя
admin
Администратор
Сообщения: 84
Зарегистрирован: 06 июл 2017 09:26

1с правильный вывод табличного документа на печать

Сообщение admin » 06 янв 2020 18:15

Код: Выделить всё

Если Не ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда
		Возврат;
	КонецЕсли;
	
	ИдентификаторПечатнойФормы = "СписокОшибокПриЗагрузкеExcel";
	НазваниеПечатнойФормы = НСтр("ru = 'СписокОшибокПриЗагрузкеExcel';
								|en = 'Cut card'");
	
	МодульУправлениеПечатьюКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеПечатьюКлиент");
		
	ТабДокумент = ФормированиеТабличногоДокументаНаСеврере();
	
	КоллекцияПечатныхФорм = УправлениеПечатьюКлиент.НоваяКоллекцияПечатныхФорм(ИдентификаторПечатнойФормы);
	
	ПечатнаяФорма = МодульУправлениеПечатьюКлиент.ОписаниеПечатнойФормы(КоллекцияПечатныхФорм, ИдентификаторПечатнойФормы);
	ПечатнаяФорма.СинонимМакета 		= НазваниеПечатнойФормы;
	ПечатнаяФорма.ТабличныйДокумент 	= ТабДокумент;
	ПечатнаяФорма.ИмяФайлаПечатнойФормы = НазваниеПечатнойФормы;
	
	ОбластиОбъектов = Новый СписокЗначений;
	МодульУправлениеПечатьюКлиент.ПечатьДокументов(КоллекцияПечатныхФорм, ОбластиОбъектов);

Ответить

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость