Copies shows as a 1 every time

May 21, 2010 at 10:11 AM

I have everything I need to get my first decent project compleat but I have one error.

Okay so the error,

.PrintJob.Copies returns the value 1 every time no matter how many copies I send. I have also tried to do this from the JobWritten and JobSet

I had to add a small deley or I got the same issue with total pages, I have since realised I can check to see if Spooling is False and then ask for the info. works but not for copies.

Private Sub pmon_JobAdded(ByVal sender As Object, ByVal e As PrintJobEventArgs) Handles pmon.JobAdded
       
        System.Threading.Thread.Sleep(1000)

        With e
            DataGridView2.Rows.Item(inc2).Cells(0).Value = (.PrintJob.UserName)
            DataGridView2.Rows.Item(inc2).Cells(1).Value = (.PrintJob.TotalPages)
            DataGridView2.Rows.Item(inc2).Cells(2).Value = (.PrintJob.Submitted)
            DataGridView2.Rows.Item(inc2).Cells(3).Value = (.PrintJob.PrinterName)
            DataGridView2.Rows.Item(inc2).Cells(4).Value = (.PrintJob.PagesPrinted)
            DataGridView2.Rows.Item(inc2).Cells(5).Value = (.PrintJob.MachineName)
            DataGridView2.Rows.Item(inc2).Cells(6).Value = (.PrintJob.Document)
            DataGridView2.Rows.Item(inc2).Cells(7).Value = (.PrintJob.Copies)
            DataGridView2.Rows.Item(inc2).Cells(8).Value = (.PrintJob.Color)

        End With
        inc2 = inc2 + 1
    End Sub
Thanks in advance

May 21, 2010 at 4:15 PM
This is a known issue I beleave with MS Word, works fine with other apps. Not sure what to do now as the main program that is used is Word