Имя: Пароль:
1C
1С v8
Печать информации из табличного документа по центру.
0 Повелитель
 
24.09.19
08:18
В Excel есть такая функция, как печать любой информации по центру листа.
Вот пример:
https://yadi.sk/i/Od4sSoA-RTNbMA
https://yadi.sk/i/E7yIx2OgzdJBFg
https://yadi.sk/i/89SXuIHPjICTiA

Возможно ли такое сделать в 1с?
Руководству не нравиться как печатается сейчас прайс лист:
https://yadi.sk/i/qogQPsdYz5HjJg
Спрашивают можно ли по центру сделать.
Настройки прайса разные, ширина тоже все время разная.
1 Uzyf
 
24.09.19
08:23
Заголовок что ли по центру
2 Повелитель
 
24.09.19
08:25
(1) Вся область по центру
3 Uzyf
 
24.09.19
08:32
(2) А одинаковые поля нельзя сделать?
4 Uzyf
 
24.09.19
08:32
(2) Или че там, прайс по размеру меньше листа?
5 Повелитель
 
24.09.19
08:38
(3) (4) Да прайс по размеру меньше листа.
Но это в такой настройке, а настроек для разных групп товара несколько.

Вот в этом случае решается увеличением левого поля до 20.
https://yadi.sk/i/qogQPsdYz5HjJg
Но это для каждого прайса нужно будет вычислять. Хотелось бы автоматически, как в Excel это сделано.
6 Uzyf
 
24.09.19
08:54
Сохраняешь в эксель, печатаешь из экселя. Гениально и просто
7 Повелитель
 
24.09.19
09:12
(6) Как вариант пойдет ))
8 Повелитель
 
26.09.19
11:22
(0) Решение.

Программно открыть Excel записать ему в параметры все что нужно.
Вот код:

Excel = Новый COMОбъект("Excel.Application");
Excel.DisplayAlerts = 0;
Книга = Excel.Workbooks.Open(ПолноеИмяФайла);
ExcelЛист = Книга.Worksheets(1);
//ExcelЛист.PageSetup.Orientation = 1;

//Расположение информации по центру при печати
Книга.ActiveSheet.PageSetup.CenterHorizontally = Истина;

//Вывод номеров страниц в колонтитулах, если нужно
Книга.ActiveSheet.PageSetup.CenterFooter="Страница &P из &N";

Книга.Save();
Книга.Close();
Excel.Quit();
Excel = 0;