VB文本输出打印

怎么样才能让在文本框填写的文字输出来，或者调用打印机打印？ --------------------编程问答--------------------

Private Sub Command1_Click()'打印

Printer.FontName = "楷体_GB2312"



Printer.FontSize = 12



Printer.Print Text1.Text



Printer.EndDoc





End Sub



Private Sub Command2_Click()'输出

Debug.Print Text1.Text

End Sub

--------------------编程问答-------------------- 用了这个代码，就会一直不停的在打印，我只需要他打印一次的
--------------------编程问答-------------------- 在Printer.Print Text1.Text前面加一句：
Printer.Copies=1 --------------------编程问答-------------------- 我把文本框里面的文字输出，想输出到文本或Word怎么办？
--------------------编程问答-------------------- 输出到文本需写文件：

Private Sub Command3_Click()

Open "C:\123.txt" For Output As #1

Print #1, Text1.Text

Close #1

End Sub

输出到Word需打开Word把Text1.Text写入Word，相应代码网上多的是，用“VB 操作Word”为关键词搜一下就有。 --------------------编程问答-------------------- 谢谢

补充：VB ,  基础类