Arrêter le processus d'impression

[Isa]

Bonjour,

J'ai lancé plusieurs impressions de feuilles (.printout) dans une boucle et je souhaiterais pouvoir arrêter tout le processus d'impression en cours, pour toutes les feuilles, en appuyant sur un bouton 'ARRETER IMPRESSIONS'. Je ne sais pas si je dois lancer un processus en parallèle. Si c'est le cas, je ne sais pas comment faire.

Pourriez-vous m'aider ?

Merci d'avance !!
Isa

 

[MichelXld]

bonjour Isa

si tu utilises Windows XP , tu peux tester

Sub interrompreImpressionWinXP()
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

bonne soiree
MichelXld

 

[Isa]

Bonjour Michel,

Merci pour la réponse. Le problème c'est que l'application est développée sur Windows 2000. Existe-il une fonction événementielle permettant d'interrompre l'impression en cours sous Windows 2000 ?
Comment la déclencher dans une boucle (suite à l'appui sur un bouton STOP par exemple) ?

Merci d'avance.

Isa

 

[MichelXld]

bonjour Isa

ce lien propose une solution pour Windows2000

http://microsoft.supinfo.com/scripts/14191/

je ne dispose malheureusement pas de ce systeme d'exploitation pour tester


bonne soiree
MichelXld

 

[Isa]

Merci beaucoup pour l'info. Je vais tester...
Isa