CR2008: parameters ignored when using the PrintToPrinter method

Question

Hi all,
Currently I'm using Crystal Reports in all my add-ons and my algorithm is has follows:
- Create a New Report object;
- Load the Reports;
- Set the reports Parameters and SelectionFormula;
- Set the server/database connection info and login into every table;
- Load Form OR Send to Printer
    - Load Form procedure:
        - Create a New Windows Form with a ReportViewer control;
        - Set the ReportViewer's ReportSource;
        - Invoke the Refresh method of the ReportViewer control;
        - Invoke the ShowDialog method of the Report object.
    - Send To Printer procedure
        - Invoke the PrintToPrinter method of the Report object...
When I use the Load Form procedure, everything works has it should: the SelectionFormula filters the correct records and the Parameters hide/show the fields that they are supposed to.
If I use the Send To Printer procedure, the SelectionFormula works correctly but some Parameters are ignored. I've checked the object properties at runtime, and all the parameters I define are correct...
My question is: is there some sort of Refresh method that I can call before calling the PrintToPrinter method that forces the report to check the parameter fields values? Or am I doing something wrong?
My code is posted bellow.
Thanks in advanced,
Regards,
Vítor Vieira

Answer 1

' procedure that creates a new ConnectionInfo object with the login credentials to the SQL server.
    Private Sub SetDBConnection()
        Try
            rptConnectionInfo = New ConnectionInfo()
            rptConnectionInfo.DatabaseName = OONE_CompanyDB
            rptConnectionInfo.UserID = OONE_CompanySQLUserId
            rptConnectionInfo.Password = OONE_CompanySQLPass
            rptConnectionInfo.ServerName = OONE_CompanyServer
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show("Error(SetDBConnection): " & ex.ToString)
        End Try
    End Sub
    ''' procedure that creates a new ReportDocument object
    Private Sub SetReportDocument()
        Try
            rptDocument = New ReportDocument
            rptDocument.Load(rptPath)
            SetParameters()
            rptDocument.DataDefinition.RecordSelectionFormula = SelectionString
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show("Error(SetReportDocument): " & ex.ToString)
        End Try
    End Sub
    ' procedure that makes the login to the table in the ReportDocument object
    Private Sub SetDBLogonForReport()
        Try
            Dim myTables As Tables = rptDocument.Database.Tables
            Dim myTableLogonInfo As TableLogOnInfo
            For Each myTable As Table In myTables
                myTableLogonInfo = myTable.LogOnInfo
                myTableLogonInfo.ConnectionInfo = rptConnectionInfo
                myTable.ApplyLogOnInfo(myTableLogonInfo)
            Next
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show("Error(SetDBLogonForReport): " & ex.ToString)
        End Try
    End Sub
    ' procedure that loads a windows form with the report
    Private Sub SetCrystalForm(ByRef Titulo As String)
        Try
            rptCrystalForm = New CrystalForm()
            rptCrystalForm.Text = Titulo
            rptCrystalForm.oCrystalReportViewer.ReportSource = rptDocument
            rptCrystalForm.TopMost = True
            rptCrystalForm.oCrystalReportViewer.Refresh()
            If rptSendToPrinter Then
                rptCrystalForm.oCrystalReportViewer.PrintReport()
            Else
                rptCrystalForm.ShowDialog()
            End If
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show("Error(SetCrystalForm): " & ex.ToString)
        Finally
            ReleaseMemory()
        End Try
    End Sub
    ' Send the report directly to a printer without showing it.
    Private Sub SendReportToPrinter()
        Try
            rptDocument.PrintToPrinter(rptPageSettings.PrinterSettings, rptPageSettings, False)
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show("Error(SendReportToPrinter): " & ex.ToString)
        Finally
            ReleaseMemory()
        End Try
    End Sub
    ' Procedure that releases memory.
    Private Sub ReleaseMemory()
        Try
            rptParameterField = Nothing
            For Each oTable As Table In rptDocument.Database.Tables
                oTable.Dispose()
            Next
            If rptSendToPrinter Then
                rptPageSettings.PrinterSettings = Nothing
                rptPageSettings = Nothing
            End If
            rptConnectionInfo = Nothing
            rptDocument.Database.Tables.Dispose()
            rptDocument.Database.Tables.Reset()
            rptDocument.Database.Dispose()
            rptDocument.Close()
            rptDocument.Dispose()
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show("ReleaseMemory: " & ex.ToString)
        End Try
    End Sub