Как определить количество заданий на печать

Windows передает WM_SPOOLERSTATUS каждый раз, когда добавляется или удаляется задание на печать. В примере мы попытаемся перехватывать это сообщение.

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

  Lable1.Caption := IntToStr(msg.JobsLeft) +
    ' Jobs currenly in spooler';
  msg.Result := 0;
end
;

Другое по теме:

• Escape код PASSTHROUGH
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати