Foros Club Delphi - Como detecto cuando mandan imprimir desde Windows

La siguiente propiedad es la que el Delphi nos da, SOLO funciona cuando TU aplicacion imprime algo mediante la unidad "Printers"

Código Delphi [-]uses Printers;
begin
 if Printer.Printing then ...
end.

Para saber si el S.O. está imprimiendo algo independientemente de tu aplicación pues te dejo el siguiente codigo:

Código Delphi [-]uses WinSpool;
 
var Buffer: array [0..1024*1024-1] of Char;
 
function IsPrinting(lpPrinterName: PChar): LongBool;
var hPrinter, Count, Dummy: Cardinal; lpBuffer: PChar;
begin
 Result := False;
 if not OpenPrinter(lpPrinterName, hPrinter, nil) then Exit;
 lpBuffer := @Buffer;
 EnumJobs(hPrinter, 0, $FFFFFFFF, 1, lpBuffer, SizeOf(Buffer), Dummy, Count);
 ClosePrinter(hPrinter);
 while (Count <> 0) and not Result do
  begin
   Result := (PJobInfo1(lpBuffer).Status and JOB_STATUS_PRINTING) <> 0;
   Inc(lpBuffer, SizeOf(TJobInfo1));
   Dec(Count);
  end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if IsPrinting('Microsoft Office Document Image Writer') then
  Caption := 'Imprimiendo...'
 else
  Caption := 'Impresora inactiva.';
end;