Lpos

FreeBASIC

previous page next page

Lpos

Returns the number of characters sent to the printer port in the last LPrint statement.

Syntax

Declare Function Lpos ( ByVal printer As Long ) As 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 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