how to know copy count

hi all how i can know using vb6 code the printed job copy count for every job in queue :wave:

hi all any help plz this is urgent !!!

Assuming you mean total pages printing – have not tested while printing:

Code:

---

Option Explicit

Public Function TotalPagesPrinting() As Long
    Dim strWQL As String, objOut As Object
    strWQL = "SELECT * FROM Win32_PrintJob"
    For Each objOut In GetObject("winmgmts:\\.\root\CIMV2").ExecQuery(strWQL)
        TotalPagesPrinting = TotalPagesPrinting + objOut.TotalPages
    Next
End Function

---

Code:

---

Private Sub Command1_Click()
    MsgBox TotalPagesPrinting
End Sub

---

More information: Win32_PrintJob, Scripting in Windows 2000