Отмена печати и очистка очереди на печать.

← →
Age (2004-09-07 16:57) [0]

Уважаемые знатоки, как можно сделать, что бы программа при загрузке самостоятельно очищала очередь печати принтера на локальном компьютере и прерывала вывод на печать. Заранее благодарю.

← →
Jeer © (2004-09-07 17:54) [1]

Написать такую программу с использованием EnumJobs(..) и SetJob(..)

← →
Age (2004-09-14 12:39) [2]

Procedure AbortJobs(sPrinterName: string;
var
i: Integer;
hPrinter: THandle;
bResult: Boolean;
cbBuf: DWORD;
pcbNeeded: DWORD;
pcReturned: DWORD;
aJobs: array[0..99] of JOB_INFO_1;
begin
cbBuf := 1000;

bResult := OpenPrinter(PChar(sPrinterName), hPrinter, nil);

if not bResult then
begin
MessageDlg("Не удалось открыть принтер.", mtError, [mbOK],0);
exit;
end;

bResult := EnumJobs(hPrinter, 0, Length(aJobs), 1, @aJobs, cbBuf, pcbNeeded,
pcReturned);
if not bResult then
begin
MessageDlg("Не удалось открыть задания.", mtError, [mbOK],0);
ClosePrinter(hPrinter);
exit;
end;

If pcReturned = 0 then
begin
MessageDlg(Нет заданий на печать!", mtError, [mbOK],0);
ClosePrinter(hPrinter);
exit;
end;

for i := 0 to pcReturned - 1 do
begin
if aJobs[i].pDocument <> nil then
begin
bResult := SetJob( hPrinter, aJobs[i].JobId, 0, niL, JOB_CONTROL_DELETE); //Для NT,2000,XP
//bResult := SetJob( hPrinter, aJobs[i].JobId, 0, niL, JOB_CONTROL_CANCEL);//Для 95,98,Me
end;
end;

ClosePrinter(hPrinter);

end;

Отмена печати и очистка очереди на печать. Найти похожие ветки