Code

var vChoice as String
var vResultSetPosition as Int   // changed from vPos because my print routine uses that elsewhere
var vLoop as Int
var vCount as Int
Var vTotalString as String

//  Allows user to print the record showing or all retrieved records

vChoice = @PopupChoiceList("This Record;All Retrieved Records", "SELECT RECORDS TO PRINT")
If vChoice = "This Record"
	{
	PrintStuff()
	}
Else If vChoice = "All Retrieved Records"
{

// Ask the user if the current result set is what he wants

vTotalString = @STR(@ResultSetTotal()) + " Miara Invoices."

IF @AskUser("This will print", vTotalString, "Are you sure you want to do this?")
THEN
	{
	vResultSetPosition = @ResultSetCurrentPosition()	// Remember the starting point
	vCount = @ResultSetTotal()		// Get how many records we have
	For vLoop = 1 To vCount			// Print each record
		ResultSetCurrentPosition(vLoop)
		PrintStuff()
	Next
	ResultSetCurrentPosition(vResultSetPosition)		// Return to starting point
	}
} 

Code

var vChoice as String
var vResultSetPosition as Int
var vLoop as Int
var vCount as Int

SUBROUTINE PrintStuff()
NewPage(850, 1100)
[My Invoice print routine]
FinishPage()
END SUBROUTINE


SUBROUTINE PrintResultSet()
var vResultSetPosition as Int
var vLoop as Int
var vCount as Int
vResultSetPosition = @ResultSetCurrentPosition()	// Remember the starting point
vCount = @ResultSetTotal()		// Get how many records we have
For vLoop = 1 To vCount			// Print each record
	ResultSetCurrentPosition(vLoop)
	PrintStuff()
Next
ResultSetCurrentPosition(vResultSetPosition)		// Return to starting point
END SUBROUTINE



//  Allows user to print the record showing or all retrieved records if less than 21 retrieved.

vChoice = @PopupChoiceList("This Record;All Retrieved Records", "SELECT RECORDS TO PRINT")
IF vChoice = "This Record"
	{
	PrintStuff()
	}
ELSE IF vChoice = "All Retrieved Records"
IF NOT @ResultSetTotal() > 20
THEN
	IF @ResultSetTotal() < 11
	THEN PrintResultSet()
	ELSE
	{
	vTotalString = @STR(@ResultSetTotal()) + " Miara Invoices."
	IF @AskUser("This will print", vTotalString, "Are you sure you want to do this?")  // Ask the user if the current result set is what he wants
	THEN PrintResultSet()
	}