Crystal rpt export to Excel in VB code not getting Column Headers

[CJwater]

Hi,

I'm Exporting a crystal report to Excel and I need to include the column headers.

The follow code does the report export but I don't get any header (It does gives me all report totals). Anyone have an idea what I'm doing wrong? missing?


Set report = appl.OpenReport("\\cr\\Rpt_WeeklySales.rpt")

report.ParameterFields.Item(1).AddCurrentValue StartDt
report.ParameterFields.Item(2).AddCurrentValue EndDt
report.ParameterFields.Item(3).AddCurrentValue mfgBrand
report.ExportOptions.DestinationType = crEDTDiskFile
report.ExportOptions.ExcelTabHasColumnHeadings = True
report.ExportOptions.FormatType = crEFTExcel80

report.ExportOptions.DiskFileName = "\\serverr\Sales(Excel) _" & Format(Date, "yyyymmdd") & ".xls"

report.Export False

Any thoughts on this?

Thanks
CJ