0
Zanzarchik
13.08.12
✎
23:44
|
Здравствуйте, волшебники 1С! Помогите, пожалуйста, разобраться с ActiveDocument. Такая вот ситуация у меня: создаю внешнюю печатную форму, н-р, для перемещения товаров (неважно). Макет этой печатной формы я создаю на основе шаблона Excel через ActiveDocument. Вот код, прописанный в модуле объекта моей внешней обработки:
/////////////////////////////////////////////////////////////
перем ДокументДляЭксэль Экспорт;
перем АктивныйДокумент Экспорт;
Функция Печать()Экспорт
Объект = СсылкаНаОбъект.ПолучитьОбъект();
ТЧ = Объект.Товары;
НашаОрганизация = Объект.Организация.Наименование;
АктивныйДокумент = ПолучитьМакет("Макет");
ДокументДляЭксэль = АктивныйДокумент.Получить();
ЯчейкаОрганизация = ДокументДляЭксэль.worksheets(1).Range("Организация");
ЯчейкаОрганизация.Value = НашаОрганизация;
ОбластьСтроки = ДокументДляЭксэль.worksheets(1).Range("Строка");
Строка = 1;
Для каждого Стр Из ТЧ Цикл
ОбластьСтроки.Cells(Строка,1).Value = Стр.НомерСтроки;
ОбластьСтроки.Cells(Строка,11).Value = Стр.Количество;
ОбластьСтроки.Cells(Строка,15).Value = Стр.ЦенаВРознице;
ОбластьСтроки.Cells(Строка,18).Value = Стр.ЦенаВРознице*Стр.Количество;
Строка = Строка + 1;
КонецЦикла;
ДокументДляЭксэль.Application.Visible = true;
ДокументДляЭксэль.Application.Workbooks(1).Windows(1).Visible = true;
ДокументДляЭксэль.Activate();
Возврат Неопределено;
КонецФункции
/////////////////////////////////////////////////////////////
Когда я использую просто внешнюю обработку - все работает, документ выводится на экран с заполненными параметрами. Если я подцепляю эту печатную форму к документу, то Excel открывается и сразу же закрывается. На этом форуме есть подобные темы, н-р: v8: Не получается открыть Active document Excel
Только предложенные там решения мне не помогли. Поэтому вопрос: как сделать так, чтобы печатная форма показывалась и не закрывалась?
|
|