Discussion :

[milia]

Bonjour,

J'ai fait des recherches afin de vider un spouleur d'impression, mais je ne trouve pas comment faire, je n'ai trouvé que comment voir l'état du spouler avec la fontion getjob.

J'aimerais savoir comment je peux vider le spouleur d'impression, afin de partir avec le buffer vide d'impression et être sur qu'il n'y a rien qui va s'imprimer quand je vais lancer une nouvelle impression.

Je ne sais pas si c'est très compréhensible ce que je dis, mais si je peux vous donner plus de détail, je le ferais avec plaisir.

Merci d'avance pour votre aide.

[ucfoutu]

Bonjour,

Intéresse-toi à la fonction SetPrinter de l'Api de Windows.

Voilà ce qu'elle fait :

http://msdn2.microsoft.com/en-us/lib...88(VS.85).aspx

Et lis tes MP, à tout hasard !!!

[milia]

Merci beaucoup de ton aide.

[milia]

Bonjour,

désolé je reviens sur le problème, je l'ai tester et ça ne me vide pas le spooler. J'ai testé aussi la fonction AbortPrinter et ça ne marche pas non plus!

Merci d'avance de votre aide

[ucfoutu]

Montre le code utilisé en précisant :

- tes droits
- s'il s'agit de l'imprimante par défaut et où elle se trouve

[milia]

Et bien en faite j'ai pris le code que tu m'as montré, j'essaye un peu tout, au départ j'ai pris que la ligne qui m'intérêssait sans prendre si ça retourne une erreur.

L'imprimante est celle par défaut, ça imprime bien et tout, sauf que j'aimerais que si par exemple l'imprimante est pas branché pendant un moment et que quelqu'un lance une impression ben quand il rebranche l'imprimante ça imprime pas tout ce qu'il a demandé!

Et là je viens de tester avec ça, et en faite SetPrinter renvoi pas 0 et donc il y a une erreur, mais quand je regarde le code de la dernière erreur de GetLastError, le code est 0 et c pour dire que ça a bien marché! Alors je suis un perdu là, un coup SetPrinter dit qu'il y a une erreur et quand tu regardes le code de l'erreur, il y a pas d'erreur!

Code :

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

1
2
3
4
5
6
7
8
Dim lngResult As Long
    ' cancel print jobs
    lngResult = SetPrinter(Printer, 0, vbNull, PRINTER_CONTROL_PURGE)
    If Not lngResult Then
        MsgBox "SetPrinter returned 0. That means there was an error"
        lngResult = GetLastError
        MsgBox "GetLastError returned: " & lngResult
    End If