关于利用VB设计单据套打的点滴体会

摘要：无论是金融系统，还是单位内部账目管理系统以及高校的新生通知书管理系统等等都涉及到单据套打，目前极少有哪个开发工具集成此功能，对于单页的套打较易处理，而连续单据的套打往往存在空白页以及打印错位等问题，针对此类问题，我经过大量的实验，终于解决了此问题，现将核心代码介绍给大家参考。

关键词：连续纸张 单据套打

由于连续走纸式的单据套打涉及的领域较多，但其基本原理相同，因此我们这里以特快邮寄单据为例，向大家介绍此功能的实现过程。

1 开发环境

1.1 软件环境 开发工具：Visual Basic 6.0；数据库：Sql Server2000。

1.2 硬件环境 打印机：具有连续走纸功能的针式打印机。

2 数据结构

数据库名称：DJP；数据表名称：邮寄信息。

3 核心代码

在VB环境下创建一个工程（单据套打.vbp），然后创建一个窗体（DataPrn.frm）和模块文件（mk.bas）。

首先在模块文件中定义如下对象、过程，以便在其他过程中调用，具体功能模块如下：

3.1 数据库操作 Public conn As New ADODB.Connection 数据库连接对象

Sub conn_data() 数据库连接过程

Set conn = New ADODB.Connection

conn.ConnectionString = "driver={sql server}；server=服务器IP；database=数据库名；uid=sa；pwd="

conn.Open

End Sub

Sub DataCL (sql as string) 数据添加、修改、删除操作

Conn. Execute(sql)

End Sub

3.2 单据套打 Private Sub prndata(Jname As String，Jphone As String， Jdw As String，Jdz As String，Jyzm As String，Sname As String，Sphone As String，Sdw As String，Sdz As String，Syzm As String)

Open "LPT1" For Output As #1

For i = 1 To 6

Print #1，Chr(13)

Next i

Print #1，Chr(27)；"IE"；Space(8) & Jname&Space(16)& Jphone & Space(16) & Sname & Space(17) & Sphone

Print #1，Chr(13)

Print #1，Chr(27)；"IE"；Space(16) & Jdw & Space(31) & Sdw

Print #1，Chr(13)

Print #1，Chr(27)；"IE"；Space(8) & Jdz & Space(26) & Sdz

Print #1，Chr(13):Print #1，Chr(13)

Print #1，Chr(27)；"IE"；Space(34) & Jyzm & Space(43) & Syzm

For i =1 To 9

Print #1，Chr(13)

Next i

Print #1，Chr(27)；"IE"；Space(13) & Jname

For i=1 To 6

Print #1，Chr(13)

Next i

Close #1

End Sub

3.3 打印输出 在窗体（DataPrn.frm）上拖放一个按钮，在按钮的单击事件中，定义如下语句，以实现打印邮寄信息表中的数据。

Private Sub Command1_Click()

Conn_data

Sql=”select * from 邮寄信息order by邮寄者单位”

Set Rs=new ADODB.RECORDSET:Rs.open sql，conn，3，1

Jname =”张飞”:Jphone=”13804381111”:Jdw=”松原职业技术学院”

Jdz=”松原市宁江区中山大街1号”:Jyzm=”138005”

Sname=rs(“考生”):Sphone=rs(“考生电话”):Sdw=rs(“考生单位”)

Sdz=rs(“考生地址”):Syzm=rs(“考生邮编”)

While not rs.eof

Prndata Jname，Jphone，Jdw，Jdz，Jyzm，Sname，Sphone，Sdw，Sdz，Syzm ):rs.movenext

wend

End Sub

上述即为实现单据连续套打的核心程序代码，如果需要，结合自己稍加修改即可达到您的需求，同时恳请各位同仁批评指正，让我们共发展、共提高！