Имя: Пароль:
1C
1С v8
Изменение параметров страницы OpenOffice при печати из 1С
,
0 KorolevP
 
12.11.13
18:52
Всем добрый день!

Была разработана печатная форма под Excel. Использовались следующие методы по настройке макета:

Лист.PageSetup.Zoom = Ложь; //говорим что масштаб будет по размеру страницы            
Лист.PageSetup.FitToPagesWide = 1;  //Размешать не более чем на 1 страницу по ширине     
Лист.PageSetup.FitToPagesTall = Ложь; //Снимаем привязку масштаба к количеству страниц по высоте.

Также изменялась ориентация страницы:
ПараметрыСтраницы=Лист.PageSetup;
ПараметрыСтраницы.Orientation=2;

Клиент попросил сделать форму под OpenOffice, так как не на всех компьютерах есть Excel. Искал ответ на свой вопрос как в поиске, так и на смежных форумах, но ответа увы не увидел.

Каким образом можно задать ориентацию страницы из 1С при печати документа OpenOffice? Я понимаю что это не встроенный язык, но если кто поможет - буду благодарен!
1 zak555
 
12.11.13
18:53
опенОфис не может открыть xls ?
2 Wobland
 
12.11.13
18:58
а что такого есть в ексель, что надо выводить именно в него?
3 KorolevP
 
12.11.13
19:00
(1) Может. Но если Эксель не установлен на компьютере, то через COM к нему не обратишься. Приходится использовать Опен Офис.
4 KorolevP
 
12.11.13
19:02
(2) вот такая форма http://blanker.ru/doc/putevoi-list-avtokrana
На компьютерах где Эксель все нормально работает.
5 zak555
 
12.11.13
19:03
6 Wobland
 
12.11.13
19:04
(4) а что там этакого?
7 zladenuw
 
12.11.13
19:05
8 KorolevP
 
13.11.13
08:14
(6)
Ничего. Просто гораздо оперативнее и удобнее делать вывод в уже готовую форму, чем рисовать ее.
9 Wobland
 
13.11.13
08:16
(8) я вижу
10 KorolevP
 
13.11.13
09:32
(5) здорово, только покажите там ответ на мой вопрос. буду благодарен. :)
11 KorolevP
 
13.11.13
09:32
(9) искренне на это надеюсь. :))))
12 KorolevP
 
13.11.13
09:51
(7)
Благодарю!
Костыли конечно, но работа со стилем помогла. :
Styles = Document.StyleFamilies.getByName("PageStyles");
Для поз = 0 по Styles.count - 1 Цикл
MyStyle.Width = 29700;
MyStyle.Height = 21000;
КонецЦикла;

Растянуть на страницу получилось только так:
MyStyle.ScaleToPagesX = 1;

Правда то что печаталось в Экселе на 2 страницы, в ОО печатается на 3. =\