关于ARViewer2,急..高人请进

Question

我用ARViewer2做打印功能,在导出到EXCEL时,只导出第一页,后面页的数据没导出,是何原因.望高人指点一二,谢谢.

Answer 1

现在问题清楚了,全导出来了,不过会分页,会分在EXCEL的另外的sheet里.可我要求的是:全导到第一张sheet里.

Answer 2

excelApplication.Sheets("sheet1").Select

Answer 3

    Set rdf = CreateObject("ActiveReportsExcelExport.ARExportExcel")
    bSave = VBGetSaveFileName(sFile, "", True, _
           "Excel Format (*.xls)| *.xls", , , _
            "Export to Excel", "*.xls", Me.hwnd, 524288 Or 4 Or 2097152)    If bSave Then rdf.FileName = sFile Else Exit Sub    
    If arViewer.Pages.Count > 0 Then
        rdf.Export arViewer.Pages
    ElseIf Not arViewer.ReportSource Is Nothing Then
        If arViewer.ReportSource.Pages.Count > 0 Then
            rdf.Export arViewer.ReportSource.Pages
        End If
    End If
    Set rdf = Nothing