Состояние принтера. Как определить?

← →
sirsergio © (2004-12-15 18:17) [0]

Есть необходимость обрабатывать текущее состояние принтера. Печать производиться на принтер штрих-кодов.
В буфер печати бросается не все задание, а по листу
Юзер должен мочь отменить печать в любой момент времени.
Как определить, что лист распечатался (принтер ничего не печатает). Использую глобальный объект Printer.

← →
Суслик © (2004-12-15 18:21) [1]

> Юзер должен мочь отменить печать в любой момент времени.

прости, что с оффтопом, но почему бы не позволить ему это делать штатными средствами - отменять через очередь печати?

Ответа не знаю, к сожалению.

← →
olookin © (2004-12-15 18:21) [2]

Printer.Printing?

← →
Суслик © (2004-12-15 18:23) [3]

не пойдет - это флажок самого printer. К принтеру отношения не имеет.

← →
olookin © (2004-12-15 18:24) [4]

[3] Суслик © (15.12.04 18:23)

Э. Я либо чего то не понимаю, либо вот:

Use Printing to determine if a job is printing.
Printing is True when the application has called the BeginDoc method but the EndDoc method (or the Abort method) hasn"t yet been called.

Остановить печать надо из программы?

← →
Суслик © (2004-12-15 18:26) [5]

> Остановить печать надо из программы?

ну ты типа реализацию printing посмотри - это просто дельфовый флажок.

← →
olookin © (2004-12-15 18:30) [6]

>>это просто дельфовый флажок.

Ну конечно это просто индикатор процесса. Но:

>>Юзер должен мочь отменить печать в любой момент времени. = Abort
>>Как определить, что лист распечатался (принтер ничего не печатает). = Printing.

Т.е. если сейчас идет печать и надо отменить эту самую печать, то

if Printer.Printing then Printer.Abort

Правильно я понял?

← →
Суслик © (2004-12-15 18:32) [7]

> Правильно я понял?

насколько я понял автору нужно понять что лист реально распечатался.
и толкьо потом послать следующий.
printing об этом не скажет.

← →
olookin © (2004-12-15 18:36) [8]

[7] Суслик © (15.12.04 18:32)

Вроде так, но вот что странно. Посылаем запрос на печать (BeginDoc), дальше идет процесс печати (Printing=true), и по завершении задачи (неважно как она завершилась, хоть вообще картрижд лопнул, лишь бы система сообщила об этом) получаем (EndDoc и Printing=false). Если бумага зажевалась (например), то Printing=true до тех пор, пока задача не снята вручную, либо методом, действительно не имеющим отношения к TPrinter. Согласитесь, определить, что бумага зажевалась, можно только визуально (т.е. не программно).

что-то я не пойму о чем ты:

procedure TPrinter.EndDoc; begin CheckPrinting(True); EndPage(DC); if not Aborted then Windows.EndDoc(DC); FPrinting := False; FAborted := False; FPageNumber := 0; end;

я уже приложение закрыл, т.е. enddoc давно выполнился, т.е. printing = false, а принтер все печатает.

Разьясню. Когда у принтера заканчивается бумага он печатает повер последней страницы оставшиеся страницы (такой принтер уж).
На счет свойства Printing, следующее - бросается одна страница, далее Printer.BeginDoc, после - Printer.EndDoc, в этом промежутке Printing = True, реально печать идет после Printer.EndDoc. Далее мне надо каким-то флажком определить момент распечатки страницы (первой). Как???

Разьясню. Когда у принтера заканчивается бумага он печатает повер последней страницы оставшиеся страницы (такой принтер уж).
На счет свойства Printing, следующее - бросается одна страница, далее Printer.BeginDoc, после - Printer.EndDoc, в этом промежутке Printing = True, вне FALSE! Реально печать идет после Printer.EndDoc. Далее мне надо каким-то флажком определить момент распечатки страницы (первой). Как???

Состояние принтера. Как определить? Найти похожие ветки