Печать текста без структуры Report
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- Игорь Столяров
- Ветеран движения
- Сообщения: 7419
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 16 раз
- Поблагодарили: 50 раз
Печать текста без структуры Report
Привет всем !
Эта тема так или иначе поднималась в нескольких обсуждениях, но решения нет.
Можно ли как-то распечатать текст на принтер без структуры REPORT ? Напрямую через API, например.
Интересует конкретный пример или описание процесса для принтера с драйвером Windows.
Поясню, почему возник вопрос. Есть импортный (Китай) принтер чеков. Из блокнота текст печатается прекрасно.
Печатаю тот же текст из Report - просто прогоняет ленту и всё …
Заранее спасибо за наводку.
Эта тема так или иначе поднималась в нескольких обсуждениях, но решения нет.
Можно ли как-то распечатать текст на принтер без структуры REPORT ? Напрямую через API, например.
Интересует конкретный пример или описание процесса для принтера с драйвером Windows.
Поясню, почему возник вопрос. Есть импортный (Китай) принтер чеков. Из блокнота текст печатается прекрасно.
Печатаю тот же текст из Report - просто прогоняет ленту и всё …
Заранее спасибо за наводку.
За теми кто отстал - не возвращаться. (С) Кодекс
- finsoftrz
- ✯ Ветеран ✯
- Сообщения: 4664
- Зарегистрирован: 06 Ноябрь 2014, 12:48
- Благодарил (а): 8 раз
- Поблагодарили: 37 раз
Печать текста без структуры Report
А что просто не записать в текстовый файл и послать на печать программой по умолчанию?
C6/C11, ШВС, tps/btrieve.
- finsoftrz
- ✯ Ветеран ✯
- Сообщения: 4664
- Зарегистрирован: 06 Ноябрь 2014, 12:48
- Благодарил (а): 8 раз
- Поблагодарили: 37 раз
Печать текста без структуры Report
Код: Выделить всё
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).
C6/C11, ШВС, tps/btrieve.
- Игорь Столяров
- Ветеран движения
- Сообщения: 7419
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 16 раз
- Поблагодарили: 50 раз
Печать текста без структуры Report
Спасибо ! Сейчас попробуем-с …
Я пробовал когда-то очень-очень давно тупо копировать текстовый файл на порт печати. Работало, но сейчас не будет.
Я пробовал когда-то очень-очень давно тупо копировать текстовый файл на порт печати. Работало, но сейчас не будет.
За теми кто отстал - не возвращаться. (С) Кодекс
-
- ✯ Ветеран ✯
- Сообщения: 5006
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 21 раз
Печать текста без структуры Report
Операции "printto" в описании ShellExecute нет. Есть "print". Есть разница между ними?
We are hard at work… for you.
- Дед Пахом
- Старичок
- Сообщения: 3137
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 11 раз
- Поблагодарили: 32 раза
- Контактная информация:
Печать текста без структуры Report
printto печатает на конкретный принтер, а print на дефолтный, вроде так.
С уважением, ДП
- Игорь Столяров
- Ветеран движения
- Сообщения: 7419
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 16 раз
- Поблагодарили: 50 раз
Печать текста без структуры Report
Спасибо ! Всё работает.
Но есть один момент - нужно имя принтера "заворачивать" в кавычки, т.к. это составной параметр.
Код: Выделить всё
lor:lpParameters='"' & Clip(PRINTER{PROPPRINT:Device}) & '"'
lor:lpParameters='"' & Clip(MyFieldPrinterName) & '"'
Если Блокнот Windows установлен как программа обработки файлов с расширением TXT.
За теми кто отстал - не возвращаться. (С) Кодекс
-
- ✯ Ветеран ✯
- Сообщения: 5006
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 21 раз
Печать текста без структуры Report
Буду знать. Может когда понадобится.Игорь Столяров писал(а): ↑02 Май 2020, 14:58 И да. Незаконный "printto" - это печать на произвольный принтер в системе, в т.ч. и сетевой - работает.
We are hard at work… for you.
- Игорь Столяров
- Ветеран движения
- Сообщения: 7419
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 16 раз
- Поблагодарили: 50 раз
Печать текста без структуры Report
Так себе прибамбас … Неуправляемая печать, текст нужно записывать в файл, блымает окно печати …
Мне просто сейчас неохота разбираться с козлящим китайским принтером чеков (точнее его драйвером).
10 лет текст печатался и печатается прекрасно через штатный Report на кучу принтеров чеков и никогда не было проблем.
За теми кто отстал - не возвращаться. (С) Кодекс
- finsoftrz
- ✯ Ветеран ✯
- Сообщения: 4664
- Зарегистрирован: 06 Ноябрь 2014, 12:48
- Благодарил (а): 8 раз
- Поблагодарили: 37 раз
Печать текста без структуры Report
Мне кажется, это еще для матричных принтероа делалось...
C6/C11, ШВС, tps/btrieve.
-
- ✯ Ветеран ✯
- Сообщения: 5006
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 21 раз
Печать текста без структуры Report
Есть у нас тема. Некие документы хранятся в архиве в pdf. И надо иногда их распечатывать, не открывая. Используем ShellExecute с командой print. Да, некая специфика, нестандартная.
We are hard at work… for you.
-
- ✯ Ветеран ✯
- Сообщения: 1704
- Зарегистрирован: 25 Март 2009, 21:55
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
Печать текста без структуры Report
Дополню, может кому то понадобиться.
Чтобы убрать отступы в документе при печати в терминальном режиме (RDP) *.txt, который печатается с помощью notepad.exe.
В сессии под пользователем вызвать notepad.exe и в настройках указать нужные отступы, например: 0 (ноль).
Чтобы убрать отступы в документе при печати в терминальном режиме (RDP) *.txt, который печатается с помощью notepad.exe.
В сессии под пользователем вызвать notepad.exe и в настройках указать нужные отступы, например: 0 (ноль).
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп