Lpos
 
Возвращает количество символов отправленных в порт принтера при прошлом использовании LPrint.

Синтаксис

Declare Function Lpos ( ByVal printer As Integer ) As Integer

Использование

result = LPOS(printer)

Параметры

printer
Один из: 0, 1, 2 или 3. Представляет порт принтера (LPT#)

Возвращаемое значение

Возвращает число отправленных символов.

Описание

Используется для определения, от последнего вызова LPrint, сколько символов было отправлено в порт принтера.

Пример

' компилировать с опцией -lang fblite или 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


Отличия от QB

  • Нет

См. также