Распечатать текстовый документ(txt) средствами 1С
По теме из базы знаний
- Универсальный конструктор отчетов (Новейший отчет) для 1C 7.7
- Сравнение 1С8 и Navision
- Копирование текста с экрана монитора
- 1С8:борьба - личный опыт работы с платформой 1с8
- Алкогольная декларация для 1С 8.1, 8.2, 8.3 (1, 2, 3, 4, 5, 6, 7, 8 формы) УТ10.2/10.3, УТ11, УПП, КА, БП2.0/3.0, БП КОРП, Розница 1.0/2.1, Далион, Астор, УТАП и др. с подписью и шифрованием, редакция 2.3
Найденные решения
примерный говнокод
Макет = ПолучитьМакет("Макет");
ТабДок = Новый ТабличныйДокумент;
Текст = Новый ЧтениеТекста(ИмяФайла);
Стр = Текст.ПрочитатьСтроку();
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТекста");
ОбластьМакета.Параметры.Заполнить(Новый Структура("ЗначениеСтроки", Стр));
ТабДок.Присоединить(ОбластьМакета);
Пока Стр <> Неопределено Цикл
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТекста");
ОбластьМакета.Параметры.Заполнить(Новый Структура("ЗначениеСтроки", Стр));
ТабДок.Присоединить(ОбластьМакета);
Стр = Текст.ПрочитатьСтроку();
КонецЦикла;
ТабДок.Показать(); ПоказатьПрикрепленные файлы:
ПечатьТекста.epf
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(5) А попробовать так?
ай блин - это только с ТабДоками будет работать(((
Блокнот = новый ЧтениеТекста("c:\test.txt");
Пакет = новый ПакетОтображаемыхДокументов;
Пакет.КоличествоЭкземпляров = 1;
Состав1 = Пакет.Состав.Добавить();
Состав1.Данные = Блокнот.Прочитать();
пакет.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать);
ай блин - это только с ТабДоками будет работать(((
(10) (1) Печать текстовых документов встречал только в Чеках, но там через драйвер кассы или принтера чеков. В (2) сказали, как это сделать. Это не долго. Макет с 1 областью, с 1 ячейкой на всю страницу и 1 параметром, в который устанавливается текст из файла.
ведь есть же с word фишка:
неужели с блокнотом такого нет?
ОбъектВорд = Новый COMОбъект("Word.Application");
ОбъектВорд.Documents.add(ИмяФайла);
ДокументВорд = ОбъектВорд.Application.Documents(1);
ДокументВорд.Activate();
ДокументВорд.PrintOut()
неужели с блокнотом такого нет?
Нужна печать слипчека с банковского терминала?
У него штатная ширина 32 или 48 символов
Делал такое для китайского принтера чеков
У него штатная ширина 32 или 48 символов
Делал такое для китайского принтера чеков
ТекстовыйФайл = Новый ТекстовыйДокумент;
ТекстовыйФайл.Прочитать(СлипЧек, КодировкаТекста.ANSI, Символы.ПС);
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("СлипЧек");
облСтрока = Макет.ПолучитьОбласть("Строка");
Для Номер = 1 По ТекстовыйФайл.КоличествоСтрок() Цикл
Строка=ТекстовыйФайл.ПолучитьСтроку(Номер);
облСтрока.Параметры.Строка=Строка;
ТабДок.Вывести(облСтрока);
КонецЦикла;
УстановитьПараметрыТабличногоДокумента(ТабДок);
Если ЗначениеЗаполнено(Принтер) Тогда
ТабДок.Напечатать();
// Sleep(3); // До 14.09 было активно МНФ
Иначе
ТабДок.Показать();
КонецЕсли;
Процедура УстановитьПараметрыТабличногоДокумента(ТабДок)
ТабДок.ИмяПринтера=Принтер;
ТабДок.ПолеСлева=0;
ТабДок.ПолеСправа=0;
ТабДок.ПолеСверху=0;
ТабДок.ПолеСнизу=0;
ТабДок.РазмерКолонтитулаСверху=0;
ТабДок.РазмерКолонтитулаСнизу=0;
ТабДок.ВерхнийКолонтитул.Выводить=Ложь;
ТабДок.НижнийКолонтитул.Выводить=Ложь;
ТабДок.АвтоМасштаб=Истина;
КонецПроцедуры ПоказатьПрикрепленные файлы:
Сделал так:
Выводит, все хорошо, теперь как сделать что бы автоматически печатался?
Метода у текстового документа ".Напечатать" нет.
Файл = Новый ЧтениеТекста("C:\тест.txt",КодировкаТекста.OEM);
Файл.Закрыть();
ФайлЭкваринга = Новый ТекстовыйДокумент;
ФайлЭкваринга.Прочитать("C:\тест.txt",КодировкаТекста.OEM);
ФайлЭкваринга.Показать();
Файл.Закрыть();
ФайлЭкваринга = Новый ТекстовыйДокумент;
ФайлЭкваринга.Прочитать("C:\тест.txt",КодировкаТекста.OEM);
ФайлЭкваринга.Показать();
Выводит, все хорошо, теперь как сделать что бы автоматически печатался?
Метода у текстового документа ".Напечатать" нет.
(9)
А именно: установить в системе утилиту печати текстовых файлов на любом Win-принтере, лучшая из известных мне - бесплатная .
Тогда задача сводится к копированию распечатываемого файла в файл с именем, которое отслеживается этой утилитой.
Для этого в 1С достаточно всего одной команды КопироватьФайл(), даже не читая его. Ну, или можно прочитать и тут же записать прочитанный текст в файл с именем, заданным в настройках Sprint. А утилита его подхватит и распечатает.
что нибудь попроще? что бы к системе не обращаться?
Предложу свой вариант, который хоть и затрагивает систему, зато содержит минимум кода. При этом обеспечивает гибкость в настройках печати без дальнейшей модификации 1С.
А именно: установить в системе утилиту печати текстовых файлов на любом Win-принтере, лучшая из известных мне - бесплатная .
Тогда задача сводится к копированию распечатываемого файла в файл с именем, которое отслеживается этой утилитой.
Для этого в 1С достаточно всего одной команды КопироватьФайл(), даже не читая его. Ну, или можно прочитать и тут же записать прочитанный текст в файл с именем, заданным в настройках Sprint. А утилита его подхватит и распечатает.
через таб документ, как выше уже сказали, но чем париться с автоустановкой ширины и подобного, взять создать таб документ, в первой ячейке напечатать текст образец. сохранить. затем как угодно десериализовать полученный mxl (можно тупо прочитать его как текстовый документ), найти текст образец и зашаблонизировать его
примерный говнокод
Макет = ПолучитьМакет("Макет");
ТабДок = Новый ТабличныйДокумент;
Текст = Новый ЧтениеТекста(ИмяФайла);
Стр = Текст.ПрочитатьСтроку();
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТекста");
ОбластьМакета.Параметры.Заполнить(Новый Структура("ЗначениеСтроки", Стр));
ТабДок.Присоединить(ОбластьМакета);
Пока Стр <> Неопределено Цикл
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТекста");
ОбластьМакета.Параметры.Заполнить(Новый Структура("ЗначениеСтроки", Стр));
ТабДок.Присоединить(ОбластьМакета);
Стр = Текст.ПрочитатьСтроку();
КонецЦикла;
ТабДок.Показать(); ПоказатьПрикрепленные файлы:
ПечатьТекста.epf
(13)
Все хорошо, только что бы отображался текст правильно, нужен шрифт "Terminal 10"
В макете делаю Шрифт параметра Terminal 10 а Текст = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.OEM); выходит кракозябра, а на вывод ТабДок выводит нормально, на принтере и предварительном просмотре кракозябра, если КодировкаТекста.OEM убираю, то он шрифт меняет, и выводит на русском.
Макет = ПолучитьМакет("Макет");
ТабДок = Новый ТабличныйДокумент;
Текст = Новый ЧтениеТекста(ИмяФайла);
Стр = Текст.ПрочитатьСтроку();
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТекста");
ОбластьМакета.Параметры.Заполнить(Новый Структура("ЗначениеСтроки", Стр));
ТабДок.Присоединить(ОбластьМакета);
Пока Стр <> Неопределено Цикл
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТекста");
ОбластьМакета.Параметры.Заполнить(Новый Структура("ЗначениеСтроки", Стр));
ТабДок.Присоединить(ОбластьМакета);
Стр = Текст.ПрочитатьСтроку();
КонецЦикла;
ТабДок.Показать();
ПоказатьТабДок = Новый ТабличныйДокумент;
Текст = Новый ЧтениеТекста(ИмяФайла);
Стр = Текст.ПрочитатьСтроку();
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТекста");
ОбластьМакета.Параметры.Заполнить(Новый Структура("ЗначениеСтроки", Стр));
ТабДок.Присоединить(ОбластьМакета);
Пока Стр <> Неопределено Цикл
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТекста");
ОбластьМакета.Параметры.Заполнить(Новый Структура("ЗначениеСтроки", Стр));
ТабДок.Присоединить(ОбластьМакета);
Стр = Текст.ПрочитатьСтроку();
КонецЦикла;
ТабДок.Показать();
Все хорошо, только что бы отображался текст правильно, нужен шрифт "Terminal 10"
В макете делаю Шрифт параметра Terminal 10 а Текст = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.OEM); выходит кракозябра, а на вывод ТабДок выводит нормально, на принтере и предварительном просмотре кракозябра, если КодировкаТекста.OEM убираю, то он шрифт меняет, и выводит на русском.
С настройкой ширины колонки оказалось менее тривиально, чем я думал
&НаКлиенте
Процедура Команда1(Команда)
РаспечататьТекст("Однажды в студеную зимнюю пору, я из лесу вышел; был сильный мороз. Гляжу - поднимается медленно в году лошадка, везущая хворосту воз.
|И шествуя важно, в спокойствии чинном, лошадку ведет под узцы мужичок. В больших сапогах, в полушубке овчинном, в больших руковицах... А сам - с ноготок!",
Новый Шрифт("Verdana", 20, , Истина));
КонецПроцедуры
&НаКлиенте
Процедура РаспечататьТекст(Текст, Шрифт = Неопределено);
ТабДок = Новый ТабличныйДокумент;
ОбластьПечати = ТабДок.Область(1,1,1,1);
ОбластьПечати.Текст = Текст;
Если Шрифт <> Неопределено Тогда
ОбластьПечати.Шрифт = Шрифт;
КонецЕсли;
ОбластьПечати.ШиринаКолонки = (ТабДок.ШиринаСтраницы - 5) / 2; // эмперически под стандартный размер полей
ОбластьПечати.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
ТабДок.Напечатать();
КонецПроцедуры Показать
Вариант для не слишком больших текстов с не слишком большими строками :)
&НаКлиенте
Процедура РаспечататьТекст(Текст, Шрифт = Неопределено);
ТабДок = Новый ТабличныйДокумент;
ШиринаКолонки = (ТабДок.ШиринаСтраницы - 5) / 2; // эмперически под стандартный размер полей
Для НомерСтроки = 1 По СтрЧислоСтрок(Текст) Цикл
ОбластьПечати = ТабДок.Область(НомерСтроки, 1);
ОбластьПечати.Текст = СтрПолучитьСтроку(Текст, НомерСтроки);
Если Шрифт <> Неопределено Тогда
ОбластьПечати.Шрифт = Шрифт;
КонецЕсли;
ОбластьПечати.ШиринаКолонки = ШиринаКолонки;
ОбластьПечати.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
КонецЦикла;
ТабДок.Напечатать();
КонецПроцедуры Показать
Добавлю увиденный пример печати в txt-файл. Этикетка сразу же идёт на печать термопринтера.
Шаблон = "CODEPAGE 1251
|DIRECTION 1
|CLS
|TEXT 120,8,""3"",0,1,1,2,""АРТИКУЛ ARTICLE""
|BARCODE 120,64,""EAN13"",60,2,0,2,2,2,""2000000021485""
|PRINT 1,3
|END
|";
ТекстНаПринтер = Новый ЗаписьТекста("comp1\tsc"+"\Этикетка30х20.txt", КодировкаТекста.ANSI);
ТекстНаПринтер.Записать(Шаблон);
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот