如何打印一段文本？

[sglbaby]

我想让用户输入一段文本后，再进行打印？怎么做到？用ole吗？
帮我出个主意吧。可以像在word中那样设置好后打印出来就行了。如何做到。谢了
用A4的字。可以根据内容多少换页，一起打印出来。

[viena]

用Printer对象：

Printer.PaperSize =
或
Printer.Height =
Printer.Width =
设置纸张大小

'设置坐标
Printer.CurrentX = x
Printer.CurrentY = y

'设置字体
Printer.FontName =
Printer.FontSize =

Printer.print'输出文字

'绘制图形
Printer.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2

Printer.NewPage'换页

Printer.EndDoc'终止打印操作，将文档释放到打印设备或后台打印程序

'具体的请看MSDN

[viena]

Printer.PaperSize = VbPRPSA4 '设置纸张为A4

[viena]

需要计算或者试验得到一页纸打印几行
然后用代码控制，循环打印每一页，页满时用Printer.NewPage换页