VB文本输出打印

Question

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

Answer 1

Private Sub Command1_Click()'打印
Printer.FontName = "楷体_GB2312"Printer.FontSize = 12Printer.Print Text1.TextPrinter.EndDoc
End SubPrivate Sub Command2_Click()'输出
Debug.Print Text1.Text
End Sub

Answer 2

在Printer.Print Text1.Text前面加一句：
Printer.Copies=1

Answer 3

我把文本框里面的文字输出，想输出到文本或Word怎么办？

Answer 4

输出到文本需写文件：
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”为关键词搜一下就有。