Text1.Height = 7455
Text1.Width = 6255
Text1.Font = "小四" (宋体）
Text1.MultiLine = Ture

Private Sub Command1_Click()
Dim KSPAGE As Integer, JSPAGE As Integer, i As Integer
CommonDialog1.Min = 1 '设置可打印的最小页号
CommonDialog1.Max = 100 '设置可打印的最大页号
CommonDialog1.ShowPrinter '设置通用对话框为[打印]对话框
KSPAGE = CommonDialog1.FromPage '从[打印]对话框中取出要打印的起始页号
JSPAGE = CommonDialog1.ToPage '从[打印]对话框中取出要打印的中止页号
CommonDialog1.FontSize = 12
For i = 1 To CommonDialog1.Copies '获取打印份数
Printer.Print Text1.Text '打印文本框中的内容
Next i
Printer.EndDoc
End Sub


Text1.Text打印出来的字体是“小六”？？？怎样将它打印为大的字体呢？小弟在这请教了。谢谢！！！

别人写的程序我都看不懂啊，在Printer.Print Text1.Text的前面加一行   Printer.fontsize=18试试吧