报表可以用datereport和dateenvirment实现打印功能，报表可以直接用datereport或者用grid之类的控件来做。最简单的报表就是vb自带的datareport了，还是找个书上的例子做做看。
ActiveReports Professional Edition Build 2.4.1.1283 是一个很方便且功能大的控件，对于初学或想马上起效的! 建议采用，特提供以下下载地址，内有大量示例：
完整专业版：
http://www.datadynamics.com/Downloads/ar2pro2411283.zip
说明书：
http://www.datadynamics.com/Downloads/ar2proPDF.pdf
注册码：
新建一文本文件，贴下面内容，然后另存为crack.reg,然后双击crack.reg:
复制内容到剪贴板
代码:
REGEDIT4
[HKEY_CLASSES_ROOT\Licenses\0F60458A-9C91-47CD-9DC9-4C6188C3C498]
@="dy3thxiuioqr452fhgdr4tf"
[HKEY_CLASSES_ROOT\Licenses\9FD745D6-4105-4EAF-B01A-E3F3BE4B3A9D]
@="atxthxiufoqr452fbgdr4if"Q: ActiveReports Professional 2是英文的啊，我要显示中文怎么办?
A: 可以显示中文呀,只有在字体中设置为:CHINESE_GB2312,所有都可以搞定!
如果要使菜单显示中文,以下是个实例:
复制内容到剪贴板
代码:
Public Const IDT_SAVE = 5001
Public Const IDT_LAST = 5002
Public Const IDT_RULER = 5003
Public Const IDT_FIRST = 5004
Public Const IDT_EXIT = 5005
Public Const IDT_OPEN = 5006
Public Const IDT_Printer = 3773
Public Sub Creport(MyRepFrm As ActiveReport)
'汉化ActiveReport
Dim Tool As DDActiveReportsViewer2Ctl.DDTool
MyRepFrm.Toolbar.Tools.Item(0).Visible = False
MyRepFrm.Toolbar.Tools.Item(0).Checked = False
MyRepFrm.Toolbar.Tools.Item(1).Caption = "内容中的表"
MyRepFrm.Toolbar.Tools.Item(1).Tooltip = "内容中的表"
MyRepFrm.Toolbar.Tools.Item(1).Visible = False
MyRepFrm.Toolbar.Tools.Item(2).Caption = "打印"
MyRepFrm.Toolbar.Tools.Item(2).Tooltip = "打印"
MyRepFrm.Toolbar.Tools.Item(2).Visible = True
MyRepFrm.Toolbar.Tools.Item(4).Caption = "拷贝"
MyRepFrm.Toolbar.Tools.Item(4).Tooltip = "拷贝"
MyRepFrm.Toolbar.Tools.Item(4).Visible = False
MyRepFrm.Toolbar.Tools.Item(5).Visible = False
MyRepFrm.Toolbar.Tools.Item(6).Visible = False
MyRepFrm.Toolbar.Tools.Item(6).Caption = "查找"
MyRepFrm.Toolbar.Tools.Item(6).Tooltip = "查找"
MyRepFrm.Toolbar.Tools.Item(7).Visible = False
MyRepFrm.Toolbar.Tools.Item(8).Caption = "单页察看"
MyRepFrm.Toolbar.Tools.Item(8).Tooltip = "单页察看"
MyRepFrm.Toolbar.Tools.Item(9).Caption = "多页察看"
MyRepFrm.Toolbar.Tools.Item(9).Tooltip = "多页察看"
MyRepFrm.Toolbar.Tools.Item(11).Tooltip = "缩小"
MyRepFrm.Toolbar.Tools.Item(12).Tooltip = "放大"
MyRepFrm.Toolbar.Tools.Item(11).Caption = "缩小"
MyRepFrm.Toolbar.Tools.Item(12).Caption = "放大"
MyRepFrm.Toolbar.Tools.Item(13).Visible = True '显示大小
MyRepFrm.Toolbar.Tools.Item(15).Tooltip = "上一页"
MyRepFrm.Toolbar.Tools.Item(16).Tooltip = "下一页"
MyRepFrm.Toolbar.Tools.Item(15).Caption = "上一页"
MyRepFrm.Toolbar.Tools.Item(16).Caption = "下一页"
MyRepFrm.Toolbar.Tools.Item(19).Tooltip = "后退"
MyRepFrm.Toolbar.Tools.Item(20).Tooltip = "前进"
MyRepFrm.Toolbar.Tools.Item(19).Caption = "后退"
MyRepFrm.Toolbar.Tools.Item(20).Caption = "前进"
MyRepFrm.Toolbar.Tools.Item(19).Visible = True
MyRepFrm.Toolbar.Tools.Item(20).Visible = True
MyRepFrm.Toolbar.Tools.Item(18).Visible = True
MyRepFrm.Toolbar.Tools.Insert 15, ""
Set Tool = MyRepFrm.Toolbar.Tools(15)
Tool.ID = IDT_FIRST
Tool.Tooltip = "第一页"
Tool.AddIcon CropList.imlViewer.ListImages("first").Picture
'Set Tool = arv.ToolBar.Tools(19)
'Tool.AddIcon CropList.imlViewer.ListImages("prev").Picture
'Set Tool = arv.ToolBar.Tools(20)
'Tool.AddIcon CropList.imlViewer.ListImages("next").Picture
MyRepFrm.Toolbar.Tools.Insert 18, ""
Set Tool = MyRepFrm.Toolbar.Tools(18)
Tool.ID = IDT_LAST
Tool.Tooltip = "最后一页"
Tool.AddIcon CropList.imlViewer.ListImages("last").Picture
MyRepFrm.Toolbar.Tools.Insert 0, ""
Set Tool = MyRepFrm.Toolbar.Tools(0)
Tool.ID = IDT_RULER
Tool.Tooltip = "显示标尺"
Tool.AddIcon CropList.imlViewer.ListImages("ruler").Picture
Tool.Checked = MyRepFrm.RulerVisible
MyRepFrm.Toolbar.Tools.Insert 24, ""
Set Tool = MyRepFrm.Toolbar.Tools(24)
Tool.Type = 2
'MyRepFrm.Toolbar.Tools.Insert 25, ""
'Set Tool = MyRepFrm.Toolbar.Tools(25)
'Tool.ID = IDT_OPEN
'Tool.Tooltip = "打开文件"
'Tool.AddIcon CropList.imlViewer.ListImages("open").Picture
MyRepFrm.Toolbar.Tools.Insert 25, "保存报表"
Set Tool = MyRepFrm.Toolbar.Tools(25)
Tool.Tooltip = "保存报表"
Tool.ID = IDT_SAVE
Tool.AddIcon CropList.imlViewer.ListImages("save").Picture
'*************************************************************************
'MyRepFrm.Toolbar.Tools.Insert 26, "退出 "
'Set Tool = MyRepFrm.Toolbar.Tools(26)
'Tool.ID = IDT_EXIT
'Tool.Tooltip = "退出"
'Tool.AddIcon CropList.imlViewer.ListImages("exit").Picture
End Sub
Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool)
'工具栏执行
Select Case Tool.ID
Case IDT_OPEN
FileOpen
Case IDT_SAVE
FileExport
Case IDT_RULER
Me.RulerVisible = Not Me.RulerVisible
Tool.Checked = Me.RulerVisible
Case IDT_FIRST
Me.TOC.GotoPage 0
Case IDT_LAST
Me.TOC.GotoPage Me.Pages.Count - 1
Case IDT_EXIT
Unload Me
End Select
End Sub 
