Crystal 10 - papersource in a subreport with VB6

Question

Hi,
I have an older application. Now I have to change some reports. I'm trying since two days to print a report with a subreport to two different papersources. Look at my source code at the bottom. When I print the report always the last papersource command will executed.
- If I move the report papersource comand in front of the subreport command - the subreport command will executed.
- If I move the subreport papersource command in front of the report command - the report command will executed.
Is there no way to print a subreport to another papersource?
I'm happy for any hint!
Best regards,
Daniel
Global cr10App As New CRAXDRT.Application
Global cr10Rep As CRAXDRT.Report
Global cr10FormulaFields As CRAXDRT.FormulaFieldDefinitions
Global cr10FormulaField As CRAXDRT.FormulaFieldDefinition
Global cr10Database As CRAXDRT.Database
Global cr10DatabaseTables As CRAXDRT.DatabaseTables
Global cr10DatabaseTable As CRAXDRT.DatabaseTable
Global cr10Sections As CRAXDRT.Sections
Global cr10Section As CRAXDRT.Section
Global cr10Subreport As CRAXDRT.Report
Global cr10SubreportObject As CRAXDRT.SubreportObject
Global cr10ReportObject As Object
Sub cr10_PrintReport(varReportFile As String, varReportName As String, varSelection As String, varForm As Form)
Dim countTable As Integer, countReset As Integer
On Error GoTo cr10_PrintReport_Error
    Screen.MousePointer = vbHourglass
    countTable = 0
    'Instantiate the Application object and open the Crystal Report from the disk
    Set cr10Rep = cr10App.OpenReport(varReportFile)
    cr10Rep.ReportTitle = varReportName
    'Now, set our Database object to the Report object's Database object
    Set cr10Database = cr10Rep.Database
    'And then, set our DatabaseTables object to the Database object's Tables object
    Set cr10DatabaseTables = cr10Database.Tables
    For Each cr10DatabaseTable In cr10DatabaseTables
        cr10DatabaseTable.Location = PathFIB
        countTable = countTable + 1
    Next cr10DatabaseTable
    'Subreport section
    'Now, set our cr10Sections object to the Report object's sections collection
    Set cr10Sections = cr10Rep.Sections
       For Each cr10Section In cr10Sections
        For Each cr10ReportObject In cr10Section.ReportObjects
           If cr10ReportObject.Kind = crSubreportObject Then
             Set cr10SubreportObject = cr10ReportObject
             Set cr10Subreport = cr10SubreportObject.OpenSubreport
             Set cr10Database = cr10Subreport.Database
             Set cr10DatabaseTables = cr10Database.Tables
             cr10Subreport.PaperSource = crPRBinLower
             For Each cr10DatabaseTable In cr10DatabaseTables
              cr10DatabaseTable.Location = PathAPP
             Next
             Set cr10Subreport = Nothing
           End If
        Next
    Next
    cr10Rep.PaperSource = crPRBinAuto
    CRW00.CARV1.ReportSource = cr10Rep
    CRW00.CARV1.ViewReport
    CRW00.Caption = cr10Rep.ReportTitle
    CRW00.SetFocus
    Screen.MousePointer = vbDefault
    'Reset all temporary values and fields
    For countReset = 0 To 5
        TabFormulaName(countReset) = ""
        TabFormula(countReset) = ""
    Next countReset
    Set cr10Database = Nothing
    Set cr10DatabaseTable = Nothing
    Set cr10DatabaseTables = Nothing
    Set cr10FormulaFields = Nothing
    Set cr10FormulaField = Nothing
    Set cr10Sections = Nothing
    Set cr10Section = Nothing
    Set cr10Subreport = Nothing
    Set cr10SubreportObject = Nothing
    Set cr10Rep = Nothing
    Set cr10App = Nothing
    orientation = 0
    Exit Sub
cr10_PrintReport_Error:
    If Err Then
        Call setErrorMSG
        Resume cr10_PrintReport_End
    End If
cr10_PrintReport_End:
    Screen.MousePointer = vbDefault
End Sub

Answer 1

No there is not. Best way to see what may be possible with any feature or functionality is to see if you can get it to work in the CR designer. If not, it more than likely will not work using any SDK...
Ludek
Follow us on Twitter http://twitter.com/SAPCRNetSup