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示例测试" Print "发送'" + test + "'到LPT1（默认）" LPrint test Print "LPT1最后收到" + Str(LPOS(1)) + "人物" Print "发送的字符串是" + Str(Len(test)) + "人物长" Sleep

与QB差别

没有

参考

LPrint