＋设为首页 ＋添加到收藏夹
现在我的毕业设计是vb+access
数据库都建好了，也连好了
我要把已输入数据变成表格形式，打印出来
同学告诉我要做个报表
这个怎么做啊？
还有打印的程序怎么编写？
;-):
可以显示中文呀,只有在字体中设置为: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
