количество распечатанных файлов на принтере

[ZhekON]

ЛЮДИ У МЕНЯ ПРОБЛЕМА!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: 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) +
    ' Jobs currenly in spooler -msg.JobsLeft';
  label2.Caption := Inttostr(msg.JobStatus) +
    ' -msg.JobStatus';
  label3.Caption := inttostr(msg.Unused) +
    ' -msg.Unused';
  msg.Result := 0;
end;

end.

Этот перехват ни в один лейбэл не помещает ничего!!!
А должно помещать количество розпечатаных файлов на принтере и скольно не розпечатаных.... НИЧЕГО НЕТУ!
Помогите плиз.

[ZhekON]

Люди, мне сказали что есть ещё и другие перехватчики события печати...
МОж кто знает? Это нужно мне чем по быстрее... ПОжалуста говорите всё что знаете, хоть дажэ оно и не всё правильно!

[Квэнди]

EnumJobs не пробовал ?

[rpy3uH]

не самый лучший способ:
надо перехватывать глобально функцию EndDoc, которая отправляет на печать очередную страницу

[ZhekON]

люди незнаю дажэ о чём вы говорите, пожалуста обясните поподробнее, если можно примеры дайте. ОГРОМНОЕ ВАМ СПАСИБО ЗА ТРУД, который вы зделаете для меня...