Alttaki linkte buldum.
ilgilenen olursa kod alttaki gibi
Kod:
Public Sub sil()
Dim o As Object, ret
For Each o In GetObject("winmgmts:{impersonationLevel=impersonate}//./root/cimv2").ExecQuery("Select * from Win32_Printer")
ret = o.CancelAllJobs
Debug.Print o.Name, ret
Next
End Sub
Public Sub yaziciKuyrukSil()
If Dir("c:\WINDOWS\system32\spool\PRINTERS\*.*") <> "" Then
With CreateObject("WScript.Shell")
.Run "net stop spooler", , True
Kill "c:\WINDOWS\system32\spool\PRINTERS\*.* "
.Run "net start spooler", , True
End With
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.