Crystal to EXCEL

[Pasvorto]

I have Crystal Report Writer 85.. I want my vb6 app to run the report that will export the data to EXCEL.

My questions are:

Do I need this code?
Report.SelectPrinter glbPrinterDriver, glbPrinterName, glbPrinterPort

I know I need:
Set Report = crxApplication.OpenReport("C:\AvedaXL.rpt", 1)
Report.PrintfileType = 19 'EXCEL5
Report.PrintFileName = "C:\Aveda.xls"
Report.PrintOut False

When the report is done, I need to have an EXCEL sheet created.

[ducky]

Almost. You don't need the Report.SelectPrinter since you're only exporting, and don't use any of the print objects. Also if your exporting to excel I believe you have the wrong export code.

You minimal code would be:


Set Report = crxApplication.OpenReport("C:\AvedaXL.rpt", 1)
Report.ExportOptions.FormatType = crEFTExcel80
Report.ExportOptions.DiskFileName = "C:\Aveda.xls"
Report.ExportOptions.DestinationType = crEDTDiskFile
Report.Export False


If your DB used in the report requires login, you'll also have to set the login info for each table like the following:


For Each crpTable In Report.Database.Tables
crpTable.SetLogOnInfo "myhost", , "myusername", "mypassword"
Next