File d'attente imprimante

Sujet: File d'attente imprimante Dim 8 Jan 2012 - 22:21

Quand on fait des essais d'impression, comme par exemple en ce moment avec les programmes de Klaus, ou on gaspille beaucoup de papier (et d'encre), ou on fait les essais imprimante éteinte, mais il faut bien voir le résultat.
Et en général on veut purger la file d'attente, sous peine de voir tout se mettre à sortir au réallumage de l'imprimante.
D'où ce petit programme sans prétention qui permet d'examiner l'état des instances imprimante, de visualiser un des éléments, et de purger le tout.
Le programme nécessite SPLView, freeware qui permet de visualiser un fichier en instance d'impression, disponible là (lien déjà donné par Klaus, autrefois): http://www.lvbprint.de/html/splviewer.html
Il faudra adapter les constantes (chemins) en début de programme, et notamment le nom de l'imprimante.
(J'avais prévu de pouvoir supprimer un seul élément, mais ça ne le fait pas proprement, alors je l'ai enlevé)

Code:: ' Apercu.bas Etat/Visualisation/Suppression de la file d'attente imprimante
LABEL Quit, Dirspl, Vsel, Suptout
DIM fm$, spl$, rsp$, Impr$, a$, k%

fm$ = "C:\Temp\Dir.tmp": ' fichier de manoeuvre (temporaire)
spl$ = "C:\Progra~2\SPLView\SPLView.exe ": ' visualiseur
rsp$ = "C:\Windows\System32\Spool\Printers": ' répertoire des instances imprimante
Impr$ = "HP Photosmart B109a-m": ' nom de l'imprimante locale

WIDTH 0, 260: HEIGHT 0, 200: BORDER_SMALL 0: CAPTION 0, " - INSTANCES "+ Impr$ + " -"
FONT_BOLD 0
LIST 2: TOP 2, 0: WIDTH 2, 95: HEIGHT 2, 160: COLOR 2, 255,255,164
BUTTON 3: TOP 3, 5: LEFT 3,100: WIDTH 3, 140: CAPTION 3, "Voir la sélection"
BUTTON 4: TOP 4, 35: LEFT 4, 100: WIDTH 4, 140: CAPTION 4, "Supprimer tout"
BUTTON 5: TOP 5, 110: LEFT 5, 100: WIDTH 5, 140: CAPTION 5, "Actualiser"
BUTTON 6: TOP 6, 140: LEFT 6, 100: WIDTH 6, 140: CAPTION 6, "Quitter"
ON_CLICK 3, Vsel: ON_CLICK 4, Suptout: ON_CLICK 5, Dirspl: ON_CLICK 6, Quit
GOSUB Dirspl
END

Quit:
TERMINATE

Dirspl:
' Pour chaque instance il se crée 2 fichiers de même nom
' dans le répertoire spool: .SPL et .SHD
EXECUTE_WAIT "Cmd.exe /c DIR " + rsp$ + "\*.SPL /B >" + fm$
FILE_LOAD 2, fm$: FILE_DELETE fm$
RETURN

Vsel:
IF ITEM_INDEX(2) = 0 THEN RETURN
EXECUTE_WAIT spl$ + rsp$ + "" + ITEM_INDEX$(2)
RETURN

Suptout:
IF COUNT(2) = 0 THEN RETURN
IF MESSAGE_CONFIRMATION_YES_NO("Suppression de toutes les instances ?") = 1
a$ = "C:\Windows\System32\Printing_Admin_Scripts\fr-FR\prnqctl.vbs -x -p "
a$ = a$ + CHR$(34) + Impr$ + CHR$(34)
EXECUTE_WAIT "Cscript.exe " + a$
GOSUB Dirspl
END_IF
RETURN

Nombre de messages : 601 Date d'inscription : 05/01/2012

Merci pour cet utilitaire, très pratique, ça m'est arrivé énormément de fois d'en avoir besoin !

Sujet: Re: File d'attente imprimante Dim 8 Jan 2012 - 22:55

Et comme en informatique, il n'y a jamais de solution unique, en voici une autre pour résoudre ce problème.

Maintenant, j'utilise PDFCreator (freeware) qui installe une imprimante virtuelle produisant un fichier PDF, pour n'importe quelle impression, Panoramic bien sûr, mais aussi des programmes Windows comme Word, Notepad, Excel etc. Voici le lien.

Sujet: Re: File d'attente imprimante Dim 8 Jan 2012 - 23:07

Citation :: Et comme en informatique, il n'y a jamais de solution unique

et c'est bien ce qui fait le charme de la chose !

Sujet: Re: File d'attente imprimante Dim 15 Jan 2012 - 17:41

Légère modification dans le code ci-dessus: ajout d'un bouton 'Actualiser' pour rafraîchir la file d'attente, ce qui permet de faire les essais d'impression avec un autre programme en laissant le module d'aperçu actif dans un coin, pour voir les résultats au fur et à mesure.

» Kgf et Imprimante
» Gestion de l'imprimante
» projet d'imprimante 3D
» Calcul résolution ecran/imprimante
» FILE