류한규 wrote:

> 안녕하십니까?

> 프린터의 Spooler를 제어하는 방법을 아시는 분의

> 조언을 부탁드립니다.

> 감사합니다.



// 작성자: 발도제 (sr21@tcom.co.kr)



unit Main;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, winspool, Activex;



type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);

message WM_SPOOLERSTATUS;

public

{ Public declarations }

end;





var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);

var

i : integer;

pjobinfo : ^JOB_INFO_1;

hprinter : Thandle;

dwneeded, dwreturned : Dword;



begin

dwneeded := 0;

dwreturned := 0;

msg.Result := 0;



if (OpenPrinter('프린터 이름', hprinter, nil) = false) then;

if (EnumJobs(hprinter, 0, $FFFFFFFF, 1, nil, 0, dwneeded,

dwreturned) = false) then

begin

if (GetLastError() <> ERROR_INSUFFICIENT_BUFFER) then

begin

closeprinter(hprinter);

end;

end;



GetMem(pjobinfo, dwNeeded);



if (pjobinfo = nil) then

begin

closeprinter(hprinter);

end;



if (EnumJobs(hprinter, 0, $FFFFFFFF, 1, pjobinfo, dwneeded,

dwneeded, dwreturned) = false) then

begin

closeprinter(hprinter);

FreeMem(pjobinfo);

end;



if msg.jobsleft > 1 then

setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,1);



end;



*참고....



setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,1); - 프린트 일시정지



setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,2); - 계속



setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,3); - 취소



setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,4); - 재시작



setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,5); - 삭제....



프린트 스풀러를 맘대로 제어할 수 있답니다....