用printer对象怎么实现打印？怎么把需要打印的内容送到printer中，比如一个文本框中的内容，然后怎么打印？最好给个例子。

[wangwei1980]

用printer对象怎么实现打印？怎么把需要打印的内容送到printer中，比如一个文本框中的内容，然后怎么打印？最好给个例子。谢谢！

[lihonggen0]

Printer.Print Text1.Text
Printer.EndDoc

参考：
http://www.dapha.net/down/show.asp?classid=1&Nclassid=140

[饮水需思源]

Printer.ScaleMode = vbMillimeters '为毫米为单位
Printer.Width = 210 '初始化打印纸的宽度
Printer.Height = 95.3 '初始化打印纸的高度
Printer.CurrentX =200
Printer.CurrentY =20
printer.print text1.text