如何打印一段文本？

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

解决方案 »

  1.   

    用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, height2Printer.NewPage'换页Printer.EndDoc'终止打印操作，将文档释放到打印设备或后台打印程序'具体的请看MSDN
      

  2.   

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

  3.   

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