Automate Generate Crystal Report

Posted on 2002-04-08
Last Modified: 2012-06-27

Does anyone know how to automate to generate the crystal report with data and then save it to crystal report format or html format or excel format or text format?

I knows that crystal report able to export the crystal report to other supported format by click on the button when viewing the report.

My question is, is there a way not to allow user click on those button? Meams, automatic generate the report?

Urgent matter need your expertise and ideas and solutions!


Question by:ht055
  • 5
  • 4
LVL 100

Expert Comment

Comment Utility
If you are refering to the export icn on the CR viewer, you can make it visible or invisible from VB.

If you are using the ActiveX control you use the following

  CR_Report.WindowShowExportBtn = False

To automatically generate a file you can do something like this

Public Sub print_File_from_View(txt_Report_File_Name As String, _
                            txt_Rec_Select_Formula As String, _
                            txt_Disk_File_Name As String)

    cr_Rpt.ReportFileName = txt_Report_File_Name
    cr_Rpt.ReplaceSelectionFormula txt_Rec_Select_Formula
    cr_Rpt.Destination = crptToFile
    cr_Rpt.PrintFileType = crptWinWord
    cr_Rpt.PrintFileName = txt_Disk_File_Name
    cr_Rpt.ProgressDialog = False
End Sub

PrintFileType can have many different values depending on what convertors you have loaded. (Excel, text, CSV, etc)

good luck

Author Comment

Comment Utility
Hi mlmcc,

thank you very much for you reply as i was waited for a day!!!!

Based on your solution, my have question for your clarification.

1. Is the user need to click on the export icon in CR viewer? I don't want user to click on any icon to export the file. Which means end of the month, the system auto generate the report without user involved.

2. You public function does the automation generation of report?


LVL 100

Expert Comment

Comment Utility
Yes it will automatically generate the file.  In fact we generate the file and then e-mail to the customer.


Author Comment

Comment Utility you had done the automate the report generation project. That good!

Appreciate if you could show me an working example code (full) to automate the report generation.

The mark definetely is for you!
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

LVL 100

Expert Comment

Comment Utility
Basically what I gave you is a full example.  There are a couple of declarations and then the components you must add.  I'll try to find it tonight otherwise I'll add it at work tomorrow.

LVL 100

Expert Comment

Comment Utility
Here is an example from Crystal.  You may find it useful.  I'll still provide what i have.


Author Comment

Comment Utility
hi mlmcc.

Thank you very much.

You can send to

Thanks again!
LVL 100

Accepted Solution

mlmcc earned 100 total points
Comment Utility
Unfortunately my application is much to large to send and is very database specific (MS SQL) but here is a documented excerpt from the code with the required references.  This will create the report in a file ready to be opened by the application  It ispossible to have the application started from VB after the report is complete and open the file.

Add the following component to the project
Crystal Report Control

Add the following references to the project
Crystal Reports 8 ActiveX Designer Design Time Library
Crystal Reports 8 ActiveX Designer Run Time Library
Crystal Reports 8 Standard Wizard Library

On the MDI form or a form used to print the report add the following


‘  Create a Crystl Report object  - uses the ActiveX control

Dim WithEvents cr_Generic_Report As CrystalReport

Behind the Button or in a procedure add the following code to print to the file

‘  Set the report to produce.  Must unclude the full path, filename and extension

    cr_Generic_Report.ReportFileName = “c:\Database\Reports\My_Report.rpt”

‘  Allows changing the WHERE clause of the query

    cr_Generic_Report.ReplaceSelectionFormula “{} = 5”

‘  Where do you want the report to go
‘     File               crptToFile
‘     Preview          crptToWindow
‘     Printer               crptToPrinter
‘     Mail               crptMapi
‘     MS Exchange          crptExchange

    cr_Generic_Report.Destination = crptToFile

‘  If you are going to a file what type and the file name
‘     MS Word     crptWinWord
‘     MS Excel     crptExcel50
‘     Text File     crptText
‘     RTF File     crptRTF

    cr_Generic_Report.PrintFileType = crptWinWord
    cr_Generic_Report.PrintFileName = “c:\my_documents\my_report04022002.doc”

‘  Display the progress dialog box

    cr_Generic_Report.ProgressDialog = False

‘  Execute the report


‘  Reset the Crystal Object – allows printing multiple reports

good luck

Author Comment

Comment Utility
hi mlmcc,

would test out the your code.


Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now