用法很简单:在要显示ActiveReports窗体前,加入: Creport ActiveReport1   'ActiveReport1是AR的窗体。 
Public Sub Creport(AReport As ActiveReport) '汉化ActiveReport '以下适用2.0 With AReport   .ToolBar.Tools.Item(0).Tooltip = "各页目录"   .ToolBar.Tools.Item(2).Caption = "打印..."   .ToolBar.Tools.Item(2).Tooltip = "打印报表"   .ToolBar.Tools.Item(4).Tooltip = "拷贝"   .ToolBar.Tools.Item(6).Tooltip = "查找"   .ToolBar.Tools.Item(8).Tooltip = "单页显示"   .ToolBar.Tools.Item(9).Tooltip = "多页显示"   .ToolBar.Tools.Item(11).Tooltip = "缩小"   .ToolBar.Tools.Item(12).Tooltip = "放大"   .ToolBar.Tools.Item(15).Tooltip = "上一页"   .ToolBar.Tools.Item(16).Tooltip = "下一页"   .ToolBar.Tools.Item(19).Tooltip = "后退"   .ToolBar.Tools.Item(19).Caption = "后退"   .ToolBar.Tools.Item(20).Tooltip = "前进"   .ToolBar.Tools.Item(20).Caption = "前进"  End With End Sub  
 
  |