Завершить печать и выдать ошибку?

КадровыеДанныеСотрудниковЗамена = КадровыйУчет.КадровыеДанныеСотрудников(Истина, Объект.ГЛ_СотрудникЗамещающий, "Должность, ДолжностьПоШтатномуРасписанию, Подразделение, РазрядКатегория", ТекущаяДата()); //массив
		
		Если ЗначениеЗаполнено(КадровыеДанныеСотрудниковЗамена) Тогда
			
			ДолжностьСотЗамена = КадровыеДанныеСотрудниковЗамена[0].Должность;
			ДолжностьСотЗаменаПодразделение = КадровыеДанныеСотрудниковЗамена[0].Подразделение;
			ДолжностьСотЗаменаРазряд = КадровыеДанныеСотрудниковЗамена[0].РазрядКатегория;
			
			Если ЗначениеЗаполнено(ДолжностьСотЗаменаРазряд) ИЛИ ЗначениеЗаполнено(Объект.ГЛ_СотрудникЗамещающий) ИЛИ ЗначениеЗаполнено(ДолжностьСотЗамена) ИЛИ ЗначениеЗаполнено(ДолжностьСотЗаменаПодразделение) Тогда
				ДанныеЗаголовка.Вставить("ПрофессияИРазряд", Строка(СЭ_ПолучитьСклонение(Объект.ГЛ_СотрудникЗамещающий,"ПД=Родительный", Ложь)) + " " + НРЕГ(Строка(СЭ_ПолучитьСклонение(ДолжностьСотЗамена,"ПД=Родительный", Ложь))) + " " + НРЕГ(Строка(СЭ_ПолучитьСклонение(ДолжностьСотЗаменаРазряд,"ПД=Родительный", Ложь)))  + " " + Строка(СЭ_ПолучитьСклонение(ДолжностьСотЗаменаПодразделение,"ПД=Родительный", Ложь)));
			Иначе
				Сообщить("Данные замещающего сотрудника не заполнены");
			КонецЕсли;
		Иначе
			Сообщить("Данные замещающего сотрудника не заполнены"); 
			Возврат;			
		КонецЕсли;