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