Сбивается сортировка в печатной форме при выводе на печать

Функция ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, ИмяМакета,Специальность=Неопределено)
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	
	ПервыйДокумент = Истина;
	
	Для Каждого ТекущийДокумент Из МассивОбъектов Цикл
		
		Если Не ПервыйДокумент Тогда
			ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;
		ПервыйДокумент = Ложь;
		
		НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;
		
		Если ИмяМакета = "РейтингАбитуриентов" Тогда
			
			Запрос = Новый Запрос();
			Запрос.УстановитьПараметр("ТекущийДокумент", ТекущийДокумент);
			Запрос.Текст = 
			"ВЫБРАТЬ
			|	РейтингАбитуриентов.БазыОсвоенияПрограммОбучения КАК БазыОсвоенияПрограммОбучения,
			|	РейтингАбитуриентов.Дата КАК Дата,
			|	РейтингАбитуриентов.ИсключитьЦелевиков КАК ИсключитьЦелевиков,
			|	РейтингАбитуриентов.Организация КАК Организация,
			|	РейтингАбитуриентов.План КАК План,
			|	РейтингАбитуриентов.ПолученноеОбразование КАК ПолученноеОбразование,
			|	РейтингАбитуриентов.Специальность КАК Специальность,
			|	РейтингАбитуриентов.Финансирование КАК Финансирование,
			|	РейтингАбитуриентов.ФормаОбучения КАК ФормаОбучения,
			|	РейтингАбитуриентов.ЦелевоеНаправление КАК ЦелевоеНаправление,
			|	РейтингАбитуриентов.СписокАбитуриентовПоСобеседованию.(
			|		НомерСтроки КАК НомерСтроки,
			|		АнкетаАбитуриента КАК АнкетаАбитуриента,
			|		Абитуриент КАК Абитуриент,
			|		ЦелевоеНаправление КАК ЦелевоеНаправление,
			|		Комментарий КАК Комментарий,
			|		АнкетаАбитуриента.ВидДокументаОбразования КАК АнкетаАбитуриентаВидДокументаОбразования,
			|		КопияАттестата КАК КопияАттестата,
			|		АнкетаАбитуриента.ЕстьЦелевойДоговор КАК АнкетаАбитуриентаЕстьЦелевойДоговор,
			|		АнкетаАбитуриента.СреднийБаллАттестата КАК АнкетаАбитуриентаСреднийБаллАттестата
			|	) КАК СписокАбитуриентовПоСобеседованию,
			|	РейтингАбитуриентов.СписокАбитуриентовКЗачислению.(
			|		НомерСтроки КАК НомерСтроки,
			|		АнкетаАбитуриента КАК АнкетаАбитуриента,
			|		Абитуриент КАК Абитуриент,
			|		СуммаБаллов КАК СуммаБаллов,
			|		ЦелевоеНаправление КАК ЦелевоеНаправление,
			|		Комментарий КАК Комментарий,
			|		АнкетаАбитуриента.ВидДокументаОбразования КАК АнкетаАбитуриентаВидДокументаОбразования,
			|		КопияАттестата КАК КопияАттестата,
			|		АнкетаАбитуриента.ЕстьЦелевойДоговор КАК АнкетаАбитуриентаЕстьЦелевойДоговор,
			|		АнкетаАбитуриента.СреднийБаллАттестата КАК АнкетаАбитуриентаСреднийБаллАттестата
			|	) КАК СписокАбитуриентовКЗачислению,
			|	РейтингАбитуриентов.СписокАбитуриентовКРаспределению.(
			|		НомерСтроки КАК НомерСтроки,
			|		АнкетаАбитуриента КАК АнкетаАбитуриента,
			|		Абитуриент КАК Абитуриент,
			|		СуммаБаллов КАК СуммаБаллов,
			|		ЦелевоеНаправление КАК ЦелевоеНаправление,
			|		Комментарий КАК Комментарий,
			|		КопияАттестата КАК КопияАттестата,
			|		АнкетаАбитуриента.ВидДокументаОбразования КАК АнкетаАбитуриентаВидДокументаОбразования,
			|		АнкетаАбитуриента.СреднийБаллАттестата КАК АнкетаАбитуриентаСреднийБаллАттестата,
			|		АнкетаАбитуриента.ЕстьЦелевойДоговор КАК АнкетаАбитуриентаЕстьЦелевойДоговор
			|	) КАК СписокАбитуриентовКРаспределению
			|ИЗ
			|	Документ.РейтингАбитуриентов КАК РейтингАбитуриентов
			|ГДЕ
			|	РейтингАбитуриентов.Ссылка = &ТекущийДокумент";
			Шапка = Запрос.Выполнить().Выбрать();
			Шапка.Следующий();
				
			// СпециальностьДисциплины = Шапка.СпециальностьДисциплины.Выбрать();
				
			ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РейтингАбитуриентов_РейтингАбитуриентов";
				
			Макет = УправлениеПечатью.МакетПечатнойФормы("Документ.РейтингАбитуриентов.ПФ_MXL_РейтингАбитуриентов");

			ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
			ОбластьМакета.Параметры.Организация =Шапка.Организация ;
			ОбластьМакета.Параметры.Дата= Шапка.Дата;
			ОбластьМакета.Параметры.Специальность=Шапка.Специальность;
			ОбластьМакета.Параметры.Финансирование=Шапка.Финансирование;
			ОбластьМакета.Параметры.ПолученноеОбразование= Шапка.ПолученноеОбразование;
			ОбластьМакета.Параметры.БазыОсвоенияПрограммОбучения= Шапка.БазыОсвоенияПрограммОбучения;
			ОбластьМакета.Параметры.ЦелевоеНаправление= Шапка.ЦелевоеНаправление;
			ОбластьМакета.Параметры.ИсключитьЦелевиков= Шапка.ИсключитьЦелевиков;
							
			ТабличныйДокумент.Вывести(ОбластьМакета);
			
			ТабличныйДокумент.Вывести(Макет.ПолучитьОбласть("СписокАбитуриентовПоСобеседованиюШапка"));
			
			ОбластьМакета = Макет.ПолучитьОбласть("СписокАбитуриентовПоСобеседованию");
			СписокАбитуриентовПоСобеседованию = Шапка.СписокАбитуриентовПоСобеседованию.Выбрать();
	
			Пока СписокАбитуриентовПоСобеседованию.Следующий() Цикл
				
				ОбластьМакета.Параметры.НомерСтроки=СписокАбитуриентовПоСобеседованию.НомерСтроки;
				//ОбластьМакета.Параметры.АнкетаАбитуриента=СписокАбитуриентовПоСобеседованию.АнкетаАбитуриента;
				ОбластьМакета.Параметры.Абитуриент=СписокАбитуриентовПоСобеседованию.Абитуриент;
//				ОбластьМакета.Параметры.ЦелевоеНаправление=СписокАбитуриентовПоСобеседованию.ЦелевоеНаправление;
				//ОбластьМакета.Параметры.Комментарий=СписокАбитуриентовПоСобеседованию.Комментарий;
				ОбластьМакета.Параметры.Копия=СписокАбитуриентовПоСобеседованию.КопияАттестата;
				
				ТабличныйДокумент.Вывести(ОбластьМакета);
					
			КонецЦикла;
			
			ТабличныйДокумент.Вывести(Макет.ПолучитьОбласть("СписокАбитуриентовКЗачислениюШапка"));
			
			ОбластьМакета = Макет.ПолучитьОбласть("СписокАбитуриентовКЗачислению");
			СписокАбитуриентовПоСобеседованию = Шапка.СписокАбитуриентовКЗачислению.Выбрать();
	
			Пока СписокАбитуриентовПоСобеседованию.Следующий() Цикл
				
				ОбластьМакета.Параметры.НомерСтроки=СписокАбитуриентовПоСобеседованию.НомерСтроки;
//				ОбластьМакета.Параметры.АнкетаАбитуриента=СписокАбитуриентовПоСобеседованию.АнкетаАбитуриента;
				ОбластьМакета.Параметры.Абитуриент=СписокАбитуриентовПоСобеседованию.Абитуриент;
				ОбластьМакета.Параметры.СуммаБаллов=СписокАбитуриентовПоСобеседованию.СуммаБаллов;
//				ОбластьМакета.Параметры.ЦелевоеНаправление=СписокАбитуриентовПоСобеседованию.ЦелевоеНаправление;
				//ОбластьМакета.Параметры.Комментарий=СписокАбитуриентовПоСобеседованию.Комментарий;
				ОбластьМакета.Параметры.Копия=СписокАбитуриентовПоСобеседованию.КопияАттестата;
				ОбластьМакета.Параметры.СБА = СписокАбитуриентовПоСобеседованию.АнкетаАбитуриентаСреднийБаллАттестата;
				ОбластьМакета.Параметры.Целевой = СписокАбитуриентовПоСобеседованию.АнкетаАбитуриентаЕстьЦелевойДоговор; 

				ТабличныйДокумент.Вывести(ОбластьМакета);
					
			КонецЦикла;

            ТабличныйДокумент.Вывести(Макет.ПолучитьОбласть("СписокАбитуриентовКРаспределениюШапка"));
			
			ОбластьМакета = Макет.ПолучитьОбласть("СписокАбитуриентовКРаспределению");
			СписокАбитуриентовПоСобеседованию = Шапка.СписокАбитуриентовКРаспределению.Выбрать();
	
			Пока СписокАбитуриентовПоСобеседованию.Следующий() Цикл
				
				ОбластьМакета.Параметры.НомерСтроки=СписокАбитуриентовПоСобеседованию.НомерСтроки;
				//ОбластьМакета.Параметры.АнкетаАбитуриента=СписокАбитуриентовПоСобеседованию.АнкетаАбитуриента;
				ОбластьМакета.Параметры.Абитуриент=СписокАбитуриентовПоСобеседованию.Абитуриент;
				ОбластьМакета.Параметры.СуммаБаллов=СписокАбитуриентовПоСобеседованию.СуммаБаллов;
				//ОбластьМакета.Параметры.ЦелевоеНаправление=СписокАбитуриентовПоСобеседованию.ЦелевоеНаправление;
				//ОбластьМакета.Параметры.Комментарий=СписокАбитуриентовПоСобеседованию.Комментарий;
				ОбластьМакета.Параметры.Копия=СписокАбитуриентовПоСобеседованию.КопияАттестата;
				ОбластьМакета.Параметры.СБА = СписокАбитуриентовПоСобеседованию.АнкетаАбитуриентаСреднийБаллАттестата;
				ОбластьМакета.Параметры.Целевой = СписокАбитуриентовПоСобеседованию.АнкетаАбитуриентаЕстьЦелевойДоговор;
				ТабличныйДокумент.Вывести(ОбластьМакета);
					
			КонецЦикла;
		// ИначеЕсли ИмяМакета = "" Тогда
		//	// ТелоОбработкиПечати			
		// ИначеЕсли ИмяМакета = "" Тогда
		//	// ТелоОбработкиПечати
		КонецЕсли;
		
		УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати, ТекущийДокумент);
		
	КонецЦикла;
	
	ТабличныйДокумент.АвтоМасштаб = Истина;
	
	Возврат ТабличныйДокумент;
	
КонецФункции // ПечатнаяФорма()