有关ActiveReport的问题

pop133 2001-05-23 05:17:00

ActiveReport组件比较好用!但是在报表头上的控制按钮都是英文的!
比如说打印居然显示print,如何把它改成中文的?

...全文

105 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

wyo 2001-06-21

打赏
举报

ReportSave 子程序怎么写？

guest 2001-06-21

打赏
举报

jinesc@jinesc.com

guest 2001-06-21

打赏
举报

AR的报表保存呀，看HELP

OLD_VB_FAN 2001-06-20

打赏
举报

jinesc(哦！，我是杂牌军)，以后多指教！
可否给一个EMAIL？
xy_wu@netease.com

guest 2001-06-20

打赏
举报

ActiveReport里面加代码！
Private Sub ActiveReport_ToolbarClick(ByVal tool As DDActiveReports.DDTool)
If tool.Caption = "退出" Then Unload Me
If tool.Caption = "保存报表" Then ReportSave Me
End Sub

还没有给分呀

guest 2001-06-18

打赏
举报

是的，不过需要在ActiveReport里面加代码！

OLD_VB_FAN 2001-06-18

打赏
举报

to:jinesc(www.jinesc.com)
你在后面加了几个按钮，是可以扩充的？

jwing 2001-06-17

打赏
举报

如何修改!

OLD_VB_FAN 2001-06-17

打赏
举报

谢谢jinesc(www.jinesc.com)！

guest 2001-06-17

打赏
举报

通用模块，百试百灵
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
调用
Private Sub ActiveReport_ReportStart()
Creport Me
end sub

不记得 2001-05-23