LPOS

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgLpos
• 最后更新: 2016-02-10

---

返回上一条 Lprint 语句发送到打印机端口的字符数。

语法

declare function Lpos ( byval printer as long ) as long

用法

result = LPOS(printer)

参数

printer

0、1、2 或 3 中的一个。代表打印机端口（LPT#）。

返回值

返回发送的字符数。

描述

用于确定上一次 Lprint 向打印机端口发送了多少字符。

示例

start GeSHi

' 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

end GeSHi

与 QB 的差异

• 无

参见

• Lprint

返回 目录