|
0
Casper21
07.12.15
✎
20:13
|
Я делаю внешнюю обработку в УТП 1С8.2 Редакция 1.3
Как программно добавить кнопку "Печать" в общую форму "ПечатьДокументов" в панель управления, в которой я печатаю табдок.
Процедура Друк()Экспорт
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
Макет = ПолучитьМакет("Макет");
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьСтрока = Макет.ПолучитьОбласть("СтрокаТаблицы");
ТабДокумент.Вывести(ОбластьШапка);
Для Каждого Зминна Из ГоловнаТаблицяЗамовлень Цикл
ОбластьСтрока.Параметры.НомерДата = Зминна.Номер+" "+ Формат(Зминна.Дата,"ДФ=dd.MM.yyyy");
ОбластьСтрока.Параметры.Заполнить(Зминна);
ТабДокумент.Вывести(ОбластьСтрока);
Если ОбластьСтрока.Параметры.НалПлатеж = "H"
Тогда ТабДокумент.Область(ТабДокумент.ВысотаТаблицы,12,ТабДокумент.ВысотаТаблицы,12).ЦветФона = Новый Цвет(0,0,0);
КонецЕсли;
КонецЦикла;
ВысотаШапки = ТабДокумент.ВысотаТаблицы;
ШиринаТаблицы = ТабДокумент.ШиринаТаблицы;
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент,, , "Печать", , )
КонецПроцедуры
Я вызываю форму эту через УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент,, , "Печать", , )
Нечто похожее, кажется есть в РТУ, я взял отсюда. Но там есть кнопка "Печать" и количество копий. Это где-то нужно добавить ??
Или это зависит от параметров которые передают сюда - УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент,, , "Печать", , ) ???
|
|
|
5
Мимохожий Однако
07.12.15
✎
21:02
|
Смотри в СП:
КП = ЭлементыФормы.КоманднаяПанель1;
КнопкаНажатие = Новый Действие("НоваяНажатие");
ТипКнопки = ТипКнопкиКоманднойПанели.Действие;
НоваяКнопка = КП.Кнопки.Добавить("КнопкаДействия",ТипКнопки,,,КнопкаНажатие);
НоваяКнопка.Картинка = БиблиотекаКартинок.Параметры;
НоваяКнопка.Отображение = ОтображениеКнопкиКоманднойПанели.Авто;
|
|