Discussion :

[Cambon]

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

[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.

[chtiot]

avec enumjobs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Cambon]

Merci de ta réponse !

Cordialement