При разработке печатных форм в системе «1С:Предприятие» программисты часто сталкиваются с неприятной ситуацией: на экран форма выводится корректно, весь текст виден с помощью прокрутки, но при отправке на печать или в режиме предварительного просмотра часть длинного текста просто пропадает (обрезается снизу). Особенно часто эта проблема проявляется, когда в параметр одной ячейки передается большой объем информации — например, текст договора, подробное описание номенклатуры или технические требования на несколько тысяч символов.
В этой статье мы подробно проанализируем причины такого поведения платформы 1С, рассмотрим влияние настроек макета и параметров операционной системы, а также разберем практические программные методы, позволяющие гарантировать полный вывод любого объема текста на печать.
Для понимания сути проблемы нам необходимо разобраться, как 1С работает с табличными документами (объектами типа ТабличныйДокумент). Основное и самое главное правило верстки в 1С (которое унаследовано и от принципов работы таблиц MS Excel) звучит так: одна строка табличного документа физически не может быть разорвана и перенесена на следующую страницу.
Даже если для ячейки включено свойство переноса текста, система пытается рассчитать высоту строки так, чтобы весь текст поместился в ней целиком. Однако, если суммарный объем текста требует такой высоты строки, которая превышает доступную высоту печатной области страницы (с учетом заданных полей, верхнего и нижнего колонтитулов), алгоритм разбивки на страницы заходит в тупик. Система 1С не может перенести «половину» строки на второй лист, поэтому она принудительно пытается уместить эту строку на текущем листе, безжалостно обрезая все, что выходит за физические границы печатной области снизу.
Первое, что мы обычно делаем при возникновении проблем с отображением длинного текста, — проверяем базовые свойства ячейки в макете. Давайте разберем по шагам, какие настройки должны быть заданы и почему они могут не работать:
Переносить. Это базовое требование, без которого текст просто уйдет вправо за границы ячейки, не формируя многострочный блок.АвтовысотаСтроки установлен в значение Истина.Многие разработчики удивляются: на экране компьютера строка отображается целиком, появляется удобная полоса прокрутки, но в предварительном просмотре или на бумаге текст режется. Почему так происходит?
Дело в том, что при выводе на экран 1С использует экранные шрифты и экранное разрешение (DPI). Но как только вызывается предварительный просмотр или печать, система обращается к драйверу активного принтера (установленного в Windows по умолчанию) для расчета точных метрик шрифтов, межстрочных интервалов и полей страницы. Если в системе не установлен принтер (или выбран некорректный виртуальный драйвер), алгоритмы расчета геометрических параметров дают сбой. Небольшая разница в размерах шрифта между экранным отображением и принтером приводит к тому, что текст, идеально помещавшийся на экране, при печати «выползает» за границы допустимой высоты листа и усекается.
Рассмотрим по шагам эффективные методы, которые позволяют обойти данные ограничения платформы и вывести длинный текст красиво и без потерь.
Это самый надежный и профессиональный метод работы с большими текстами в табличных документах. Вместо того чтобы выводить одну гигантскую строку, мы программно разбиваем наш текст на массив более коротких строк (абзацев) и выводим их в цикле, каждую в свою строку табличного документа. В этом случае 1С без проблем перенесет лишние строки на новые страницы.
Рассмотрим пример кода, который выполняет такую операцию:
// Функция разбивает длинный текст на массив строк по абзацам (символам перевода строки)
Функция РазбитьТекстНаАбзацы(ИсходныйТекст)
МассивРезультат = Новый Массив;
// В качестве разделителя используем стандартный перевод строки
Разделитель = Символы.ПС;
ТекущаяСтрока = ИсходныйТекст;
Пока Истина Цикл
ПозицияРазделителя = Найти(ТекущаяСтрока, Разделитель);
Если ПозицияРазделителя = 0 Тогда
МассивРезультат.Добавить(ТекущаяСтрока);
Прервать;
КонецЕсли;
Абзац = Лев(ТекущаяСтрока, ПозицияРазделителя - 1);
МассивРезультат.Добавить(Абзац);
ТекущаяСтрока = Сред(ТекущаяСтрока, ПозицияРазделителя + 1);
КонецЦикла;
Возврат МассивРезультат;
КонецФункции
// Пример вывода в табличный документ
Процедура ВывестиДлинныйТекст(ТабличныйДокумент, Макет, ДлинныйТекст)
МассивАбзацев = РазбитьТекстНаАбзацы(ДлинныйТекст);
ОбластьСтроки = Макет.ПолучитьОбласть("СтрокаТекста");
Для Каждого Абзац Из МассивАбзацев Цикл
// Заполняем параметр области
ОбластьСтроки.Параметры.ТекстЯчейки = Абзац;
// Выводим область, автовысота строки в макете должна быть включена
ТабличныйДокумент.Вывести(ОбластьСтроки);
КонецЦикла;
КонецПроцедуры
Благодаря такому подходу текст выводится красивыми блоками, и платформа автоматически выполняет перенос страниц между абзацами, предотвращая обрезание информации.
Если специфика макета обязывает нас использовать объединенные ячейки, нам придется программно рассчитать и задать высоту строки перед выводом области в табличный документ. Нам нужно оценить ширину колонки и количество символов в тексте.
Проанализируем примерный алгоритм расчета:
Процедура ВывестиОбъединеннуюЯчейку(ТабличныйДокумент, Макет, Текст)
Область = Макет.ПолучитьОбласть("ОбъединеннаяОбласть");
Область.Параметры.ЗначениеЯчейки = Текст;
// Определяем приблизительное количество символов, умещающихся в одну строку ячейки.
// Это значение зависит от ширины объединенных колонок и размера шрифта.
КоличествоСимволовВСтроке = 80;
ДлинаТекста = СтрДлина(Текст);
КоличествоСтрок = Цел(ДлинаТекста / КоличествоСимволовВСтроке) + 1;
// Добавим запас на символы перевода строки в исходном тексте
КоличествоСтрок = КоличествоСтрок + СтрЧислоСтрок(Текст) - 1;
// Высота одной строки текста в пунктах (обычно для шрифта 10pt это около 15 пунктов)
ВысотаОднойСтроки = 15;
// Устанавливаем высоту строки программно
Область.Область().ВысотаСтроки = КоличествоСтрок * ВысотаОднойСтроки;
ТабличныйДокумент.Вывести(Область);
КонецПроцедуры
Для предотвращения некрасивых разрывов строк и контроля размещения данных на листах в арсенале разработчика 1С есть мощный инструмент — метод ПроверитьВывод(). Этот метод позволяет до фактического вывода на печать узнать, поместится ли группа областей на текущую страницу.
Рассмотрим пример использования этого метода при выводе длинных секций:
// МассивОбластей содержит секции, которые мы планируем вывести на текущую страницу
МассивОбластей = Новый Массив;
МассивОбластей.Добавить(ОбластьСтроки);
Если Не ТабличныйДокумент.ПроверитьВывод(МассивОбластей) Тогда
// Если область не помещается, принудительно вставляем разделитель страниц
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабличныйДокумент.Вывести(ОбластьСтроки);
Если ваша печатная форма представляет собой многостраничный текстовый документ (например, юридический договор, устав или подробное соглашение) со сложным форматированием, использование табличной сетки 1С (MXL) может быть не лучшим решением. Рекомендуется рассмотреть альтернативные варианты:
Используя предложенные методы структурирования данных и контроля вывода, вы навсегда избавитесь от проблемы «обрезанных строк» и обеспечите безупречный вид печатных форм вашей конфигурации при любых сценариях использования.