Страница 1 из 1

Как вывести текст на принтер, возможно ли это?

Добавлено: 31 июл 2015, 13:45
Alo
Доброго времени суток уважаемые форумчане!
Помогите, пожалуйста!
Задача: в атлантисе вместо вывода сообщения на экран
message('Нет работников с превышением', cmOk)
надо вывести текст сообщения сразу на принтер.
Как вывести текст на принтер, возможно ли это?

Спасибо!

Re: Как вывести текст на принтер, возможно ли это?

Добавлено: 31 июл 2015, 14:06
Irina_
Здравствуйте. Думаю, что правильно выводить не сразу на принтер, а в файл. А файл при необходимости можно распечатать. Например:
logstrtofile(fileName, str1)
fileName – файл, куда писать ,
str1 – строка, которую писать.

Re: Как вывести текст на принтер, возможно ли это?

Добавлено: 31 июл 2015, 18:33
edward_K
да и был такой файл - prn. Правильно сначала сделать файл а потом скопировать его в prn. Есть еще функции ExecProgram, где можно вызвать нечто для печати. Если протокол формируется в Excel , то там можно скрипт написать.
А вообще чего на принтер то - в наш век пора все на почту слать. Или хотя бы cмс.

Re: Как вывести текст на принтер, возможно ли это?

Добавлено: 04 авг 2015, 16:58
Alo
Спасибо большое за помощь!
Было реализовано следующим образом:
в файле vip формируется поток для прототипа
в потоке передается счетчик количества записей
В присоединенной форме rtf с помощью .{?internal; анализируется счетчик
если записи есть (счетчик>0), то формируется таблица с заголовком, если записей нет (счетчик = 0), то формируется текст, что записей нет
в vip .ShowFile; или, если сразу на принтер, то .PrintFile;