ТабличныйДокумент.ТочностьПечати

Подготовить бумагу 148×210 мм и повторение первой колонки

Настраиваем собственный размер страницы и повторяющийся столбец товара. Упражнение не вызывает принтер и не обещает одинаковое число страниц у разных драйверов.

Подготовка

1. Создайте новую внешнюю обработку с управляемой основной формой в учебной базе. Каждый урок — отдельная копия модуля.

2. На форме создайте команду УчебныйПример и перетащите её на форму как кнопку. В действии команды выберите процедуру УчебныйПример(Команда).

3. Вставьте весь модуль из примера: УчебныйПример, ПостроитьУчебныйДокумент и УчебнаяТаблица. Серверный вызов возвращает собственный табличный документ клиенту; директивы не удаляйте.

4. Никакие макеты, документы и справочники конфигурации не нужны. Всё построение — в памяти, без печати, записи файлов и отправки в сервисы.

5. Показ и ручную проверку выполняйте в тонком клиенте Windows 8.5.1.1343. Каждый урок — отдельная копия формы с пустым модулем до вставки.

&НаКлиенте
Процедура УчебныйПример(Команда)
    ТабДок = ПостроитьУчебныйДокумент();

    ТабДок.Показать("Учебный документ — без печати и сохранения");
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПостроитьУчебныйДокумент()
    ТабДок = УчебнаяТаблица();
    ТабДок.РазмерСтраницы = "Custom";
    ТабДок.ШиринаСтраницы = 148;
    ТабДок.ВысотаСтраницы = 210;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
    ТабДок.ПолеСлева = 10;
    ТабДок.ПолеСправа = 10;
    ТабДок.ПолеСверху = 12;
    ТабДок.ПолеСнизу = 12;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.ПовторятьПриПечатиКолонки = ТабДок.Область(, 1, , 1);
    ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(1, , 2, );
    ТабДок.ДвусторонняяПечать = ТипДвустороннейПечати.Нет;
    ТабДок.ЭкземпляровНаСтранице = 1;
    ТабДок.ЧередованиеРасположенияСтраниц = ЧередованиеРасположенияСтраниц.НеИспользовать;
    ТабДок.ТочностьПечати = ТочностьПечати.Точная;
    Сообщить(ТабДок.ШиринаСтраницы = 148);
    Сообщить(ТабДок.ВысотаСтраницы = 210);
    Сообщить(ТабДок.ПовторятьПриПечатиКолонки.Лево = 1);
    Сообщить(ТабДок.ПовторятьПриПечатиКолонки.Право = 1);
    Сообщить(ТабДок.ПовторятьПриПечатиСтроки.Низ = 2);
    Возврат ТабДок;
КонецФункции

&НаСервереБезКонтекста
Функция УчебнаяТаблица()
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.ТолькоПросмотр = Истина;
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Область(, 1, , 1).ШиринаКолонки = 35;
    ТабДок.Область(, 2, , 2).ШиринаКолонки = 10;
    ТабДок.Область(, 3, , 3).ШиринаКолонки = 14;
    ТабДок.Область(, 4, , 4).ШиринаКолонки = 15;
    Заголовок = ТабДок.Область(1, 1, 1, 4);
    Заголовок.Объединить();
    Заголовок.Текст = "Учебная таблица — данные только в памяти";
    Заголовок.Шрифт = Новый Шрифт("Arial", 12, Истина);
    Заголовок.ЦветФона = Новый Цвет(230, 242, 255);
    Заголовок.ВысотаСтроки = 24;
    ТабДок.Область(2, 1).Текст = "Товар";
    ТабДок.Область(2, 2).Текст = "Количество";
    ТабДок.Область(2, 3).Текст = "Цена";
    ТабДок.Область(2, 4).Текст = "Сумма";
    Товары = Новый Массив;
    Товары.Добавить(Новый Структура("Название,Количество,Цена", "Книга", 3, 250));
    Товары.Добавить(Новый Структура("Название,Количество,Цена", "Ручка", 1, 50));
    НомерСтроки = 3;
    Итого = 0;
    Для Каждого Товар Из Товары Цикл
        ТабДок.Область(НомерСтроки, 1).Текст = Товар.Название;
        Значения = Новый Массив;
        Значения.Добавить(Товар.Количество);
        Значения.Добавить(Товар.Цена);
        Значения.Добавить(Товар.Количество * Товар.Цена);
        Для НомерКолонки = 2 По 4 Цикл
            Ячейка = ТабДок.Область(НомерСтроки, НомерКолонки);
            Ячейка.СодержитЗначение = Истина;
            Ячейка.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
            Ячейка.Значение = Значения.Получить(НомерКолонки - 2);
            Ячейка.Формат = "ЧДЦ=2; ЧН=0";
        КонецЦикла;
        Итого = Итого + Товар.Количество * Товар.Цена;
        НомерСтроки = НомерСтроки + 1;
    КонецЦикла;
    ПодписьИтога = ТабДок.Область(5, 1, 5, 3);
    ПодписьИтога.Объединить();
    ПодписьИтога.Текст = "Итого";
    Итог = ТабДок.Область(5, 4);
    Итог.СодержитЗначение = Истина;
    Итог.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
    Итог.Значение = Итого;
    Итог.Формат = "ЧДЦ=2; ЧН=0";
    Все = ТабДок.Область(2, 1, 5, 4);
    Все.Шрифт = Новый Шрифт("Arial", 10);
    Граница = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1, Ложь);
    Все.Обвести(Граница, Граница, Граница, Граница);
    Возврат ТабДок;
КонецФункции

Разбор по шагам

1. ВысотаСтраницы и ШиринаСтраницы используются для Custom, единицы — миллиметры. Ориентация задана явно.

2. Повторяются колонка A и первые две строки. Для маленькой таблицы эффект повторения может быть не виден, если результат занимает одну страницу.

3. АвтоМасштаб подбирает масштаб вывода; ТочностьПечати относится к точности печатного представления.

4. Отключены двусторонняя печать и чередование сторон. Физическая печать не запускается: показ документа — отдельная операция.

Как проверить результат

1. Пять проверок дают Истина.

2. Через настройки страницы собственного документа проверьте Custom и поля. Только предварительный просмотр; команду Печать для упражнения не нажимайте.

Ожидаемый результат

Явные параметры маленькой страницы без отправки заданий печати.

На что обратить внимание

1. Поддержка нестандартной бумаги и печатные поля зависят от драйвера. Пример не подтверждает реальную печать.

2. Количество копий на странице — не число экземпляров всего задания печати.

3. Первые две строки повторяются для этого учебного документа; в другом макете координаты шапки могут отличаться.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.