Comment vider le spool d'impression ?

Question

Bonjour,

je souhaite effacer le contenu du spool.

J'utilise la fonction 

WinSpool.SetPrinter( hPrinter, 0, nil, PRINTER_CONTROL_PURGE )

mais elle ne fonctionne pas tout le temp ou alors elle le dernier job est tr&#233;s long &#224; s'effacer.

Merci

ni69 · Answer

tu peux essayer comme &#231;a (en arr&#234;tant puis en red&#233;marrant le service d'impression) :

uses ShellApi



ShellExecute(0,nil,PChar('net'),PChar('stop spooler'),nil,SW_HIDE);

ShellExecute(0,nil,PChar('net'),PChar('start spooler'),nil,SW_HIDE);


@+
Bonne Prog'
Nico [www.ni69.new.fr]
 


N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

ni69 · Answer

Est-ce que cela te convient 

@+

Bonne Prog'

Nico [www.ni69.new.fr]

  

N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_mcjn · Answer

L'arrêt et le redémarrage du spooler fonctionne, mais le problème c'est qu'au redémarrage on retrouve à nouveau les job en cours.

ni69 · Answer

Essaye ce code : procedure TForm1.EmptySpooler; var SpoolFile: TSearchRec; a : Integer; begin // On arrête le service Spooler d'impression ShellExecute(0,nil,PChar('net'),PChar('stop spooler'),nil,SW_HIDE); // On cherche dans le registre le répertoire du spool car il se peut que l'utilisateur l'ait changé. with TRegistry.Create do try RootKey := HKEY_LOCAL_MACHINE; OpenKey('SYSTEM\CurrentControlSet\Control\Print\Printers', false); // On supprime tous les fichiers en attente a := FindFirst(IncludeTrailingPathDelimiter(ReadString('DefaultSpoolDirectory'))+'*.*', FaAnyfile, SpoolFile); while a = 0 do begin if ((SpoolFile.Attr and FaDirectory <> FaDirectory) and (SpoolFile.Attr and FaVolumeId <> FaVolumeID)) then DeleteFile(pChar(IncludeTrailingPathDelimiter(ReadString('DefaultSpoolDirectory')) + SpoolFile.Name)); a := FindNext(SpoolFile); end ; SysUtils.FindClose(SpoolFile); CloseKey; Finally Free; end; // On redémarre le service Spooler d'impression ShellExecute(0,nil,PChar('net'),PChar('start spooler'),nil,SW_HIDE); end; @+ Nico { http://perso.wanadoo.fr/ni69/ }

N'oubliez pas de cliquer sur Réponse Acceptée lorsque la réponse vous convient !

cs_mcjn · Answer

Cette fonction supprime toutes les imprimantes installées !

ni69 · Answer

Non, pas du tout !!! Elle supprime les documents en cours d'impression, c'est tout ! 


 @+

      Nico  { http://perso.wanadoo.fr/ni69/ }

      

           
       

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

cs_mcjn · Answer

En theorie oui, je suis d'accord, elle devrait n'effacer que les job en cours,
mais je confirme bien aprés l'avoir exécuté elle m'a supprimée toutes les imprimantes installées.
J'ai tout retrouvé au redémarrage de windows.
Bizarre...

ni69 · Answer

Chez moi, elle ne supprime pas les imprimantes... Seulement les documents en cours d'impression. Juste quelques questions :

Quel OS as-tu ?

Qu'as-tu comme fichiers (active l'affichage des fichiers cachés et fichiers système bien sûr) dans ce répertoire au démarrage de windows (quand tu n'as lancé aucune impression) ?

@+ Nico { http://perso.wanadoo.fr/ni69/ } N'oubliez pas de cliquer sur Réponse Acceptée lorsque la réponse vous convient !

cs_joro · Answer

J'ai un os win 98 sur lequel je doit vider le spooler de l'imprimante sur LPT1
Je cherche donc un code qui me permettrait d'aboutir.
Merci.

Comment vider le spool d'impression ?

9 réponses

Votre réponse

Discussions similaires