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

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Alo
Новичок
Сообщения: 24
Зарегистрирован: 16 янв 2012, 15:16
Откуда: г.Челябинск

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

Сообщение Alo »

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

Спасибо!
Irina_
Местный житель
Сообщения: 547
Зарегистрирован: 17 июл 2012, 11:56
Откуда: Республика Беларусь, г.Могилев

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

Сообщение Irina_ »

Здравствуйте. Думаю, что правильно выводить не сразу на принтер, а в файл. А файл при необходимости можно распечатать. Например:
logstrtofile(fileName, str1)
fileName – файл, куда писать ,
str1 – строка, которую писать.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

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

Сообщение edward_K »

да и был такой файл - prn. Правильно сначала сделать файл а потом скопировать его в prn. Есть еще функции ExecProgram, где можно вызвать нечто для печати. Если протокол формируется в Excel , то там можно скрипт написать.
А вообще чего на принтер то - в наш век пора все на почту слать. Или хотя бы cмс.
Alo
Новичок
Сообщения: 24
Зарегистрирован: 16 янв 2012, 15:16
Откуда: г.Челябинск

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

Сообщение Alo »

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