vb打印预览

在VB中如何实现跟office中一样的打印预览功能，来实现在打印窗体本身之前来看打印预览 --------------------编程问答-------------------- 设计一个打印函数

function PrintTo(ThePrinter as object)
......
end function


调用时，如果ThePrinter 是一个窗口，那么，将是一个预览，如果ThePrinter 是pribter对象，则打印到打印机 --------------------编程问答-------------------- pribter对象=printer对象 --------------------编程问答-------------------- 能具体不？谢谢 --------------------编程问答-------------------- function PrintTo(ThePrinter as object)
ThePrinter.currentx=...
ThePrinter.currenty=....
ThePrinter.print "...."
ThePrinter.line ....
ThePrinter.circle .....
'具体要看你要怎么打印，而设置打印命令
end function



--------------------编程问答-------------------- 还是不懂

补充：VB ,  基础类