很简单,给开发厂家发email,让他们汉化即可。

解决方案 »

  1.   

    这也是的,不会用另外的办法吗?比如我的;Sub Creport(xx As ActiveReport)
    '汉化ActiveReport
    xx.Toolbar.Tools.Item(0).Visible = False
    xx.Toolbar.Tools.Item(2).Caption = "打印"
    xx.Toolbar.Tools.Item(2).Tooltip = "打印"
    xx.Toolbar.Tools.Item(4).Tooltip = "缩小"
    xx.Toolbar.Tools.Item(5).Tooltip = "放大"
    xx.Toolbar.Tools.Item(4).Caption = "缩小"
    xx.Toolbar.Tools.Item(5).Caption = "放大"
    xx.Toolbar.Tools.Item(8).Tooltip = "上一页"
    xx.Toolbar.Tools.Item(9).Tooltip = "下一页"
    xx.Toolbar.Tools.Item(8).Caption = "上一页"
    xx.Toolbar.Tools.Item(9).Caption = "下一页"
    xx.Toolbar.Tools.Item(12).Caption = "后退"
    xx.Toolbar.Tools.Item(13).Caption = "前进"
    xx.Toolbar.Tools.Add ""
    xx.Toolbar.Tools.Item(14).Type = 2
    xx.Toolbar.Tools.Add "保存报表"
    xx.Toolbar.Tools.Add "退出"
    xx.Toolbar.Tools.Item(15).Type = 1
    End Sub记得给分呀