&НаСервере
Процедура ДобавитьКнопкуПечатиРН()
РодительКоманд	=	элементы.ПодменюПечать;
ДобавитьКнопкуПечатиРННаСервере("РаспечататьРасходнуюНакладную"+РодительКоманд.имя,"Расходная накладная", "ДействияФормыРаспечататьРасходнуюНакладную",РодительКоманд , Тип("КнопкаФормы"));
КонецПроцедуры

&НаСервере Процедура ДобавитьКнопкуПечатиРННаСервере(Имя,Синоним,Действие,Родитель, Тип)

Если Тип = Тип("КнопкаФормы") Тогда
ИмяКоманды = Имя;
Команда = Команды.Добавить(ИмяКоманды);
Команда.Действие = Действие;
Команда.Заголовок = Родитель.Имя+"."+Имя;
КонецЕсли;
НовыйЭлемент = Элементы.Добавить(ИмяКоманды,Тип,Родитель);
Если Тип = Тип("КнопкаФормы") Тогда
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
КонецЕсли;
НовыйЭлемент.Заголовок = Синоним;

КонецПроцедуры