Click above to get retro games delivered to your door ever month!

 PJbCopyDoneGet()
------------------------------------------------------------------------------
 Purpose:
 Get the number of copies of the job already printed by a printer.

 Syntax:
 iCopyDone = PJbCopyDoneGet( wPtrNum )

 Parameters:
 wPtrNum The printer number.

 Returns:
 A numeric value (signed short int).

 The CA-Clipper name for this function is:
 PJbCpyDneGet()

 Description:
 PJbCopyDoneGet() returns the number of copies that have been printed of
 the print job currently being serviced by printer wPtrNum.

 Returns NOVERRINT if an error occurs.

 Example:
 // To log in to print server PRINTERS and test printer 0 to
 // display the size of the current print job, the number of copies and how
 // many copies and bytes are left to print:
 if( PSWSLogin ( "PRINTERS" ) > 0 )
    iJobNum     = PJbNumberGet(0)
    iCopies     = PJbCopyToDoGet(0)
    wSize       = PJbSizeGet(0)
    iCopiesDone = PJbCopyDoneGet(0)
    dwBytesDone = PJbBytesDoneGet(0)
    if iJobNum > 0
       ? "Print Job Number ",iJobNum," is being serviced by "
       ?? "print server PRINTERS, printer 0"
       ? "So far ",dwBytesDone," bytes have been printed with "
       ?? wSize-dwBytesDone," left to print of copy number "
       ?? iCopiesDone + 1
       ? "With ",iCopies-iCopiesDone-1," copies left to print"
       ? "Total number of bytes printed so far = "
       ?? ( iCopiesDone * wSize ) + dwBytesDone
       ? "Total number of bytes left to print = "
       ?? (( iCopies - iCopiesDone )* wSize ) - dwBytesDone
    endif
 endif

 Notes:
 It is only possible to be logged in to one print server at a time.

 PJbCopyDoneGet() returns the number of copies that the print server has
 sent to the printer. This may not accurately reflect the actual number of
 copies printed by the printer because many printers have large buffers to
 store data before printing it.