Cant get number of copies

May 20, 2010 at 7:54 PM

I have everything I need to get my first decent project compleat but I have one error.
Before I start with my error I just want to say I couldn't of done this without the work you have put in :)

Okay so the error,

.PrintJob.Copies returns the value 1 every time no matter how many copies I send.

I had to add a small deley or I got the same issue with total pages

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