怎樣完美的用ActiveReport2導出到Excel?

Question

Dim Excelx As New ARExportExcel
Excelx.MultiSheet = True
Excelx.SizeToFit = True '//此句改成Excelx.SizeToFit = False也試過
Excelx.TrimEmptySpace = False
Excelx.FileName = AppPathx & "ActiveReport.Xls"
ActiveReportx.Export Excelx以上我這樣設置,但效果不好.問怎樣可以完美的解決這個問題呢?

Answer 1

ActiveReport导出到Excel和Word的功能很差的，基本上不可用。要想导出像样的报表，还是自己用VBA写吧. 但如果导出到Excel的功能不很重要，不是很常用，没必要花大功夫搞的话，就只好用ActiveReport的导出功能了。我的心得是：
1 设计ActiveReport的时候，网格用Text的边框实现，画线的话导出要是Excel的线图片，很烦的。
2 如果除了网格内容，还有表头内容，表头内容要和网格的列对齐，否则生成的Excel列会分出好多。
3 网格的行高不要太高，好像200就行了。太高生成Excel表格行会2行对报表中一行。

Answer 2

同意楼上。
用CrystalReport 9效果好些。