漢化ActiveReports 2.0介面 (轉)

漢化ActiveReports 2.0介面 (轉)[@more@]

用法很簡單：在要顯示ActiveReports窗體前，加入：
Creport ActiveReport1  'ActiveReport1是AR的窗體。

Public Sub Creport(AReport As ActiveReport)
'漢化ActiveReport
'以下適用2.0
With AReport
  .ToolBar.Tools.Item(0).Toolt= "各頁目錄"
  .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