|
<< Click to Display Table of Contents >> Navigation: Раздел 7 Расширения языка L9 > Печать > Объект Печать (Print) > Методы > <Печать> Напечатать (Print) |
Описание:
Отправка данных на печать.
Синтаксис:
Напечатать(<Объект>, <Строка>, <ПараметрыСоединения>)
Print(<Object>, <String>, <ConnectParameters>)
Параметры:
Объект (Object) – объекты "ТекстовыйДокумент (TextDocument)" или "HTMLДокумент "HTMLDocument)".
Строка (String) – тип принтера. Одно из следующих значений: "ESCP2", "ESCP", "ESCP_9PIN", "HPPCL", "HPPCLTEXT", "STAR_MICRONICS", "ZPL", "CPCL". Строковое значение.
ПараметрыСоединения (ConnectParameters) – массив с параметрами соединения.
Параметры соединения зависят от типа соединения с принтером.
• |
ТипСоединения (ConnectType) – тип соединения МУ с принтером. Возможно одно из двух значений: 1 – соединение с принтером посредством Wi-Fi, 2 – соединение с принтером посредством Bluetooth. |
Если ТипСоединения (ConnectType) – 1 (Wi-Fi), то параметры соединения включают:
• |
Адрес (Address) - IP-адрес принтера, который используется для печати. |
• |
Порт (Port) - порт принтера, который используется для печати. |
Если ТипСоединения (ConnectType) – 2 (Bluetooth), то параметры соединения включают:
• |
ИмяУстройства (DeviceName) - имя устройства, которое соединено с принтером через Bluetooth. |
ПараметрыПринтера - массив с параметрами для принтера. Параметр является опциональным.
В параметрах для принтера передается следующее:
• |
НазваниеШрифта (FontName) - название шрифта, которым будет осуществлена печать. Строка. |
Возвращаемые значения:
Нет.
Пример:
//Пример печати текстового документа.
//В примере используется диалоговая форма, на которой размещены элементы:
//Кнопка "Выход" - для выхода из приложения.
//Кнопка "Печать" - для печати документа.
//Выпадающий список "СписокБТУстройств" - список найденных Bluetooth-устройств.
//Переменные модуля:
Перем ТекстДок; //документ для печати
Перем ПараметрыСоединения; //параметры соединения с принтером
//Обработчик нажатия на кнопку "Выход"
Функция КнопкаВыход_ПриНажатии()
Приложение.Выход(); //выход из приложения
Возврат 0;
КонецФункции
//Подготовка текстового документа
Функция ПодготовитьДокумент()
Отступ = " "; // левый отступ печати (левое поле документа)
СледСтрока = Символы.ВК + Символы.ПС;
ТекстДок = Новый ТекстовыйДокумент;
ТекстДок.Кодировка = "windows-1251";
ТекстДок.Формат = "A4";
ТекстДок.ОриентацияСтраницы = 0;
ТекстДок.ЧерновойРежим = 0;
ТекстДок.Добавить(Отступ + "Текст документа для печати, первая строка" + СледСтрока);
ТекстДок.Добавить(Отступ + "Текст документа для печати, вторая строка" + СледСтрока);
Возврат 0;
КонецФункции
//При окончании поиска устройств Bluetooth осуществляется
//заполнение списка устройств для печати документа
Функция ПриОкончанииПоиска(СписокУстройств)
Индекс = 0;
Для Каждого Устройство Из СписокУстройств Цикл
ОтладочноеСообщение("ПриОкончанииПоиска: " + Устройство);
Индекс = Индекс + 1;
ЭтаФорма.СписокБТУстройств.ДобавитьЭлементСписка(Индекс, Устройство);
КонецЦикла;
ЭтаФорма.СписокБТУстройств.УстановитьВыбор(Индекс) _Если Индекс <> 0;
Возврат 0;
КонецФункции
//При включении Bluetooth начинается поиск устройств для печати
Функция ПриВключенииБТ()
ОтладочноеСообщение("ПриВключенииБТ");
BluetoothМенеджер.НачатьПоискУстройств();
ОтладочноеСообщение("НачатьПоискУстройств");
Возврат 0;
КонецФункции
//При инициализации формы выключенный Bluetooth включается
//или начинается поиск Bluetooth-устройства для печати
Функция Форма_ПриИнициализации()
ЭтаФорма.СписокБТУстройств.Плоск = Истина;
//Назначаем обработчик при окончании поиска Bluetooth-устройств:
BluetoothМенеджер.УстановитьПриОкончанииПоискаУстройств(ПриОкончанииПоиска);
//Назначаем обработчик при включении Bluetooth:
BluetoothМенеджер.УстановитьПриВключенииBluetooth(ПриВключенииБТ);
Если BluetoothМенеджер.Включен() Тогда
BluetoothМенеджер.НачатьПоискУстройств();
Иначе
BluetoothМенеджер.Включить();
КонецЕсли;
ПодготовитьДокумент();
Возврат 0;
КонецФункции
//При нажатии на кнопку после соединения с устройством посредством Bluetooth
//осуществляется печать документа.
Функция КнопкаПечать_ПриНажатии()
ПараметрыСоединения.ТипСоединения = 2;
ПараметрыСоединения.ИмяУстройства
= ЭтаФорма.СписокБТУстройств.ПолучитьТекстЭлемента(ЭтаФорма.СписокБТУстройств.ПолучитьТекущийВыбор());
Печать.Напечатать(ТекстДок, "ESCP_9PIN", ПараметрыСоединения); //формат печати - Epson 9 Pin.
Возврат 0;
КонецФункции