有关ActiveReports2.0中文版的问题，来者有分！

Question

别急，你只要把字体设成宋体，字符集由“西方”改成“CHINESE_GB3212”就OK了。

Answer 1

ActiveReports2.0中文版实际上是一个模块，我给你好拉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 = 3773Public Sub Creport(MyRepFrm As ActiveReport)
'汉化ActiveReport
Dim Tool As DDActiveReportsViewer2Ctl.DDToolMyRepFrm.Toolbar.Tools.Item(0).Visible = False
MyRepFrm.Toolbar.Tools.Item(0).Checked = FalseMyRepFrm.Toolbar.Tools.Item(1).Caption = "内容中的表"
MyRepFrm.Toolbar.Tools.Item(1).Tooltip = "内容中的表"
MyRepFrm.Toolbar.Tools.Item(1).Visible = FalseMyRepFrm.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 = FalseMyRepFrm.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 = FalseMyRepFrm.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 = TrueMyRepFrm.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").PictureMyRepFrm.Toolbar.Tools.Insert 18, ""
Set Tool = MyRepFrm.Toolbar.Tools(18)
Tool.ID = IDT_LAST
Tool.Tooltip = "最后一页"
Tool.AddIcon CropList.imlViewer.ListImages("last").PictureMyRepFrm.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.RulerVisibleMyRepFrm.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").PictureMyRepFrm.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").PictureEnd Sub

Answer 2

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
文件另存是个窗体——有没有都无所谓拉~~，嘿嘿

Answer 3

这位大侠可否具体说一下怎么汉化！小弟一下子实在不知道该怎么做！
还有中文版的帮助有没有？—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

Answer 4

哈。。是有这种情况，你要设定一个内部参数，要不打印出来的中文格式就有问题！
rendmode=1