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

 PJbCopyToDoGet()
------------------------------------------------------------------------------
 Purpose:
 Get the number of job copies to be printed by a printer.

 Syntax:
 iCopiesLeft = PJbCopyToDoGet( wPtrNum )

 Parameters:
 wPtrNum The printer number.

 Returns:
 A numeric value (signed short int).

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

 Description:
 PJbCopyToDoGet() returns the number of copies of the current print job
 being serviced by printer wPtrNum that have been requested.

 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
 // much is 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.