用DataReport或第三方打印控件(比如说水晶报表或楼上的),比较省力,想随心所欲一点,可以用mornwoo(疾风之虫)的方法,自己控制Printer打印,至于预览可以通过PictureBox模拟,比如: 你可以写一个打印的函数(PrintPage),函数带一个object型的参数,打印预览时参数传PictureBox,打印时传Printer 如: private sub PrintPage(objPrint as Object) objPrint.currentX=... objPrint.currentY=... objPrint.Line ... objPrint.Print ... ... end sub 打印时: private sub cmdPrint_Click() PrintPage Printer Printer.EndDoc end sub 打印预览时: private sub cmdPrintView_Click() PrintPage Picture1 'Picture1是一个PictureBox,你可以将背景设为白色。 end sub
2.水晶报表也可以实现。
上述方法都可以实现你想要的功能。如还有不明白之处,以再来问我。
我编写了一个打印控件,有预览功能,如果你有兴趣的话,我可以发给你参考一下我的信箱是:[email protected]
你可以写一个打印的函数(PrintPage),函数带一个object型的参数,打印预览时参数传PictureBox,打印时传Printer
如:
private sub PrintPage(objPrint as Object)
objPrint.currentX=...
objPrint.currentY=...
objPrint.Line ...
objPrint.Print ...
...
end sub
打印时:
private sub cmdPrint_Click()
PrintPage Printer
Printer.EndDoc
end sub
打印预览时:
private sub cmdPrintView_Click()
PrintPage Picture1 'Picture1是一个PictureBox,你可以将背景设为白色。
end sub
我把源码给你