Salut, via une recherche ? tu aboutiras à qqch comme :
VB:
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
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 :
VB:
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
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