Bonjour =E0 toutes et =E0 tous.
J'aimerais savoir comment r=E9cup=E9rer en temps r=E9el par VBA
le nombre de copies restant =E0 imprimer dans la file=20
d'attente de mon gestionnaire d'impression lorsque=20
j'imprime un grand nombre de copies d'un m=EAme document.
Merci d'avance.
Amiti=E9s.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JpPradier
Bonjour ttfl tu peux t'inspirer de ceci récupéré sur le forum VB de Developper.com
j-p
' de Laurent Dardenne
Application.Volatile strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colPrintJobs = objWMIService.ExecQuery _ ("Select * from Win32_PrintJob") For Each objPrintJob In colPrintJobs intTotalJobs = intTotalJobs + 1 intTotalPages = intTotalPages + objPrintJob.TotalPages If objPrintJob.TotalPages > intMaxPrintJob Then intMaxPrintJob = objPrintJob.TotalPages End If Next Jobs = intTotalJobs PageImp = intTotalPages PlusGros = intMaxPrintJob
Bonjour ttfl
tu peux t'inspirer de ceci récupéré sur le forum VB de Developper.com
j-p
' de Laurent Dardenne
Application.Volatile
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colPrintJobs = objWMIService.ExecQuery _
("Select * from Win32_PrintJob")
For Each objPrintJob In colPrintJobs
intTotalJobs = intTotalJobs + 1
intTotalPages = intTotalPages + objPrintJob.TotalPages
If objPrintJob.TotalPages > intMaxPrintJob Then
intMaxPrintJob = objPrintJob.TotalPages
End If
Next
Jobs = intTotalJobs
PageImp = intTotalPages
PlusGros = intMaxPrintJob
Bonjour ttfl tu peux t'inspirer de ceci récupéré sur le forum VB de Developper.com
j-p
' de Laurent Dardenne
Application.Volatile strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colPrintJobs = objWMIService.ExecQuery _ ("Select * from Win32_PrintJob") For Each objPrintJob In colPrintJobs intTotalJobs = intTotalJobs + 1 intTotalPages = intTotalPages + objPrintJob.TotalPages If objPrintJob.TotalPages > intMaxPrintJob Then intMaxPrintJob = objPrintJob.TotalPages End If Next Jobs = intTotalJobs PageImp = intTotalPages PlusGros = intMaxPrintJob
JpPradier
Bonjour ttfl tu peux t'inspirer de ceci récupéré sur le forum VB de Developper.com
j-p
' de Laurent Dardenne
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colPrintJobs = objWMIService.ExecQuery _ ("Select * from Win32_PrintJob") For Each objPrintJob In colPrintJobs intTotalJobs = intTotalJobs + 1 intTotalPages = intTotalPages + objPrintJob.TotalPages If objPrintJob.TotalPages > intMaxPrintJob Then intMaxPrintJob = objPrintJob.TotalPages End If Next Jobs = intTotalJobs PageImp = intTotalPages PlusGros = intMaxPrintJob
Bonjour ttfl
tu peux t'inspirer de ceci récupéré sur le forum VB de Developper.com
j-p
' de Laurent Dardenne
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colPrintJobs = objWMIService.ExecQuery _
("Select * from Win32_PrintJob")
For Each objPrintJob In colPrintJobs
intTotalJobs = intTotalJobs + 1
intTotalPages = intTotalPages + objPrintJob.TotalPages
If objPrintJob.TotalPages > intMaxPrintJob Then
intMaxPrintJob = objPrintJob.TotalPages
End If
Next
Jobs = intTotalJobs
PageImp = intTotalPages
PlusGros = intMaxPrintJob
Bonjour ttfl tu peux t'inspirer de ceci récupéré sur le forum VB de Developper.com
j-p
' de Laurent Dardenne
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colPrintJobs = objWMIService.ExecQuery _ ("Select * from Win32_PrintJob") For Each objPrintJob In colPrintJobs intTotalJobs = intTotalJobs + 1 intTotalPages = intTotalPages + objPrintJob.TotalPages If objPrintJob.TotalPages > intMaxPrintJob Then intMaxPrintJob = objPrintJob.TotalPages End If Next Jobs = intTotalJobs PageImp = intTotalPages PlusGros = intMaxPrintJob
