[mrvain]

Нечто такое

|	Таб=СоздатьОбъект("Таблица");
	глИсходнаяТаблица(Таб,"ПТС");
	Если один=1 Тогда
		Таб.ВывестиСекцию("А|1");
	Иначе
		Таб.ВывестиСекцию("В|1");
	КонецЕсли;
	Если (три=1) Тогда
		Таб.ПрисоединитьСекцию("А|2");
	КонецЕсли;
	Если (два=1) Тогда
		Таб.ВывестиСекцию("Б|1");
	Иначе
		Таб.ВывестиСекцию("В|1");
	КонецЕсли;
	Если четыре=1 Тогда
		Таб.ПрисоединитьСекцию("Б|2");
	КонецЕсли;
	Таб.ТолькоПросмотр(0);
	Таб.Опции(0,0,0,0);
	Таб.Показать("Печать ПТС");

глИсходнаяТаблица