Postada em 10/05/2005 17:54 hs
'Relatórios
Global rela As CRAXDRT.Application
Global relb As CRAXDRT.Report
Private Sub Form_Resize()
Set rela = New CRAXDRT.Application
Set relb = New CRAXDRT.Report
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set rela = Nothing
Set relb = Nothing
End Sub
Private Sub menu_Imp_TopMsg_Click()
Set relb = rela.OpenReport(App.Path & "TopMsg.rpt")
Screen.MousePointer = vbHourglass
relb.DiscardSavedData
relb.VerifyOnEveryPrint = True
CRViewer91.ReportSource = relb
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
|
