Вход | Регистрация

1С:Предприятие :: 1С:Предприятие 7.7 и ранее

v7: Сохранение печатной формы (выходной таблицы) в ексель

v7: Сохранение печатной формы (выходной таблицы) в ексель
Я
   РусскийВедун
 
04.12.18 - 14:13
Если печатаю из 1с, то печатается на один лист (все как надо), а если же сохраняю в ексель и печатаю из ексель, то форма разбивается на 4 листа. Как решить?
Есть похожая статья Сохранение печатной формы (выходной таблицы) в ексель .
Но так не получается... или наобум написана, либо ошибка закралась.
 
 
   РусскийВедун
 
1 - 04.12.18 - 14:17
Процедура ВыполнитьСохранение (ИмяВременногоФайла)
    гТаблица.Записать (ИмяВременногоФайла);
    Документ = СоздатьОбъект ("ТабличныйДокумент");
    Документ.Открыть (ИмяВременногоФайла);
    //Йоксель        = СоздатьОбъект("ТабличныйДокумент");

    Конвертер = СоздатьОбъект ("КонвертерExcel");
    Книга = Конвертер.Создать ();
    Йоксель.ЗагрузитьИзТаблицы(Таб);
    Параметры    =   Документ.ПараметрыПечати;
    Параметры.ПолеСверху    = 50;
    Параметры.ПолеСнизу        = 50;    
    Параметры.ПолеСлева        = 50;
    Параметры.ПолеСправа    = 50;
    Параметры.Ориентация    = 2;
    Книга.Листы.Добавить (ВыбНазваниеЛиста, Документ);
    Книга.ПараметрыКонвертера.РаспознаватьЧисловыеЗначения = 0;
    Книга.Записать (ВыбИмяФайла);
КонецПроцедуры

Пробую вот так, ошибка выскакивает на параметрах печати.
   РусскийВедун
 
2 - 04.12.18 - 14:22
Процедура ВыполнитьСохранение (ИмяВременногоФайла)
    гТаблица.Записать (ИмяВременногоФайла);
    Документ = СоздатьОбъект ("ТабличныйДокумент");
    Документ.Открыть (ИмяВременногоФайла);
    Конвертер = СоздатьОбъект ("КонвертерExcel");
    Книга = Конвертер.Создать ();
    Параметры    =   Документ.ПараметрыПечати;
    Параметры.ПолеСверху    = 50;
    Параметры.ПолеСнизу        = 50;    
    Параметры.ПолеСлева        = 50;
    Параметры.ПолеСправа    = 50;
    Параметры.Ориентация    = 2;
    Книга.Листы.Добавить (ВыбНазваниеЛиста, Документ);
    Книга.ПараметрыКонвертера.РаспознаватьЧисловыеЗначения = 0;
    Книга.Записать (ВыбИмяФайла);
КонецПроцедуры

в (1) была мелкая ошибка.
Ошибка выскакивает на параметрах печати
   ADirks
 
3 - 04.12.18 - 14:25
(2) Йоксель не той системы?
в 1.1.26 всё работает
   РусскийВедун
 
4 - 04.12.18 - 14:29
(3) ты про SpreadSheet.dll? Версия 0.3.0.0 от 2008 года
   ADirks
 
5 - 04.12.18 - 14:39
(4) ага, про него
даже 1.1.27, от 20.04.2012
   ADirks
 
6 - 04.12.18 - 14:51
   РусскийВедун
 
7 - 04.12.18 - 15:18
(6) помогло спасибо.

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует