Имя: Пароль:
1C
 
Как программно добавить кнопку "Печать" в общую форму "ПечатьДокументов"
,
0 Casper21
 
07.12.15
20:13
Я делаю внешнюю обработку в УТП 1С8.2 Редакция 1.3
Как программно добавить кнопку "Печать" в общую форму "ПечатьДокументов" в панель управления, в которой я печатаю табдок.

Процедура Друк()Экспорт
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    Макет = ПолучитьМакет("Макет");
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьСтрока = Макет.ПолучитьОбласть("СтрокаТаблицы");
    ТабДокумент.Вывести(ОбластьШапка);
    
    Для Каждого Зминна  Из ГоловнаТаблицяЗамовлень Цикл          
        ОбластьСтрока.Параметры.НомерДата = Зминна.Номер+" "+ Формат(Зминна.Дата,"ДФ=dd.MM.yyyy");
        ОбластьСтрока.Параметры.Заполнить(Зминна);
        ТабДокумент.Вывести(ОбластьСтрока);
        Если ОбластьСтрока.Параметры.НалПлатеж = "H"
            Тогда ТабДокумент.Область(ТабДокумент.ВысотаТаблицы,12,ТабДокумент.ВысотаТаблицы,12).ЦветФона = Новый Цвет(0,0,0);        
        КонецЕсли;    
    КонецЦикла;        
    ВысотаШапки   = ТабДокумент.ВысотаТаблицы;
    ШиринаТаблицы = ТабДокумент.ШиринаТаблицы;                           
    УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент,, , "Печать", , )    
КонецПроцедуры

http://f-picture.net/lfp/s020.radikal.ru/i706/1512/60/8bbb646ea5db.png/htm
Я вызываю форму эту через УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент,, , "Печать", , )  
Нечто похожее, кажется есть в РТУ, я взял отсюда. Но там есть кнопка "Печать" и количество копий. Это где-то нужно добавить ??
Или это зависит от параметров которые передают сюда  - УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент,, , "Печать", , ) ???
1 mehfk
 
07.12.15
20:42
2 Casper21
 
07.12.15
20:57
(1) я более подробно рассказал суть вопроса
3 Casper21
 
07.12.15
21:01
(1) и надеюсь что хоть кто-то поможет продвинуть мой проблемный вопрос
4 Casper21
 
07.12.15
21:02
вроде маленькая штука, но всьо же
5 Мимохожий Однако
 
07.12.15
21:02
Смотри в СП:
КП = ЭлементыФормы.КоманднаяПанель1;
КнопкаНажатие = Новый Действие("НоваяНажатие");
ТипКнопки = ТипКнопкиКоманднойПанели.Действие;
НоваяКнопка = КП.Кнопки.Добавить("КнопкаДействия",ТипКнопки,,,КнопкаНажатие);
НоваяКнопка.Картинка = БиблиотекаКартинок.Параметры;
НоваяКнопка.Отображение = ОтображениеКнопкиКоманднойПанели.Авто;
6 DrShad
 
07.12.15
21:38
Кури модуль менеджера