Verificar se fila de impressão vazia

[F-J 0]

Preciso consultar se a fila de impressão está vazia (impressora padrão), pois utilizo a rotina abaixo (com loop p imprimir varios arquivos) e as vezes a fila perde arquivos pelo excesso.

Já testei na propria impressora (imprimir diretamente/ imprimir apos 1a.... etc), mas oscila a perda na fila.

 

Portanto, pensei q a solução seria a impressão gradativa ( tipo um temporizador p/ verificar se a fila já está vazia, p mandar o proximo arquivo)

 

Alguem pode me ajudar??

 

ROTINA QUE IMPRIME ARQUIVO DIRETO

 

implementation

uses ShellApi;

{$R *.DFM}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(Handle, 'print',PChar('C:\Pasta\Leiame.pdf'), nil,nil,SW_SHOW);

end;

[marcio.theis 3]

Veja se este exemplo lhe ajuda, ele monitora as impressoras e arquivos na lista de impressão...