Большинство обучающих материалов по программированию в системе 1С при описании формирования печатных форм на основе объекта «Табличный документ» ограничиваются выводом готовой формы на экран. Для пользователей же куда более важным является то, как документ будет выглядеть в распечатанном виде. Здесь, кроме хорошо сверстанного макета, играют роль и установки параметров печати.Почти все параметры, доступные в диалогах настройки печати (настройки принтера, свойства страницы), можно указать непосредственно при формировании табличного документа.Рассмотрим свойства и методы табличного документа, относящиеся к настройкам печати (в приведенных примерах «ТабДок» это объект типа «Табличный документ»).

Свойство «ИмяПринтера» позволяет задать для печати принтер, отличный от установленного по умолчанию. Имя должно совпадать с именем принтера, заданным в системе:

ТабДок.ИмяПринтера="HP LaserJet 3050 Series PCL 6";

При печати пакета документов можно сэкономить время, установив признак разбора по копиям:

ТабДок.РазборПоКопиям=истина;

Число копий можно указать так:

ТабДок.КоличествоЭкземпляров=5;

Разумеется, можно задать поля:

ТабДок.ПолеСлева=20;//Поле слева 20мм, остальные поля 10мм (по умолчанию)

Еще несколько свойств страницы:

ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт; ТабДок.ЭкземпляровНаСтранице=2; //на листе будет размещено 2 страницы ТабДок.Автомасштаб=истина; //аналогично настройкам масштаба «по ширине страницы»

При необходимости можно указать конкретное значение масштабирования в процентах (свойство «МасштабПечати»).

Свойство «РазмерСтраницы» позволяет задать стандартные форматы страницы – “A3”, “A4”, “A5” (полный список вариантов доступен в справке 1С).

ТабДок.РазмерСтраницы="A3";// буква А должна быть английской

Для нестандартного размера бумаги (Custom) можно указать значения высоты и ширины страницы (в мм):

ТабДок.РазмерСтраницы="Custom";//нестандартный размер ТабДок.ВысотаСтраницы=350; ТабДок.ШиринаСтраницы=350;

Также в табличном документе доступно управление выводом колонтитулов и их содержимым. Для этого служат свойства «ВерхнийКолонтитул» и «НижнийКолонтитул». Например:

ТабДок.ВерхнийКолонтитул.Выводить=истина; //будет напечатан верхний колонтитул ТабДок.РазмерКолонтитулаСверху=7; //размер колонтитула 7мм (по умолчанию 10мм) ТабДок.ВерхнийКолонтитул.ВертикальноеПоложение=ВертикальноеПоложение.Верх; ТабДок.ВерхнийКолонтитул.НачальнаяСтраница=2;//колонтитул выводится со второй страницы ШрифтКолонтитула=Новый Шрифт("Courier New", 8,,Истина); ТабДок.ВерхнийКолонтитул.Шрифт=ШрифтКолонтитула; //наклонный шрифт ТабДок.ВерхнийКолонтитул.ТекстВЦентре="Верхний колонтитул"; ТабДок.ВерхнийКолонтитул.ТекстСправа="Стр.[&НомерСтраницы] из [&СтраницВсего]"; //нумерация страниц ТабДок.ВерхнийКолонтитул.ТекстСлева="[&Дата]";//текущая дата

Сформированный документ отправляется на печать с помощью метода «Напечатать()». Возможно два варианта вызова.

1) Непосредственно на принтер:ТабДок.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать); ТабДок.Напечатать(истина);

2) Перед печатью будет выведен диалог печати:ТабДок.Напечатать(РежимИспользованияДиалогаПечати.Использовать); ТабДок.Напечатать(ложь);

Кроме того можно управлять и разбиением документа на страницы. Оценить количество страниц в документе по настройкам текущего принтера можно так:

ТабДок.КоличествоСтраниц();

С помощью методов «ПроверитьВывод()» и «ПроверитьПрисоединение()» можно определить, умещается ли табличный документ или массив областей табличного документа на странице в высоту и в ширину при текущих настройках принтера.Надо иметь ввиду, что работа последних трех методов зависит от установленного принтера. Если методу не удается его найти, вызывается исключение.

Принудительно вставить разрывы страниц позволяют методы «ВывестиВертикальныйРазделительСтраниц()» и «ВывестиГоризонтальныйРазделительСтраниц()».Таким образом, можно управлять постраничным выводом на печать и контролировать заполнение страницы:

Если Не ТабДок.ПроверитьВывод(МассивВыводимыхОбластей) Тогда ТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;

Делал недавно отчет с неопределенным количеством колонок. Возиться с кодом было неохота, решил сделать на СКД. С этим проблема не возникла, необходимо было натянуть результат на произвольный макет (свой заголовок + период). Покажу на примере по шагам, с чем столкнулся и как решил.

Первоначальную настройку схемы СКД описывать не буду, начнем с того, что мне надо было сделать произвольный заголовок. В нашем случае, формируем представление периода отчета.
Добавляем новый параметр "ПредставлениеПериода", тип Строка.


Теперь добавляем новое поле группировки, поля группировок не выбираем (Детальные записи), удаляем поле "Авто", переносим наш параметр.


Переходим на вкладку "Макет", рисуем шапку. Добавляем Заголовок группировки. Мы можем использовать Имя группировки, если заранее задали его в схеме компоновки, или выбрать из доступных полей. После этого определяем область в табличном документе. Далее, прописываем наш параметр на макете, потом необходимо будет установить в свойствах этой ячейки свойство "Заполнение" - "Параметр". И в окне параметров макета связать наш параметр с параметром СКД.


Теперь немного кода. Создаем форму отчета. Отключаем видимость у Основной Командной Панели и Компоновщика Настроек. Создаем нашу команду "Сформировать", реквизит формы "Дата", перетаскиваем все это на форму. Пишем код в модуле формы:

Код 1C v 8.2 УП

 &НаСервере

Процедура УстановитьПараметрыКомпоновки()



 пОтчета = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Период");

 Если НЕ пОтчета = Неопределено Тогда

  пОтчета.Значение = КонецДня(Дата);

 КонецЕсли;

 ПредставлениеПериода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ПредставлениеПериода");

 Если НЕ ПредставлениеПериода = Неопределено Тогда

  ПредставлениеПериода.Значение = "Остатки по складам на " + Формат(Дата, "ДЛФ=Д");

 КонецЕсли;

 

КонецПроцедуры



&НаСервере

Процедура СформироватьНаСервере()



 УстановитьПараметрыКомпоновки();

 

 Результат.Очистить();



 СхемаКомпоновкиДанных = РеквизитФормыВЗначение("Отчет").СхемаКомпоновкиДанных;

 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Отчет.КомпоновщикНастроек.Настройки, ДанныеРасшифровки);



 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);



 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Результат);

 ПроцессорВывода.ОтображатьПроцентВывода = Истина;



 ПроцессорВывода.Вывести(ПроцессорКомпоновки); 



КонецПроцедуры



&НаКлиенте

Процедура Сформировать(Команда)

 

 СформироватьНаСервере();

 

КонецПроцедуры



&НаКлиенте

Процедура ПриОткрытии(Отказ)

 

 Дата = ТекущаяДата();

 

КонецПроцедуры   

После этого, если все правильно сделали, результат отчета должен выглядеть вот так:


Теперь попробуем сделать полностью свой произвольный макет на СКД .
Здесь самое главное понять структуру областей макета в СКД. Разберем пример с неопределенным количеством колонок.

Заготовка для отчета выглядит так:


Пример результата:


Теперь создаем свой макет:

1. Добавляем шапку по аналогии с прошлым примером. Устанавливаем макет оформления "Без оформления". Итоги по номенклатуре выводить не будем, поэтому ставим у таблицы настройку "Расположение общих итогов по горизонтали" - "Нет".


2. Теперь создаем макет, прописываем параметры, настраиваем дополнительные свойства ячеек. Например, для номенклатуры можно выставить в свойстве "Размещение текста" значение "Переносить" вместо "Авто", а так же указать параметры расшифровки.


3. Теперь самое интересное, назначаем области. Структура областей будет выглядеть таким образом:


Начинаем создавать области, параметры при этом будут автоматически сопоставляться по именам. В итоге должно получиться следующее:


Проверяем отчет, должно получиться следующее:


4. Пишем код по аналогии с прошлым примером:

Код 1C v 8.2 УП

 &НаСервере

Процедура УстановитьПараметрыКомпоновки()



 пОтчета = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Период");

 Если НЕ пОтчета = Неопределено Тогда

  пОтчета.Значение = Период;

 КонецЕсли;

 ПредставлениеПериода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ПредставлениеПериода");

 Если НЕ ПредставлениеПериода = Неопределено Тогда

  ПредставлениеПериода.Значение = "Заказы контрагентов за " + Формат(Период.ДатаНачала, "ДЛФ=Д") + " - " + Формат(Период.ДатаОкончания, "ДЛФ=Д");

 КонецЕсли;

 

КонецПроцедуры



&НаСервере

Процедура СформироватьНаСервере()



 УстановитьПараметрыКомпоновки();

 

 Результат.Очистить();



 СхемаКомпоновкиДанных = РеквизитФормыВЗначение("Отчет").СхемаКомпоновкиДанных;

 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Отчет.КомпоновщикНастроек.Настройки, ДанныеРасшифровки);



 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);



 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Результат);

 ПроцессорВывода.ОтображатьПроцентВывода = Истина;



 ПроцессорВывода.Вывести(ПроцессорКомпоновки); 

 

 //решил добавить колонтитулы 

 Результат.НижнийКолонтитул.Выводить = Истина; 

 Результат.НижнийКолонтитул.НачальнаяСтраница = 1;

 ШрифтКолонтитула=Новый Шрифт("Arial", 6);

    Результат.НижнийКолонтитул.Шрифт=ШрифтКолонтитула;

 Результат.НижнийКолонтитул.ТекстСлева  = "Тест СКД";



КонецПроцедуры



&НаКлиенте

Процедура Сформировать(Команда)

 

 СформироватьНаСервере();

 

КонецПроцедуры





&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

 

 Период.ДатаНачала = НачалоМесяца(ТекущаяДата());

 Период.ДатаОкончания = ТекущаяДата();

 

КонецПроцедуры   

В итоге у нас получается следующее:


Кстати, при последующем открытии отчета, вы увидите, что компоновка перестроила макет по-своему.

Это вполне нормально, не стоит беспокоиться.

Источник: http://start1c.blogspot.ru

Вопрос: При редактировании текстов в текстовом документе, таблице или HTML-документе, по умолчанию отображается слишком мелкий шрифт. Есть ли какая-либо возможность увеличить его для того, чтобы работать с текстами было комфортнее?

Ответ:
"1С:Предприятие" позволяет довольно гибко настраивать отображение текста.

Для текстовых документов, вы можете указать шрифт по умолчанию, при необходимости увеличив его размер. Сделать это просто - достаточно зайти в меню "Сервис", выбрать "Параметры" и перейти на закладку "Тексты". Внизу этой закладки доступен элемент "Шрифт", настройка которого позволит отображать все текстовые документы так, как вы пожелаете.

Для табличных документов существует целых два способа. Первый - включить отображение панели инструментов "Форматирование" (к слову, обратите внимание и на панель "Табличный документ"). Достаточно нажать правой кнопкой мыши на пустом месте рядом с кнопочками видимых панелей инструментов и включить галочку напротив "Форматирование". Через эту панель вы сможете настраивать шрифт и его размер у определенных ячеек вашего табличного документа, у выделенных ячеек, либо у всех сразу.

Второй способ - при любом открытом табличном документе, в меню появляется пункт "Таблица", в котором в подменю "Вид" есть пункт "Масштаб" - именно этот пункт позволит быстро изменить масштаб документа ничего не меняя в его содержимом. Того же самого эффекта можно быстро достичь, удерживая клавишу Ctrl и при этом прокручивая колесико мыши в разные направления.

Для открытых документов HTML так же подойдет первый способ для табличных документов (через панель инструментов "Форматирование"). А в качестве второго (быстрого) способа можно тоже использовать клавишу Ctrl и колесико вашей мыши.