Yazıcıda bekleyen işleri silme

[svorm]

Merhaba

Yazıcıda bekleyen işlerin tamamını temizlemeyi nasıl yapabilirim.

 

[svorm]

Merhaba

Yazıcıda bekleyen işlerin tamamını temizlemeyi nasıl yapabilirim.

Alttaki linkte buldum.
ilgilenen olursa kod alttaki gibi

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

link

 

[veyselemre]

Alternatif;

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