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

 PrnFormNumberGet() / PrnFormNumberSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set the number of the form currently mounted on a printer.

 Syntax:
 iForm = PrnFormNumberGet( wPtrNum)
 iForm = PrnFormNumberSet( wPtrNum, wFormNum )

 Parameters:
 wPtrNum  The printer number ( range 0 to 15 ).
 wFormNum The new form number.

 Returns:
 A numeric value (signed short int).

 The CA-Clipper names for these functions are:
 PrnFrmNumGet() / PrnFrmNumSet()

 Description:
 PrnFormNumberGet() returns the currently mounted form on the specified
 printer wPtrNum on the currently logged into print server.

 PrnFormNumberSet() mounts the new form number wFormNum, on the specified
 printer wPtrNum and returns the previous form number.

 Returns NOVERRINT if an error occurs.

 Example:
 // To log in to print server PRINTERS and display the number
 // of the current mounted form on printer 0:
 if( PSWSLogin( "PRINTERS" ) > 0 )
    ? "The number of the current form on printer 0 is"
    ?? PrnFormNumberGet( 0 )
 endif
 // To change the form mounted on printer 0 to form number 4:
 if( PSWSLogin( "PRINTERS" ) > 0 )
    iOldForm = PrnFormNumberSet( 0, 4 )
    iNewForm = PrnFormNumberGet( 0 )
    ? "The number of the form on printer 0 was ", iOldForm
    ? "The number of the form on printer 0 is  ", iNewForm
 endif

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