Comment obtenir le nombre de documents en attente d'impression ?

Version imprimable

24/03/2005, 17h57
Cambon

Comment obtenir le nombre de documents en attente d'impression ?

Existe t'il un moyen simple de connaitre le nombre de document en attente d'impression ?

J'ai en effet besoin de cette donnée pour éviter de saturer le spooler, car je vais imprimer plus de 100 000 documents, l'un après l'autre.

Je voudrais donc limiter le nombre de document en attente à 10.

Merci
24/03/2005, 23h06
portu

Salut, je suppose qu'il doit y avoir cela dans l'api windows, mais faut chercher.

Seule solution bourrine que j'ai trouvée est de compter le nombre de fichier > à 0 octect dans C:\WINDOWS\system32\spool\PRINTERS et de diviser ce nombre par 2.

Par très brillante l'idée mais bon.

avec enumjobs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
Type
  TJobs = array [0..1000] of JOB_INFO_2;
  PJobs = ^TJobs;
 
Var
  BytesNeeded, NumJobs, i : Cardinal;
  pJ : PJobs;
begin
 
            // Recherche des Jobs
 
            EnumJobs(HandleImprimante,0,1000,2,nil,0, BytesNeeded,NumJobs);
            pJ := AllocMem(BytesNeeded);
            EnumJobs(HandleImprimante,0,1000,2,pJ,BytesNeeded, BytesNeeded,NumJobs);
 
            if NumJobs = 0 then
              ListeAjouts.Add('.....Pas de jobs en attente')
            else
              for i := 0 to Pred(Numjobs) do begin
                If (Pj[i].Status And JOB_STATUS_SPOOLING) = 0 then begin
                  ListeAjouts.Add('.....Job ' + IntToStr(pJ[i].JobId) + SavePchar(pJ[i].pDocument));
                  IdFic:=IntToStr(pj[i].JobId);
                  if ListeJobs.IndexOf(IdFic) = -1 then begin
                    inc(NbJobs);
                    Synchronize(MiseAJourCompteur);
                  end;
                end;
              end;

25/03/2005, 09h17
Cambon

Merci Chtiot

Merci de ta réponse !

Cordialement

:D