Имя: Пароль:
1C
1С v8
Внешняя печатная форма на основе Active Document
0 Zanzarchik
 
13.08.12
14:01
Здравствуйте, волшебники 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
Только предложенные там решения мне не помогли. Поэтому вопрос: как сделать так, чтобы печатная форма показывалась и не закрывалась?
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс