how to know copy count

[ahmad7_8]

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

[ahmad7_8]

hi all any help plz this is urgent !!!

[Merri]

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

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

Private Sub Command1_Click()
    MsgBox TotalPagesPrinting
End Sub

More information: Win32_PrintJob, Scripting in Windows 2000