Dim docexp As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport()
docexp.AutoRowHeight=True
docexp.DisplayGridLines=True
docexp.FileFormat=GrapeCity.ActiveReports.Export.Excel.Section.FileFormat.Xls95 'または Xls97Plus
docexp.MinColumnWidth=3
docexp.MinRowHeight=1
docexp.MultiSheet=True
docexp.RemoveVerticalSpace=True
docexp.UseCellMerging=False
docexp.Export(Me.viewer1.Document, Application.StartupPath + "\x.xls")