打印文本框的内容。用printer!!

[ljfwarrior]

不用printform,打印文本框的内容。用printer!!
请给出代码！！谢谢！！

[射天狼]

Option Explicit

Const lngRowCount = 20

Private Sub Command1_Click()
Dim i As Long, strTmp As String


strTmp = Text1.Text
For i = 1 To Len(strTmp)
If i Mod lngRowCount = 0 Then
Picture1.Print
Picture1.Print Mid(strTmp, i, 1);
Else
Picture1.Print Mid(strTmp, i, 1);
End If
Next
End Sub

[fuanwei]

printer.print me.text1.text

[fuanwei]

不要忘了设置打印的位置啊

[ukyoxh]

利用 printer.enddoc

中止把打印内容发往打印缓冲区

打印机开始打印工作

printer.print "123"
printer.enddoc

没有测试,不知道是否可以,如果不行发消息给我!!

[饮水需思源]

printer.enddoc这句一定要

[ljfwarrior]

用printer.print me.text1.text遇到一个问题。
我在机上试了一下：
Private Sub Command1_Click()
printer.print me.text1.text
End Sub
我按了Command1后打印机没有打印text1中的内容，
就是当我退出整个程序时，打印才开始打印！！
请高找出是什么问题。