Как изменить шрифт в таблице 1С программно: пошаговое руководство

Работа с табличными документами в 1С:Предприятие часто требует не только заполнения данными, но и оформления — изменения шрифтов, цветов, выравнивания. Если вручную это делается через свойства ячеек, то программное изменение шрифта открывает возможности для автоматизации отчётов, печатных форм и пользовательских интерфейсов. Однако многие разработчики сталкиваются с трудностями: методы работы со шрифтами отличаются в зависимости от версии платформы, а документация не всегда даёт чёткие ответы на практические вопросы.

В этой статье разберём все актуальные способы программного изменения шрифта в табличных документах 1С 8.3 и 1С 8.2, включая работу с ТабличныйДокумент, ОбластьЯчеек и стилями. Вы узнаете, как задать шрифт для отдельных ячеек, строк, столбцов или всего документа, а также научитесь избегать типичных ошибок, таких как игнорирование наследуемых свойств или неверное указание имени шрифта. Особое внимание уделим нюансам работы с тонким и веб-клиентом, где не все шрифты могут отображаться корректно.

Основные объекты для работы со шрифтами в 1С

Прежде чем изменять шрифт, нужно понять, с какими объектами предстоит работать. В 1С:Предприятие за оформление табличных документов отвечают:

📄 ТабличныйДокумент — основной объект, который содержит данные и настройки оформления. Создаётся через Новый ТабличныйДокумент.
🎨 ОбластьЯчеек — позволяет выделять диапазоны ячеек (например, ОбластьЯчеек = ТабличныйДокумент.Область("A1:B10")) и применять к ним форматирование.
🖌️ Шрифт — объект, который описывает параметры шрифта: имя, размер, начертание (жирный, курсив) и цвет. Создаётся через Новый Шрифт.
📏 Стиль — набор параметров оформления (включая шрифт), который можно применять к ячейкам. Полезен для единообразного оформления больших документов.

Важно понимать, что шрифт в 1С — это не просто строка с именем (например, "Arial"), а полноценный объект со своими свойствами. Если вы попытаетесь присвоить ячейке строку вместо объекта Шрифт, получите ошибку. Также стоит помнить, что в веб-клиенте и тонком клиенте доступны не все системные шрифты — только те, которые установлены на сервере 1С или в браузере пользователя.

Способ 1: Изменение шрифта для отдельной ячейки

Самый простой случай — когда нужно изменить шрифт только в одной ячейке. Для этого:

Получите доступ к ячейке через метод Ячейка().
Создайте объект Шрифт с нужными параметрами.
Присвойте шрифт свойству Шрифт ячейки.

Пример кода:

ТабДок = Новый ТабличныйДокумент;
// Заполняем ячейку текстом
ТабДок.Ячейка(1, 1).Текст = "Пример текста";

// Создаём новый шрифт
НовыйШрифт = Новый Шрифт("Arial", 12, Истина, Ложь, RGB(0, 0, 255));

// Применяем шрифт к ячейке
ТабДок.Ячейка(1, 1).Шрифт = НовыйШрифт;

Обратите внимание на параметры конструктора Шрифт:

🔤 "Arial" — имя шрифта (должно совпадать с установленными в системе).
📏 12 — размер в пунктах.
🏋️ Истина — жирный шрифт.
🜟 RGB(0, 0, 255) — цвет (синий).

💡

Если имя шрифта содержит пробелы (например, "Times New Roman"), обязательно берите его в кавычки: Новый Шрифт("Times New Roman", 10).

Способ 2: Массовое изменение шрифта для диапазона ячеек

Если нужно изменить шрифт для группы ячеек (например, для всего столбца или строки), удобнее использовать объект ОбластьЯчеек. Это позволит избежать циклов и ускорит выполнение кода.

Пример изменения шрифта для диапазона A1:D10:

ТабДок = Новый ТабличныйДокумент;
// Заполняем документ данными (для примера)
ЗаполнитьТаблицу(ТабДок);

// Выделяем область ячеек
Область = ТабДок.Область("A1:D10");

// Создаём шрифт
НовыйШрифт = Новый Шрифт("Tahoma", 10, Ложь, Истина); // Курсивный Tahoma

// Применяем шрифт ко всей области
Область.Шрифт = НовыйШрифт;

Преимущество этого метода в том, что 1С оптимизирует применение стилей к диапазону, а не к каждой ячейке отдельно. Однако есть нюанс: если в некоторых ячейках области уже был задан шрифт вручную, он будет перезаписан. Чтобы избежать этого, можно использовать метод ОбъединитьСтиль().

Создать резервную копию табличного документа|Проверить, не используются ли в диапазоне пользовательские стили|Убедиться, что выбранный шрифт доступен на клиентских машинах|Протестировать изменения на копии данных-->

Способ 3: Использование стилей для гибкого оформления

Если в документе нужно применять одни и те же шрифты многократно (например, для заголовков, подвалов, акцентных ячеек), удобнее завести стили. Стили позволяют:

🔄 Быстро менять оформление во всём документе, редактируя стиль в одном месте.
📑 Сохранять единообразие (например, все заголовки будут оформлены одинаково).
🛠️ Упрощать поддержку кода — вместо повторения параметров шрифта достаточно указать имя стиля.

Пример работы со стилями:

ТабДок = Новый ТабличныйДокумент;

// Создаём стиль для заголовков
СтильЗаголовка = ТабДок.Стили.Добавить("Заголовок");
СтильЗаголовка.Шрифт = Новый Шрифт("Verdana", 14, Истина); // Жирный Verdana 14pt
СтильЗаголовка.ЦветТекста = RGB(255, 0, 0); // Красный цвет

// Создаём стиль для основного текста
СтильТекста = ТабДок.Стили.Добавить("ОсновнойТекст");
СтильТекста.Шрифт = Новый Шрифт("Calibri", 11);

// Применяем стили к ячейкам
ТабДок.Ячейка(1, 1).Текст = "Отчёт по продажам";
ТабДок.Ячейка(1, 1).Стиль = СтильЗаголовка;

ТабДок.Ячейка(2, 1).Текст = "Дата";
ТабДок.Ячейка(2, 1).Стиль = СтильТекста;

Стили особенно полезны в больших документах, где оформление может меняться динамически. Например, если пользователь выберет тёмную тему, достаточно поменять цвета в стилях — и весь документ адаптируется автоматически.

Как узнать имена доступных стилей в существующем документе?

Чтобы получить список всех стилей, используемых в табличном документе, выполните следующий код:

Для Каждого Стиль Из ТабДок.Стили Цикл
Сообщить(Стиль.Имя);
КонецЦикла;

Это поможет избежать дублирования стилей с одинаковыми параметрами.

Работа с шрифтами в разных клиентах 1С

Один и тот же код может по-разному работать в толстом, тонком и веб-клиенте. Основные различия:

Клиент	Доступные шрифты	Ограничения	Рекомендации
Толстый клиент	Все шрифты, установленные в Windows	Нет	Можно использовать любые шрифты, но учитывайте, что на других ПК их может не быть.
Тонкий клиент	Шрифты, установленные на сервере 1С	Не все системные шрифты могут отображаться	Используйте стандартные шрифты: Arial, Times New Roman, Tahoma.
Веб-клиент	Шрифты, доступные в браузере пользователя	Могут подставляться запасные шрифты	Указывайте запасные шрифты через запятую: `Новый Шрифт("Arial, sans-serif", 10)`.

Чтобы избежать проблем с отображением, следуйте этим советам:

🔍 Проверяйте наличие шрифта на целевых машинах (особенно для тонкого клиента).
📛 Используйте стандартные шрифты, которые есть в большинстве систем: Arial, Times New Roman, Courier New.
🔄 Всегда тестируйте отображение документа в том клиенте, где он будет использоваться.

💡

В веб-клиенте имя шрифта можно указывать так же, как в CSS — через запятую для запасных вариантов: Новый Шрифт("Georgia, serif", 12).

Типичные ошибки и как их избежать

Даже опытные разработчики иногда сталкиваются с проблемами при работе со шрифтами в 1С. Рассмотрим самые распространённые ошибки:

⚠️ Внимание: Если вы меняете шрифт для ячейки, которая уже имеет пользовательское форматирование (например, через стиль), новые настройки шрифта могут не примениться. В этом случае используйте метод ОбъединитьСтиль() или сбросьте стиль ячейки перед изменением.

Ошибка 1: Неверное имя шрифта

Если указать несуществующий шрифт (например, из-за опечатки), 1С не выдаст ошибку, но шрифт не изменится. Всегда проверяйте имена шрифтов через ПолучитьШрифтыСистемы():

Шрифты = ПолучитьШрифтыСистемы();
Для Каждого Шрифт Из Шрифты Цикл
Сообщить(Шрифт.Имя);
КонецЦикла;

Ошибка 2: Игнорирование наследуемых свойств

Если ячейка входит в область, к которой применён стиль, индивидуальные настройки шрифта могут перекрываться. Чтобы этого избежать, явно сбрасывайте стиль перед изменением:

ТабДок.Ячейка(1, 1).Стиль = Неопределено; // Сбрасываем стиль
ТабДок.Ячейка(1, 1).Шрифт = НовыйШрифт;

Ошибка 3: Забывают про цвет текста

Шрифт включает не только начертание, но и цвет. Если вы изменили шрифт, но текст остался серым, проверьте свойство ЦветТекста:

ТабДок.Ячейка(1, 1).ЦветТекста = RGB(0, 0, 0); // Чёрный цвет

Практические примеры: реальные задачи

Рассмотрим несколько типичных сценариев, с которыми сталкиваются разработчики.

Пример 1: Выделение заголовков в отчёте

Допустим, нужно оформить первую строку таблицы как заголовок (жирный шрифт, крупный размер):

ТабДок = Новый ТабличныйДокумент;
// Заполняем документ (например, данные из запроса)
ЗаполнитьДанными(ТабДок);

// Выделяем первую строку как заголовок
Заголовок = ТабДок.Область(1, 1, 1, ТабДок.КоличествоКолонок);
Заголовок.Шрифт = Новый Шрифт("Arial", 14, Истина);
Заголовок.ЦветФона = RGB(200, 200, 200); // Серый фон

Пример 2: Подсветка отрицательных значений

Если в отчёте есть числовые данные, можно автоматически выделять отрицательные значения красным цветом:

Для НомСтроки = 2 По ТабДок.КоличествоСтрок Цикл
Для НомКолонки = 1 По ТабДок.КоличествоКолонок Цикл
ТекстЯчейки = ТабДок.Ячейка(НомСтроки, НомКолонки).Текст;
Если ЗначениеЗаполнено(ТекстЯчейки) И Число(ТекстЯчейки) < 0 Тогда
ТабДок.Ячейка(НомСтроки, НомКолонки).Шрифт = Новый Шрифт(, , , , RGB(255, 0, 0)); // Красный цвет
КонецЕсли;
КонецЦикла;
КонецЦикла;

Пример 3: Динамическое изменение шрифта по условию

Допустим, нужно менять шрифт в зависимости от значения в другой ячейке:

Если ТабДок.Ячейка(1, 1).Текст = "Важно" Тогда
ТабДок.Ячейка(2, 1).Шрифт = Новый Шрифт("Arial", 12, Истина, , RGB(255, 0, 0)); // Жирный красный
Иначе
ТабДок.Ячейка(2, 1).Шрифт = Новый Шрифт("Arial", 10); // Стандартный
КонецЕсли;

💡

Для ускорения работы с большими таблицами используйте ОбластьЯчеек вместо поэлементного изменения ячеек. Например, чтобы применить шрифт ко всему столбцу B, используйте ТабДок.Область("B:B").Шрифт = НовыйШрифт

FAQ: Частые вопросы по изменению шрифтов в 1С

Как узнать, какие шрифты доступны в системе?

Используйте функцию ПолучитьШрифтыСистемы():

Шрифты = ПолучитьШрифтыСистемы();
Для Каждого Шрифт Из Шрифты Цикл
Сообщить(Шрифт.Имя);
КонецЦикла;

В веб-клиенте этот метод вернёт шрифты, доступные в браузере пользователя.

Почему шрифт не меняется в тонком клиенте?

Вероятнее всего, указанный шрифт не установлен на сервере 1С. Используйте стандартные шрифты (Arial, Times New Roman) или установите нужный шрифт на сервер. Также проверьте, не перекрываются ли ваши настройки стилем ячейки.

Можно ли изменить шрифт для всего документа сразу?

Да, но только через цикл по всем ячейкам или применением стиля ко всему документу:

Стиль = ТабДок.Стили.Добавить("Основной");
Стиль.Шрифт = Новый Шрифт("Calibri", 11);
ТабДок.Область().Стиль = Стиль;

Как сбросить шрифт к стандартному?

Присвойте свойству Шрифт значение Неопределено или используйте стандартный стиль:

ТабДок.Ячейка(1, 1).Шрифт = Неопределено;

Почему в печатной форме шрифт отличается от того, что видно на экране?

Это может быть связано с:

Разными шрифтами, установленными на сервере и клиентской машине.
Настройками принтера (например, заменой шрифтов при печати).
Ограничениями драйвера принтера.

Чтобы избежать проблем, используйте стандартные шрифты и тестируйте печать на целевом оборудовании.

Программное изменение шрифта в табличном документе 1С: полное руководство с примерами кода