Внешняя печатная форма Word для ЗУП 3.0 платформа 8.3
Добрый день,
Есть макет Word документа, в 1С хранится как двоичные данные, в макете есть верхние нижние колонтитулы, при печати из 1С этого макета, колонтитулы отсутствуют,
разбор документа и подстановка своих значений используется типовой код по разбору разметки вида {v8 Область.Заголовок}
Конфигурация зуп 3, ПЛАТФОРМА 8.3
ОБЯЗАТЕЛЬСТВО СОБЛЮДЕНИЯ НОРМ АНТИКОРРУПЦИОННОГО ЗАКОНОДАТЕЛЬСТВА
Я,{v8 ФИО}
{/v8 Область.Заголовок},
там по коду объекту Page.setup ряд свойств устанавливается, но ничего похожего на видимость колонтитулов не нашел, или при разборе разметки 1С корячит файл и колонтитулы пропадают
Может кто сталкивался
Есть макет Word документа, в 1С хранится как двоичные данные, в макете есть верхние нижние колонтитулы, при печати из 1С этого макета, колонтитулы отсутствуют,
разбор документа и подстановка своих значений используется типовой код по разбору разметки вида {v8 Область.Заголовок}
Конфигурация зуп 3, ПЛАТФОРМА 8.3
ОБЯЗАТЕЛЬСТВО СОБЛЮДЕНИЯ НОРМ АНТИКОРРУПЦИОННОГО ЗАКОНОДАТЕЛЬСТВА
Я,{v8 ФИО}
{/v8 Область.Заголовок},
там по коду объекту Page.setup ряд свойств устанавливается, но ничего похожего на видимость колонтитулов не нашел, или при разборе разметки 1С корячит файл и колонтитулы пропадают
Может кто сталкивался
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Ниже, код из программы 1с версии 7.7 - не проверял.
//Создание листа документа
Application.Documents.Add();
WorkBook=Application.ActiveDocument;
//Запись и форматирование верхнего колонтитула
WorkBook.Sections(1).Headers(1).Range.ParagraphFormat.Alignment = 2;
WorkBook.Sections(1).Headers(1).Range.Font.Name = "Times New Roman";
WorkBook.Sections(1).Headers(1).Range.Font.Bold = 1;
WorkBook.Sections(1).Headers(1).Range.Font.Size = 8;
WorkBook.Sections(1).Headers(1).Range.Font.Size = 8;
WorkBook.Sections(1).Headers(1).Range.Text="Верхний колонтитул";
//Запись и форматирование нижнего колонтитула
WorkBook.Sections(1).Footers(1).Range.ParagraphFormat.Alignment = 0;
WorkBook.Sections(1).Footers(1).Range.Font.Name = "Times New Roman";
WorkBook.Sections(1).Footers(1).Range.Font.Italic = 1;
WorkBook.Sections(1).Footers(1).Range.Font.Size = 8;
WorkBook.Sections(1).Footers(1).Range.Font.Size = 8;
WorkBook.Sections(1).Footers(1).Range.Text="Нижний колонтитул";
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот