Olá, gostaria de saber se alguém poderia me ajudar: Estou com um problema na impressão de relatório via Data Report, e o seguinte:

 

Criei um relatório atraves de codigo usando:

                    mRpa = DataRpa.Columns(0)
                    Dim sqlRpa As String
                    sqlRpa = "SELECT * FROM veiculo INNER JOIN " & _
                            "(motorista INNER JOIN Rpa ON motorista.cpf = Rpa.cpfmotorista)  " & _
                            "ON veiculo.cpfmotorista = motorista.cpf " & _
                            " WHERE (((Rpa.nrRpa) = '" & mRpa & "'))"
                    Set rsRpa = glbADOConexao.Execute(sqlRpa)
                    If Not rsRpa.EOF Then
                        gblnrRpa = rsRpa.Fields("nrRpa")
                        gblMotorista = rsRpa.Fields("nome")
                        gblRG = rsRpa.Fields("rg")
                        gblCPF = rsRpa.Fields("cpfmotorista") e assim por diante

 

terminando assim

                        Set DataReport2.DataSource = rsRpa
                        DataReport2.PrintReport True, rptRangeAllPages
                        'DataReport2.Show vbModal, Me
                        rsRpa.Close
                        Set rsRpa = Nothing

e no report uso :

Private Sub DataReport_Activate()
On Error Resume Next
    DataReport2.Refresh
    DataReport2.Sections(1).Controls("txtNrRpa").Caption = gblnrRpa
    DataReport2.Sections(1).Controls("txtNome").Caption = gblMotorista
    DataReport2.Sections(1).Controls("txtRg").Caption = gblRG
    DataReport2.Refresh
End Sub

Porém quando mando imprimir o VB não imprimi e retorna que o programa executou uma operação ilegal e será fechado.

 

Será que alguém poderia me ajudar.

Desde de já agradeço a atenção.