7.7 Как создать внешнюю печатную форму

Народ подскажите алгоритм создание внешнюю печатную форму в 1с 7.7. искал в инете по 8-ке есть инфа а вот по 7-ке нету

конфигурация бухгалтерия 7.7. есть печатная форма М-11 нужно добавить одну колонку знаю что есьт способ сделать через внешнюю печатную форму никогад с этим не сталкивался в инете ничего найти немогу по 7-ке как сделать

Спойлер

Код:

Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
Если Докум.АвтоСписание <> 1 Тогда
Предупреждение("По документу отсутствует автосписание материалов!");
КонецЕсли;  
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
ПодразделениеПолучатель  = Докум.Подразделение;
ПодразделениеОтправитель = Докум.МестоХраненияМатериалов;
Опер=СоздатьОбъект("Операция");
Если Опер.НайтиОперацию(Докум.ТекущийДокумент()) = 1 Тогда
НомерПовторяемойСтроки = 15;
Таб.ВывестиСекцию("Шапка");
Опер.ВыбратьПроводки();
Пока Опер.ПолучитьПроводку() = 1 Цикл
Если ((ЛЕВ(Строка(Опер.Кредит.Счет),2) = "10") ИЛИ
(ЛЕВ(Строка(Опер.Кредит.Счет),2) = "43") ИЛИ
(ЛЕВ(Строка(Опер.Кредит.Счет),2) = "21")) Тогда
Субсчет		    = Опер.Кредит.Счет;
Материал		   = Опер.Кредит.Субконто(1);
Код			    = Материал.Код;
ЕдиницаИзмерения   = Материал.ЕдиницаИзмерения;
ЕдиницаИзмеренияКод= Материал.ЕдиницаИзмерения.Код;
Количество		 = Опер.Количество;
МатериалСумма	  = Опер.Сумма;
МатериалЦенаБезНДС = Опер.Сумма / Опер.Количество;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.Опции(0, 0, 0, 0, "ОпцииПечатиМ11", "ОкноМ11");
Таб.ПовторятьПриПечатиСтроки(13,15);
Таб.ПараметрыСтраницы(1,,,5,5,5,5,0,0,1,1,);
Таб.ТолькоПросмотр(1);
Таб.Показать("Требование-накладная (форма №М-11)");
Иначе
Предупреждение("Не нашли операцию по документу");
КонецЕсли;  
КонецПроцедуры // Печать

Процедура ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
Докум	  = Форма.Параметр.Получить("Контекст");
Устройство = Форма.Параметр.Получить("Устройство");
КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
Печать(Докум, Устройство, КолвоКопий);
Статусвозврата(0);
Возврат;
КонецЕсли;
КонецПроцедуры

не подскажите как просуммировать столбец в печатной форме

как я понял так :

перем СуммаМатериалЦенаБезНДС;

Код:

Пока Опер.ПолучитьПроводку() = 1 Цикл
Если ((ЛЕВ(Строка(Опер.Кредит.Счет),2) = "10") ИЛИ
(ЛЕВ(Строка(Опер.Кредит.Счет),2) = "43") ИЛИ
(ЛЕВ(Строка(Опер.Кредит.Счет),2) = "21")) Тогда
Субсчет = Опер.Кредит.Счет;
Материал = Опер.Кредит.Субконто(1);
Код = Материал.Код;
СуммаМатериалЦенаБезНДС =0;

СуммаМатериалЦенаБезНДС = МатериалЦенаБезНДС+СуммаМатериалЦенаБезНДС

так ????