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


Процедура ПечатьНажатие(Элемент)      
    Друк();
КонецПроцедуры


а как добавить кнопку печать на этом  и число копий??

http://f-picture.net/lfp/s018.radikal.ru/i518/1512/54/ba9b549dfa31.png/htm
чтобы было вот так?
http://s020.radikal.ru/i723/1512/65/4f3e9f4179fa.png
1 Casper21
 
07.12.15
13:46
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент,,,,,)
Это здесь надо параметры задать? или нет
2 Casper21
 
07.12.15
14:33
а?
3 cw014
 
07.12.15
15:16
Дрюк???