powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Save data sent to printer
4 сообщений из 4, страница 1 из 1
Save data sent to printer
    #39866630
FredFF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
Save data sent to printer
    #39866698
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
думаю, вам придется сначала писать (вместо печатать) всё в некоторое промежуточное представление, сохранять его на диск, а затем уже это промежуточное представление отправлять (через парсер) на принтер
...
Рейтинг: 0 / 0
Save data sent to printer
    #39866704
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
P.S.

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

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


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