XL 2010 Supprimer impression dans la file d'attente

[David590]

Bonjour à tous,

J'aimerai savoir s'il y aurait un moyen en vba pour supprimer toutes les impressions dans la file d'attente d'une imprimante .

Merci d'avance

 

[kiki29]

Salut, via une recherche ? tu aboutiras à qqch comme :

Option Explicit

Sub OhSht()
Dim o As Object, ret
    For Each o In GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_Printer")
        ret = o.CancelAllJobs
        Debug.Print o.Name, ret
    Next o
End Sub

 

[Phil69970]

Bonjour @David590, kiki29

Un peu de lecture ici

[VBA] Gérer les impressions par VBA

Bonsoir Je profite du nouveau forum pour faire quelques tests d'utilisation des posts. pour joindre l'utile à l'agréable vous trouverez ci dessous quelques exemples pour gérer les impressions par VBA , en espérant que cela puisse servir à quelqu'un . Imprimer une feuille Sub...

www.excel-downloads.com

Et tu trouveras notamment ceci qui est dans la même idée que @kiki29 :

Sub interrompreImpression_WinXP()
Dim strComputer As String
Dim objWMIService As Object, colInstalledPrinters As Object
Dim objPrinter As Object

strComputer = '.'
Set objWMIService = GetObject('winmgmts:\\\\' & strComputer & '\\root\\cimv2')
Set colInstalledPrinters = objWMIService.ExecQuery('Select * from Win32_Printer')

For Each objPrinter In colInstalledPrinters
objPrinter.CancelAllJobs
Next

Set objWMIService = Nothing
Set colInstalledPrinters = Nothing
End Sub

@Phil69970

 

[David590]

Bonjour @kiki29, @Phil69970

Merci pour vos réponse, je vous assure que j'ai bien cherché avant, certainement pas avec les bons mots clés, j'ai trouvé une multitude de chose autour des impressions mais rien pour annuler

Pour ton code phil69970, j'ai erreur de syntaxe, je ne sais pas s'il faut placer le nom de l'imprimante quelque part, désolé je suis un noob

kiki29 le tiens fonctionne et ca me va très bien

Merci encore