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