Передо мной стоит задача : выводить данные на «матричный принтер»
Построчно (без вызова формы для печати Принтера) не беспокоя пользователя.
Знаю что есть возможность выводить данные на прямую на LPT порт, а как ??
Может кто сталкивался с подобным или знает какой либо другой способ?

Copy my.txt LPT1

Напечатать(0);

Copy my.txt LPT1- разжевать можно, плиз!
Напечатать(0); пролистывает страницу А4,
нужно строчка под строчкой

ВыполнитьКомандуСистемы("copy my.txt lpt1");

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

файл то текстовый можешь создать?

у меня за день около 150 файлов тогда будет созданных, а без созданя файла..

мда .. имя файла эксклюзив?

без создания файла, возможно (просто вывести данные на порт)

на скорую руку: ЕХЕ-шник с передачей параметра(строки)

как пример можно.

развод похоже ...

а ещё я в неё ем...
влом создать,послать,удалить файл

та какой там развод , проблема у меня , а подсказать не кому, кусок кода может быть кто не поленится...

(14)
кури ESC последовательности, формируй файл с их участием и (1)
зы яндекс поможет...

создай файл с бредовым именем из одной строки , это можешь?

Процедура ПечатьСтрока()
~М:
сФайл = "cook.txt";
сКатал = КаталогПрограммы();
ИмяФайла = сКатал+сФайл;
Если ФС.СуществуетФайл(ИмяФайла)=0 Тогда
     Перейти ~М;
ИначеЕсли ФС.СуществуетФайл(ИмяФайла)=1 Тогда
Т=создатьобъект("Текст");
Т.Добавитьстроку("Сотр: "+Сотр+" ШТ: "+ШтрихКод+" Сума: "+Сумма);
Т.Записать(ИмяФайла);
Т.ВыполнитьКомандуСистемы("copy cook.txt lpt1");
КонецЕсли;
  ШтрихКод = "";
КонецПроцедуры
Типа того?
Пробую не получается

изменил :Т.ВыполнитьКомандуСистемы("copy"+ИмяФайла+"LPT1");
Пишет "выполняется обработка..." и тишина
??

(18) В бесконечный цикл свалились, однако. Файла то изначально нет.

программные файлы находятся на машине пользователя, а база на сервере

" LPT1" пробел.
на принтере там кнопки еще были, выбрасывать весь лист. уже и не помню про матричные.

ошибка: "Поле агрегатного объэкта не обнаружено (ВыполнитьКомандуСистемы)"

ошибка: "Поле агрегатного объэкта не обнаружено (ВыполнитьКомандуСистемы)"

(23) В каком месте я писал про !!Т.!!!Выполнить...???

если без обїєкта "Т"
то ошибка при проверке:"Процедура не обнаружена (ВыполнитьКомандуСистемы)" так как её использовать?

Пробуй так
КомандаСистемы("copy"+ИмяФайла+" LPT1");

да работает (кинул файл в каталог Windows;
вот правда кодировка не та (белеберда не понятная)
+каретка не переходит на строку ниже, дописывает

ты бы код показал

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

EPSON LX-300+
сФайл = "cook.txt";
сКатал = КаталогПрограммы();
ИмяФайла = сКатал+сФайл;
Если ФС.СуществуетФайл(ИмяФайла)=0 Тогда
     Сообщить("не существует файла "+ИмяФайла);
ИначеЕсли ФС.СуществуетФайл(ИмяФайла)=1 Тогда
Т=создатьобъект("Текст");
Т.Очистить();
Т.Добавитьстроку("Сотр: "+Сотр+" ШТ: "+ШтрихКод+" Сума: "+Сумма);
Т.Записать(ИмяФайла);
КомандаСистемы("copy cook.txt lpt1" );
КонецЕсли;

Т.Кодировка(???)
насчет переноса - а где он у тебя в тексте?

А еще где-то была ВК, которая могла сразу посылать текст на принтер...
Но я до нее не добрался...
copy file prn мне хватило
даже на сетевой принтер...

Пробуй
Т.КодоваяСтраница(1); после Т=создатьобъект("Текст");

из файла строка на
принтер печатается, какретка не переходит на новую строку останавливается,(следующую строкю продолжает печатать с места остановки )

Т.Добавитьстроку("Сотр: "+Сотр+" ШТ: "+ШтрихКод+" Сума: "+Сумма+разделительСтрок);

Спасибо всем кто отозвался на "крик"
Теперь в мире на одну проблему стало меньше!

(36) Да Вы, вроде, нигде и не кричали. Так, мило пообщались.

http://1c.proclub.ru/modules/kb/files/extprint.zip