ActiveReports3增加按钮的问题？
[size=12px][/size]最近使用了ACTIVEREPORTS，在网上看到了一段代码，很好的增加了一个“页面设置”的按钮：
Private Sub ActiveReport_Initialize()
AR3.Toolbar.Tools.Add ("页面设置")
SetPrintCHI Me
End Sub
Private Sub SetPrintCHI(Arvreport As Object)
With Arvreport
.Toolbar.Tools.Add "页面设置"
.ToolbarVisible = True
.Toolbar.DisplayToolTips = True
.Toolbar.Tools(0).Caption = "目录"
.Toolbar.Tools(0).Tooltip = "目录"
.Toolbar.Tools(2).Caption = "打印"
.Toolbar.Tools(2).Tooltip = "打印输出"
.Toolbar.Tools(4).Caption = "缩小"
.Toolbar.Tools(4).Tooltip = "预览缩小"
.Toolbar.Tools(5).Caption = "放大"
.Toolbar.Tools(5).Tooltip = "预览放大"
.Toolbar.Tools(6).Tooltip = "放大百分比"
.Toolbar.Tools(8).Caption = "上页"
.Toolbar.Tools(8).Tooltip = "上一页"
.Toolbar.Tools(9).Caption = "下页"
.Toolbar.Tools(9).Tooltip = "下一页"
.Toolbar.Tools(10).Tooltip = "页数"
.Toolbar.Tools(12).Caption = "上一记录"
.Toolbar.Tools(12).Tooltip = "上一记录"
.Toolbar.Tools(13).Caption = "下一记录"
.Toolbar.Tools(13).Tooltip = "下一记录"
.Toolbar.Tools(14).Tooltip = "页面设置"
End With
End Sub
问题如下：
1：此段代码仅仅能增加一个按钮，如果我想再增加一个甚至多个按钮，代码应该如何写？
2：此段代码增加上去的是一个字符串，如果我想将其增加的代码改成好看的图标显示，那代码应该如何写？
谢谢各位
另外：有没有中文的ACTIVEREPORTS的中文的详细说明下载？
[解决办法]
增加多个按钮,加一个For...Next循环
[解决办法]
Private Sub SetPrintCHI(Arvreport As Object)
With Arvreport
.Toolbar.Tools.Add "页面设置"
这里也要添上一行add
.Toolbar.Tools(14).Tooltip = "页面设置"
后面加上一行(15)
