- Tham gia
- 23/3/16
- Bài viết
- 705
- Được thích
- 52
Mình có dùng Đoạn code sau để xóa tất cả lệnh in cho tất cả máy in trong Win 7 Dùng rất OK. ai có dùng win 10 Test dùm mình cái, Thank
Mã:
Public Sub OhSht()
Dim o As Object
For Each o In GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_Printer")
o.CancelAllJobs
Next
End Sub
