Public Const IDT_SAVE = 5001
Public Const IDT_LAST = 5002
Public Const IDT_RULER = 5003
Public Const IDT_FIRST = 5004
Public Const IDT_EXIT = 5005
Public Const IDT_OPEN = 5006
Public Const IDT_Printer = 3773
Public Sub Creport(MyRepFrm As ActiveReport)
'汉化ActiveReport
Dim Tool As DDActiveReportsViewer2Ctl.DDTool
Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool)
'工具栏执行
Select Case Tool.ID
Case IDT_OPEN
FileOpen
Case IDT_SAVE
FileExport
Case IDT_RULER
Me.RulerVisible = Not Me.RulerVisible
Tool.Checked = Me.RulerVisible
Case IDT_FIRST
Me.TOC.GotoPage 0
Case IDT_LAST
Me.TOC.GotoPage Me.Pages.Count - 1
Case IDT_EXIT
Unload Me
End Select
End Sub