Печать комплекта документов БП3.0

Процедура РаспечататьТабличныеДокументы(ТабличныеДокументы, ОбъектыПечати, Знач ПечататьКомплектами = Неопределено, Знач КоличествоКопийКомплектов = 1) Экспорт
	
	ПечататьКомплектами = ТабличныеДокументы.Количество() > 1;
	
	//*****Изменено*****// >>>
	//Некорректно печатает комплект документов с разбором по копиям!
	//Поэтому те ПФ, которые нужно напечатать в количестве большем чем 1,
	//разложим сами по 1 штуке несколько раз!
	
	ИмяПринтера = "";
	
	Для Каждого ТекТабДок Из ТабличныеДокументы Цикл	
		
		ТабДокНовыйСписок = Новый СписокЗначений;
		
		КолЭкз = ТекТабДок.Значение.КоличествоЭкземпляров;
		Если КолЭкз = 0 Тогда 
			КолЭкз = 1;
		КонецЕсли;
		
		ТабДок = ТекТабДок.Значение;
		Наим   = ТекТабДок.Представление;
		
		ТабДок.КоличествоЭкземпляров = 1;
		ТабДок.РазборПоКопиям = Ложь;
		
		Если ЗначениеЗаполнено(ТабДок.ИмяПринтера) И Не ЗначениеЗаполнено(ИмяПринтера) Тогда 
			ИмяПринтера = ТабДок.ИмяПринтера;
		ИначеЕсли Не ЗначениеЗаполнено(ТабДок.ИмяПринтера) И ЗначениеЗаполнено(ИмяПринтера) Тогда 
			ТабДок.ИмяПринтера = ИмяПринтера;
		КонецЕсли;
		
		Пока КолЭкз > 0 Цикл
			ТабДокНовыйСписок.Добавить(ТабДок,Наим);	
			КолЭкз = КолЭкз - 1;
		КонецЦикла;
		
		ПакетОтображаемыхДокументов = УправлениеПечатьюВызовСервера.ПакетДокументов(ТабДокНовыйСписок,
			ОбъектыПечати, Ложь, КоличествоКопийКомплектов);
		
		ПакетОтображаемыхДокументов.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать);
		
	КонецЦикла;
	
	Возврат;
	
	//*****Изменено*****// <<<
	
	ПакетОтображаемыхДокументов = УправлениеПечатьюВызовСервера.ПакетДокументов(ТабличныеДокументы,
		ОбъектыПечати, ПечататьКомплектами, КоличествоКопийКомплектов);
		
	ПакетОтображаемыхДокументов.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать);
	
КонецПроцедуры