Существует ли способ для определение числа заданий Spoolerа печати

Вопрос: Существует ли способ для определение числа заданий spoolerа печати?

Ответ: Spoolerа печати 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
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати