http://www.windowsmanagement.com/script ... interport/
Но принтера у меня нет =( В общем, мне надо считать, сколько страниц напечатал юзер.
Делаю так:
- Код: Выделить всё
Dim WMI, oQ, oE
Dim i_str as Long
dim s0 as String
Set WMI = GetObject("WinMgmts:")
Set oQ = WMI.ExecNotificationQuery("select * from __InstanceCreationEvent within 10 where TargetInstance ISA 'Win32_PrintJob'")
Do
Set oE = oQ.NextEvent
s0 = oE.TargetInstance.Owner
i_str = oE.TargetInstance.TotalPages
If MsgBox("Юзер " & s0 & " отправил страниц на печать: " & CStr(i_str) & vbCrLf & "Продолжить?", vbYesNo) = vbNo Then Exit Do
Loop
Проверьте, пожалуйста, распечатайте что нибудь.. Или может, надо вообще по другому делать?