asked on

function to resume all paused print jobs + delphi

hi there!!!!!

i need a function in delphi that will resume all paused print jobs that are currently in the print job queue of the printer.

i have some code that resumes the printer but not the jobs. hope it helps. i need some urgent help.

***************************
procedure ResumePrinter;
var
hPrinter : THandle;
PrinterName : PChar;
PrinterDefaults : TPrinterDefaultsA;
DevMode : PDeviceModeA;
Needed : integer;
handle:thandle;
begin
try
PrinterName := PChar(Printer.Printers[Printer.PrinterIndex]);
WinSpool.OpenPrinter(PrinterName,hPrinter,nil);
Needed := WinSpool.DocumentProperties(Handle,hPrinter,PrinterName,DevMode^,DevMode^,0);
if Needed < 0 then
begin
exit;
end;
GetMem(DevMode,Needed);
WinSpool.DocumentProperties(Handle,hPrinter,PrinterName,DevMode^,DevMode^,DM_COPY);
PrinterDefaults.pDatatype := nil;
PrinterDefaults.pDevMode := @DevMode^;
PrinterDefaults.DesiredAccess := PRINTER_ALL_ACCESS;
ClosePrinter(hPrinter);
if OpenPrinter(PrinterName,hPrinter,@PrinterDefaults) then
begin
if WinSpool.SetPrinter(hPrinter,0,nil,PRINTER_CONTROL_RESUME) then
begin
ClosePrinter(hPrinter);
end
end;
ClosePrinter(hPrinter);
FreeMem(DevMode);
except
on e: exception do HandleException(e, 'ResumePrinter2000');
end;
end;
******************************

thanks a lot

ASKER CERTIFIED SOLUTION

Russell Libby

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

atul_parmar

Hi, the following will resume all the paused jobs for default printer. To resume for other printer, set PrinterName to the the printer for which you want to resume all the paused jobs.

proceure ResumeAllJobs;
var
PrinterName : string;
hPrinter : THandle;
NumJobs : cardinal;
pcbNeed,pcReturned:DWord;
i : integer;
Buffer: Pointer;
begin
PrinterName := Printer.Printers[Printer.PrinterIndex];
OpenPrinter(PAnsiChar(Printername), hPrinter, nil);
NumJobs := 10;
EnumJobs(hPrinter, 0, NumJobs, 2, nil, 0, pcbNeed, pcReturned);
GetMem(Buffer, pcbNeed);
if EnumJobs(hPrinter, 0, NumJobs, 2, Buffer, pcbNeed, pcbNeed, pcReturned) then
begin
for i := 1 to pcReturned do
begin
if TArrayofJobs(buffer^)[i].Status = JOB_STATUS_PAUSED then
SetJob(hPrinter, TArrayofJobs(buffer^)[i].JobId, 0, nil, JOB_CONTROL_RESUME);
end;
end;
end;

nikolaosk

ASKER

atul,

hi again

i get an error code

undeclared identifier:TArrayofJobs

please advise.
thanks