Question

VB打印问题，请求大神的帮助

我想用VB实现打印单据的功能，但不知道怎麼弄。比如，在一张单据上打印所需要填写的内容，就类似快递单打印一样，代替手写的方式打印需要填写的内容即可，并不需要打印表格，图片之类的。请大神帮忙，十分感激

Answer 1

简单的方式是，在窗体上放置标签，然后打印窗体：me.printform

Answer 2

直接在vb中打印是比较难的，包括众多的设置项，对打印机来说，不管你打的是图片表格还是文字，它最终只管你发给它的数据。
我是用vb调用word excel等实现后台打印的，这样你的模板是可视化设计的，纸张大小，打印区域，打印机选择等等都是可以看得到的，就同在word或excel中设置打印一样。
后台调用时先把要打的数据发给模板文件，然后选择静默打印或者预览打印，对用户来说，点了打印按键纸张就出来了。
建议你也参考这个方法。

追问

可以写下代码和说明吗？

追答

自己百度下，源码等等一大把的事，说也说不清楚的，建议你到VBgood中去找“VB控制excel打印”这个很多的，有的连现成的模块都有，借来直接用就行了。

Answer 3

有两种方式可以实现：

1. 定点打印方式，动态定位打印坐标来印文字 满足 固定格式定点文字打印功能。
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.Print “张三”
测试几张废票 或 打印纸 就可以 确定 某个地方文字 起始坐标了 以后定死坐标即可。

2.如楼上说通过Word模版 表格行方式 填写打印 也可以满足需求。 两种方式都可以满足需求，测试几张废纸 定位好(表格宽高拉好) 即可。

追问

我用的是第二种方法，怎样实现在VB text1里输入的内容直接赋值到word的某个文本框里，但我不知道怎么赋值过去，请求帮助，十分感激！

追答

字数超出最大允许值，请删减！ 代码不多不过是补充问题文字有限制， 留个信箱或QQ 给你发过去

追问

你发我私信吧，谢谢

追答

http://pan.baidu.com/s/1eQqrpo2