Results 1 to 2 of 2

Thread: Crystal Report Control

  1. #1

    Thread Starter
    Fanatic Member
    Join Date
    Feb 2002
    Location
    Hampton Beach
    Posts
    513

    Crystal Report Control

    Wow its been awhile since I used Crystal Reports in VB6. Can anyone refresh my memory on how to use the Crystal Report control and programmtically export the report to xls or rtf?

  2. #2
    Super Moderator RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,713
    If you are talking about the CR Viewer control then do like this...
    VB Code:
    1. Option Explicit
    2. 'Add reference to Crystal Reports x.x ActiveX Designer RunTime Library
    3. 'Add reference to Crystal Reports Viewer Control
    4. 'Add reference to Microsoft ActiveX Data Objects 2.x Library
    5. 'oCnn = current open ADO connection object
    6. Private Sub Command1_Click()
    7.  
    8.     Dim oApp As CRAXDRT.Application
    9.     Dim oReport As CRAXDRT.Report
    10.     Dim oRs As ADODB.Recordset
    11.     Dim sSQL As String
    12.  
    13.     sSQL = "SELECT * FROM Table1"
    14.     Set oRs = New ADODB.Recordset
    15.     Set oRs = oCnn.Execute(sSQL)
    16.     Set oApp = New CRAXDRT.Application
    17.     Set oReport = oApp.OpenReport(App.Path & "\MyReport.rpt", 1)
    18.     oReport.Database.SetDataSource oRs, 3, 1
    19.     crvMyCRViewer.ReportSource = oReport
    20.     crvMyCRViewer.ViewReport
    21.  
    22. End Sub
    Then you can click on the export button to have the report
    exported in whatever format you want and where.
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width