Помогите с синтаксисом... процедура Печать()
Показывать по
10
20
40
сообщений
- 1
- 2
03.10.2011
15:15
#1
"Помогите с синтаксисом...
Есть процедура Печать() - как сделать так, чтобы документ выводился на печать не в отдельном окне, т.е. вынести
ТабДок = Новый ТабличныйДокумент; и ТабДок.Показать() за пределы процедуры в модуль?
-- Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Процедура Печать() Экспорт
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.РеализацияТоваров.ПолучитьМакет("Печать1");
// Заголовок Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
// Шапка Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект); ТабДок.Вывести(Шапка);
// Товары Область = Макет.ПолучитьОбласть("ТоварыШапка");
ТабДок.Вывести(Область);
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
Для Каждого ТекСтрокаТовары Из Товары Цикл ОбластьТовары.Параметры.Заполнить(ТекСтрокаТовары);
ТабДок.Вывести(ОбластьТовары); КонецЦикла; // Подвал Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Подвал);
ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры"
Есть процедура Печать() - как сделать так, чтобы документ выводился на печать не в отдельном окне, т.е. вынести
ТабДок = Новый ТабличныйДокумент; и ТабДок.Показать() за пределы процедуры в модуль?
-- Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Процедура Печать() Экспорт
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.РеализацияТоваров.ПолучитьМакет("Печать1");
// Заголовок Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
// Шапка Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект); ТабДок.Вывести(Шапка);
// Товары Область = Макет.ПолучитьОбласть("ТоварыШапка");
ТабДок.Вывести(Область);
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
Для Каждого ТекСтрокаТовары Из Товары Цикл ОбластьТовары.Параметры.Заполнить(ТекСтрокаТовары);
ТабДок.Вывести(ОбластьТовары); КонецЦикла; // Подвал Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Подвал);
ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры"
03.10.2011
16:28
#2
> чтобы документ выводился на печать не в отдельном окне
Не в отдельном окне, а где?
Не в отдельном окне, а где?
03.10.2011
18:18
#6
Т.е. несколько печатных форм промелькнут и исчезнут, а останется одна, которая выведена последняя?
03.10.2011
20:21
#8
"Может вам надо вместо:
> ТабДок = Новый ТабличныйДокумент;
дать команду:
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;"
> ТабДок = Новый ТабличныйДокумент;
дать команду:
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;"
- 1
- 2
Читают тему
(гостей: 1)