[票据打印]使用扫描仪加快可视化编程工具下票据套打的开发

今天在论坛中看到有人在讨论关于票据打印的问题

在DOS年代，我们是直接用控制打印机对象的方法进行单字打印。

在现在图形界面开发的程序中，仍有很多人在使用这种方法。

当然这种方法的好处是显而易见的，打印位置准确，容易控制走纸，

而且比其他的打印方式相对能延长打印机寿命，节约打印成本。

使用printer对象控制打印的唯一问题是开发时调整位置需要相当长的时间。

在现在的很多项目中，我们使用的是可视化的编程工具，相应的打印方法又增加了很多。

有人采用的是使用Excel模板的方法，将输入写入到Excel模板来控制打印。

这个方法固然有好处，但是其问题是在打印时需要启动一个Excel应用。

在进行大量快速打印的时候，这个问题就更为突出。

现在我们来切入正题，票据类的套打一般就是打印细目，金额等信息

打印前可能需要进行预览，然后进行打印，打印时不需要打印发票上已经有的内容

如文字，边线。

部分单位可能需要在打印内容的基础上需要打印一个公章类的印记。

在实际的操作中，我们用扫描仪扫描该发票，

使用图形处理工具处理成灰度，注意扫描的时候可能会导致大小有些变形，需要调整大小。

然后打印出来与实际票据对比，直到大小一致。

这个过程很快的，大概只要几分钟的时间，如果开发时使用15寸显示器(1024*768)，

那么票据大小与屏幕上显示的比例基本就是1：1

如果是17寸显示器(1024*768)，屏幕上的显示就比实际打印出来的大。

在开发时，选定一个Form,将Form的底色设置成白色，把处理好后的图设置为底图。

将Form调整为与图片一样大小。

然后将Label控件拖到对应的位置（或者用），在程序中只要更改这些Label的值就可以了。

这样根本就不用在去在界面上画线，还要一遍一遍地去对应位置，基本是一次成功

设置完毕后就可以直接打印，打印前将Form的底图取消掉即可。

这样的好处是在打印前可以直接预览而不用再进行特别处理。

代码大致如下：

'---------------------------------

'假设我们打印2004年9月的固话帐单

'基本信息

lblYear.caption="2004"

lblMonth.caption="09"

lblUserName.caption="Babyt(阿泰)"

lblUserID.caption="12345678"

'话费条目

lblItem(0).caption="市话月租费"?'项目

lblTimes(0).caption=""???'次数

lblFee(0).caption="25.00元"??'费用

lblItem(1).caption="区间通话费"?'项目

lblTimes(1).caption="800次"???'次数

lblFee(1).caption="80.00元"??'费用

.....

lblMoneyCN.caption="壹佰贰拾元整"

lblMoneyEN.caption="￥120.00"

'设置完毕

'---------------------------------

'界面上不要出现按钮之类的

'Form上增加KeyDown事件，如果按下回车键，进行提示打印

'如果确定打印，使用以下语句取消掉背景图片

frm.Picture=LoadPicture("")

'然后进行窗体打印即可

Me.PrintForm

在后面的文章中，我将讲解如何进行走纸张控制的一些注意事项