Имеется печатная форма, нужно, что если реквизит не заполнен, выдается сообщение, и дальше программа не работает, как сделать?

ТабДок = Новый ТабличныйДокумент;
Если Не ЗначениеЗаполнено(Объект.НоменклатураАнализа.ВидНоменклатуры) Тогда
       Сообщить("Невозможно формирование печатной формы, необходимо заполнить реквизит 'Вид номенклатуры для сертификации ТМЦ' для номенклатуры анализа");
        ТабДок = Неопределено;
        Возврат 0;
   КонецЕсли;


Выдает ошибку: {ОбщийМодуль.ОтчетыИПечать.Модуль(233)}: Значение не является значением объектного типа (КоличествоЭкземпляров)
       ПечДокумент.КоличествоЭкземпляров = КоличествоЭкземпляров;
как быть?

Приведенный код не может выдавать эту ошибку

А что есть печДокумент?

(1) может, иначе я бы не спрашивал

(2) процедура из общего модуля:
Процедура глНапечататьДокумент(ПечДокумент, КоличествоЭкземпляров = 1, НаПринтер = Ложь, Заголовок = "") Экспорт

   Если ПечДокумент = Неопределено тогда        
       Возврат;
   КонецЕсли;

   // Получить необходимое количество копий
   Если КоличествоЭкземпляров < 1 Тогда
       ПечДокумент.КоличествоЭкземпляров = 1;
   Иначе
       ПечДокумент.КоличествоЭкземпляров = КоличествоЭкземпляров;
   КонецЕсли;

   Если НаПринтер Тогда

       ПечДокумент.Напечатать();

   Иначе

       // Отобразить печатный документ на экране
       ПечДокумент.ОтображатьЗаголовки = Ложь;
       ПечДокумент.ОтображатьСетку     = Ложь;
       ПечДокумент.Защита              = Не глДействиеДоступно("СохранениеВоВнешниеФайлы", ложь);
       ПечДокумент.ТолькоПросмотр      = Истина;
       ПечДокумент.Показать(Заголовок);

   КонецЕсли;

КонецПроцедуры // НапечататьДокумент()

И откуда она вызывается? Мы всё должны угадывать?

(4)Надо же, сам догадался. Без подсказки :))

Из моей процедуры:
Процедура Напечатать(ИмяПечатнойФормы,КоличествоЭкземпляров = 1 ,НаПринтер = ложь)   Экспорт
   
   
    //Получить экземпляр документа на печать
   Если ИмяПечатнойФормы = "УдостоверениеКачества" Тогда //1Т" Тогда
       ТабДокумент = СформироватьОтчет();
   КонецЕсли;
   
   Если ТабДокумент <> Неопределено Тогда
       глНапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ПечатныеФормы.СформироватьЗаголовокДокумента(Объект,ИмяПечатнойФормы));
   КонецЕсли;
   
КонецПроцедуры

СтруктураНастроекПечФормы = Неопределено;

Осталось увидеть СформироватьОтчёт()...

А лучше всего взять отладчик и...

Если Не ЗначениеЗаполнено(Объект.НоменклатураАнализа.ВидНоменклатуры) Тогда
ЗавершитьРаботуСистемы(ложь)
   КонецЕсли;

(8) в сформировать отчет нет полезной информации кроме той, которую я скинул в начале сообщения

(8)Отладчик? Не, не слышал.

Пока Выборка.Следующий() Цикл
Если Не ЗначениеЗаполнено()...

(10) Посмотри отладчиком, что передается в процедуру глНапечататьДокумент

Достаточно было закомментить
Если ТабДокумент <> Неопределено Тогда
       глНапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ПечатныеФормы.СформироватьЗаголовокДокумента(Объект,ИмяПечатнойФормы));
   КонецЕсли;

Мда... до такого даже я не додумаюсь

(15) такое чувство осталось, что (0) нас всех в дебилах оставил.

(12) самый сурьезный вариант, цикл замутить)

(16) Полностью с Вами согласна