Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim crxApp As CRAXDDRT.Application Dim crxRpt As CRAXDDRT.Report Set crxApp = New CRAXDDRT.Application If optIncrLetter = True Then Set crxRpt = crxApp.OpenReport(App.Path & "\Incerment_Letter.rpt") ElseIf OptMidterm = True Then Set crxRpt = crxApp.OpenReport(App.Path & "\Mid_Term_Letters.rpt") End If crxRpt.Database.Tables(1).Location = txtMainFile To View the report Form3.CRViewer1.ReportSource = crxRpt Form3.CRViewer1.ViewReport Form3.CRViewer1.EnableExportButton = True Form3.CRViewer1.EnableGroupTree = False Form3.CRViewer1.EnableZoomControl = True Form3.CRViewer1.EnableCloseButton = False Form3.CRViewer1.EnableSearchControl = True Form3.CRViewer1.EnableSelectExpertButton = True Form3.Show Form3.CRViewer1.Width = Form3.Width Form3.CRViewer1.Height = Form3.Height
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.