用DATA REPORTS 作,就是VB自带那个报表例如我要显示教师信息报表,而这个菜单被点击时的代码应该写成: Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open ConnectionString Set adoprimaryrs = New Recordset adoprimaryrs.Open "select tno,tname,title,tel,m from teacherinfo ", db, adOpenStatic, adLockOptimistic Set teacherReport.DataSource = adoprimaryrs teacherReport.Show 把要显示的字段名和字段内容都写好, 然后所有的信息就会显示到报表上。 我指运行以后, 然后你会发现它上边有个打印, 直接打印出来就是一个报表阿, 若觉得我说的不对, 你可以考虑采取第三方控件的报表, 那样也许功能和界面都会美观~
up 还有一个意思,是我自己认为的: 贴子每被人回答一次,就会自动刷新到所有问题的最前面 所以只是打一个简单的"up",虽然没有帮你解决问题,还是把你的贴子"up"上去了。 up的人也是在帮你的! 呵呵。。 比较简单一些的打印(不用象做数据库报表那样复杂的打印的),就用printer挺好的。 至于纸张大小,可以在控制面板打印机项目里设置! 你可以用msdn查询一下printer这个东东的用法,上面的例子应该是很祥细、简单的 一看你就明白了!
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open ConnectionString
Set adoprimaryrs = New Recordset
adoprimaryrs.Open "select tno,tname,title,tel,m from teacherinfo ", db, adOpenStatic, adLockOptimistic
Set teacherReport.DataSource = adoprimaryrs
teacherReport.Show
把要显示的字段名和字段内容都写好,
然后所有的信息就会显示到报表上。
我指运行以后,
然后你会发现它上边有个打印,
直接打印出来就是一个报表阿,
若觉得我说的不对,
你可以考虑采取第三方控件的报表,
那样也许功能和界面都会美观~
贴子每被人回答一次,就会自动刷新到所有问题的最前面
所以只是打一个简单的"up",虽然没有帮你解决问题,还是把你的贴子"up"上去了。
up的人也是在帮你的!
呵呵。。
比较简单一些的打印(不用象做数据库报表那样复杂的打印的),就用printer挺好的。
至于纸张大小,可以在控制面板打印机项目里设置!
你可以用msdn查询一下printer这个东东的用法,上面的例子应该是很祥细、简单的
一看你就明白了!