Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Save data sent to printer / 4 сообщений из 4, страница 1 из 1
25.09.2019, 03:37
    #39866630
FredFF
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Save data sent to printer
I need to save data sent directly to printer via AssignPrn/textfile. It can be text file or better PDF. How to make parallel printing and saving? I have used WriteLn/Printer.Canvas.TextOut at position. If I have only WriteLn then it's easy by saving each line in TStringList and save in text file after printing completed. Any ideas?

Thanks, Fred
...
Рейтинг: 0 / 0
25.09.2019, 10:31
    #39866698
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Save data sent to printer
думаю, вам придется сначала писать (вместо печатать) всё в некоторое промежуточное представление, сохранять его на диск, а затем уже это промежуточное представление отправлять (через парсер) на принтер
...
Рейтинг: 0 / 0
25.09.2019, 10:41
    #39866704
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Save data sent to printer
P.S.

То, что я предложил, все-таки отличается от вашего желания "I need to save data sent directly to printer".

Если же по каким-либо причинам "припёрло" и действительно нужно "send directly", то возможно поступить вот как: ВСЕ функции и процедуры, через которые происходит вывод на принтер, заменить на свои. И в этих своих для каждого вызова производить 2 действия:
1) перенаправление на принтер и
2) сохранение всех параметров в некий log-файл, который в последствии можно было бы отправить снова на принтер через интерпретатор
...
Рейтинг: 0 / 0
25.09.2019, 16:55
    #39866989
Василий 2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Save data sent to printer
Создать canvas из принтерного
Нарисовать там все что нужно
Скопировать на принтер
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Save data sent to printer / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]