自己编制支持终端打印TELNET程序(4)

    这里将用到一个VB当中的对象PRINTER来完成控制打印功能，使用PINNTER对象，我们可以实现与打印机的通讯。用图形方法在 Printer 对象上绘制文本和图形后，可用 EndDoc 方法直接将打印信息送到打印机上。这里主要用到Printer对象的Print方法，它的功能就是把指定字符串送到Printer 对象上，还要用到Font属性等，具体用法举例说明如下：

　　Private Static Sub Print_Com2(Dayinbuf as String) ‘控制打印处理函数

　　Dim PPart() As Byte

　　Dim i, j As Long

　　Dim Combuf(12) as Byte

　　Dim CombufPtr As Long

　　......

　　For i = 0 To DaBuLen - 1

　　Select Case DayinBuf(i)

　　......

　　If CombufPtr <>0 Then ‘判断是否有打印内容

　　Printer.Print StrConv(PPart, vbUnicode) ‘把待打印内容送到Printer打印对象

　　CombufPtr = 0 ‘指针复位

　　......

　　Select Case Combuf(RmtPtr)

　　Case Asc("T") ‘打印属性指令ESC[/Ps T

　　Select Case Combuf(RmtPtr - 1)

　　Case 48

　　Printer.Font.Size = Ztdi ‘字体为正常大小

　　......

　　Case 51

　　Printer.Font.Size = 2 * Ztdi ‘字体横、纵各放大到二倍

　　......

　　End Select

　　......

　　End Select

　　......

　　End Select

　　.....

　　next i

　　If CombufPtr <>0 Then

　　Printer.Print StrConv(PPart, vbUnicode) ‘把待打印内容送到Printer打印对象

　　......

　　Printer.EndDoc

　　End If

　　End Sub

　　另外，在透明打印的实现上，可以采用控制打印的实现方法，这里涉及到对打印机指令进行解释的问题。在与本地服务器的连接上，可以象终端一样，把连接到终端的线缆直接连接到PC机的RS232口上，然后在TELVT100程序中加入MSCOMM控件，设置适当的通讯参数，用该控件的Input、Output方法进行数据收发，可以完全模仿终端使用。

　　经过以上各个过程，我们的TELVT100就近在眼前了。由于篇幅所限，不能面面具到，只给大家提供一个主体框架，想起到抛砖引玉的效果，希望和感兴趣的各位一起分享成功带来的欢乐。本程序已经被试用了一段时间，反映情况良好。

　　结束语：现在国内正流行数据的整合、集中，行业用户的业务处理系统在上一级部门的服务器上运行，基层单位往往采用终端服务器通过数据专线远程连接到上级部门。使用TELVT100这样的程序，可以不用终端服务器，而直接用PC机远程登录到业务处理系统服务器，进行业务处理。