이호선 wrote:

> 안녕하세요.

> 한 폼에서 프린트가 끝난상태를 알고 폼을 닫을려 합니다.

> 프린트가 끝난는지를 어떻게 하면 알수가 있는지요?



안녕하세요 김영대입니다

만약 사용하시는 기본 프린터가 스플러 설정이 되어 있다면

아래 예제를 참고하세요



// 프린터 스풀러는 스풀러 큐(queue)에 인쇄작업(job)이 추가 또는 제거될 때

// 마다 WM_SPOOLERSTATUS 를 원도우즈 시스템 전체에 보냅니다

// 이 메시지를 받아보면 됩니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Label1: TLabel;

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);

begin

Label1.Caption := '스플러에 '+IntToStr(msg.JobsLeft)+

' 개의 대기중인 인쇄작업이 있습니다';

msg.Result := 0;

end;



end.