Печать текста без структуры Report

Обсуждение извечных проблем кларионовских (и не только) отчетов
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 4626
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-ДоМу

Печать текста без структуры Report

Сообщение Игорь Столяров »

Привет всем !

Эта тема так или иначе поднималась в нескольких обсуждениях, но решения нет.

Можно ли как-то распечатать текст на принтер без структуры REPORT ? Напрямую через API, например.
Интересует конкретный пример или описание процесса для принтера с драйвером Windows.

Поясню, почему возник вопрос. Есть импортный (Китай) принтер чеков. Из блокнота текст печатается прекрасно.
Печатаю тот же текст из Report - просто прогоняет ленту и всё … :(

Заранее спасибо за наводку. :)
«V» значит Вендетта !

Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 1667
Зарегистрирован: 06 Ноябрь 2014, 12:48

Печать текста без структуры Report

Сообщение finsoftrz »

А что просто не записать в текстовый файл и послать на печать программой по умолчанию?
Рязань решает.

Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 1667
Зарегистрирован: 06 Ноябрь 2014, 12:48

Печать текста без структуры Report

Сообщение finsoftrz »

Код: Выделить всё

form_r routine
  DATA
lor:WHandle           UNSIGNED,AUTO      !переменные для запуска просмотра
lor:lpOperation   CSTRING('printto')
lor:lpParameters  CSTRING(100)
lor:lpDirectory   CSTRING(1)
lor:FileName      CSTRING(FILE:MaxFilePath),AUTO
  CODE
  lor:FileName=clip(lop:filename)
  lor:WHandle=Target{PROP:Handle}
  lor:lpParameters=PRINTER{PROPPRINT:Device}
  lor:lpDirectory=0
  if ShellExecute(lor:WHandle,lor:lpOperation,lor:FileName,lor:lpParameters,lor:lpDirectory,7).

Рязань решает.

Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 4626
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-ДоМу

Печать текста без структуры Report

Сообщение Игорь Столяров »

Спасибо ! Сейчас попробуем-с … :)
Я пробовал когда-то очень-очень давно тупо копировать текстовый файл на порт печати. Работало, но сейчас не будет. :(
«V» значит Вендетта !

kreator
✯ Ветеран ✯
Сообщения: 3724
Зарегистрирован: 28 Май 2009, 14:54
Откуда: Москва

Печать текста без структуры Report

Сообщение kreator »

Операции "printto" в описании ShellExecute нет. Есть "print". Есть разница между ними?
We are hard at work… for you. :)

Аватара пользователя
Дед Пахом
Старичок
Сообщения: 2428
Зарегистрирован: 07 Июль 2005, 15:51
Откуда: Москва, Россия

Печать текста без структуры Report

Сообщение Дед Пахом »

printto печатает на конкретный принтер, а print на дефолтный, вроде так.
С уважением, ДП

Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 4626
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-ДоМу

Печать текста без структуры Report

Сообщение Игорь Столяров »

finsoftrz писал(а):
01 Май 2020, 10:03
Рязань решает.
Спасибо ! Всё работает. :)
Но есть один момент - нужно имя принтера "заворачивать" в кавычки, т.к. это составной параметр.

Код: Выделить всё

   lor:lpParameters='"' & Clip(PRINTER{PROPPRINT:Device}) & '"'
   lor:lpParameters='"' & Clip(MyFieldPrinterName) & '"'
И да. Незаконный "printto" - это печать на произвольный принтер в системе, в т.ч. и сетевой - работает. :)
Если Блокнот Windows установлен как программа обработки файлов с расширением TXT. ;)
«V» значит Вендетта !

Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 1667
Зарегистрирован: 06 Ноябрь 2014, 12:48

Печать текста без структуры Report

Сообщение finsoftrz »

Вместе мы сила. Пойду поправлю. :-)
Рязань решает.

kreator
✯ Ветеран ✯
Сообщения: 3724
Зарегистрирован: 28 Май 2009, 14:54
Откуда: Москва

Печать текста без структуры Report

Сообщение kreator »

Игорь Столяров писал(а):
02 Май 2020, 14:58
И да. Незаконный "printto" - это печать на произвольный принтер в системе, в т.ч. и сетевой - работает.
Буду знать. Может когда понадобится.
We are hard at work… for you. :)

Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 4626
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-ДоМу

Печать текста без структуры Report

Сообщение Игорь Столяров »

kreator писал(а):
02 Май 2020, 15:40
Может когда понадобится.
Так себе прибамбас … Неуправляемая печать, текст нужно записывать в файл, блымает окно печати … :(
Мне просто сейчас неохота разбираться с козлящим китайским принтером чеков (точнее его драйвером).
10 лет текст печатался и печатается прекрасно через штатный Report на кучу принтеров чеков и никогда не было проблем.
«V» значит Вендетта !

Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 1667
Зарегистрирован: 06 Ноябрь 2014, 12:48

Печать текста без структуры Report

Сообщение finsoftrz »

Мне кажется, это еще для матричных принтероа делалось...
Рязань решает.

kreator
✯ Ветеран ✯
Сообщения: 3724
Зарегистрирован: 28 Май 2009, 14:54
Откуда: Москва

Печать текста без структуры Report

Сообщение kreator »

Есть у нас тема. Некие документы хранятся в архиве в pdf. И надо иногда их распечатывать, не открывая. Используем ShellExecute с командой print. Да, некая специфика, нестандартная.
We are hard at work… for you. :)

Ответить