Verificar se fila de impressão vazia

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;