LPos

Returns the number of characters sent to the printer port in the last KeyPgLprintLPrint
statement.

Syntax
	KeyPgDeclareDeclare KeyPgFunctionFunction LPos ( KeyPgByvalByVal printer KeyPgAsAs KeyPgLongLong ) KeyPgAsAs KeyPgLongLong

Usage
	result = LPOS(printer)

Parameters
	printer
		Either 0, 1, 2 or 3.  Represents the printer port (LPT#)

Return Value
	Returns the number of characters sent.

Description
	Used to determine, from the last KeyPgLprintLPrint, how many characters were sent 
	to the printer port.

Example
	' compile with -lang fblite or qb

	#lang "fblite"

	Dim test As String = "LPrint Example test"

	Print "Sending '" + test + "' to LPT1 (default)"
	LPrint test
	Print "LPT1 last recieved " + Str(LPos(1)) + " characters"
	Print "String sent was " + Str(Len(test)) + " characters long"

	Sleep

Differences from QB
	* None

See also
	* KeyPgLprintLPrint

