el siguiente codigo esta hecho para crystal report pero si yo quisiera pasarlo a datareport como se podria hacer:


o cual es el equivalente de este codigo para datareport????





If MsgBox("¿Desea imprimir este Comprobante.?", vbYesNo, "Taller JC Barría") = vbYes Then CMDDIALOGO.CancelError = True On Error GoTo ERRHANDLER CMDDIALOGO.ShowPrinter BEGINPAGE = CMDDIALOGO.FromPage ENDPAGE = CMDDIALOGO.ToPage NUMCOPIES = CMDDIALOGO.Copies If NUMCOPIES > 1 Then MsgBox "Error, Ud. debe escoger a lo máximo 1 copia", vbCritical, "Taller JC Barría" End If For I = 1 To NUMCOPIES TXTFILTRO1 = TXTORDEN CrystalReport1.SelectionFormula = "{Consulta5.Comprobante}= " & FILTRO1 & "" 'CrystalReport1.SelectionFormula = "{Consulta5.Patente}= '" + TXTPATENTE + "'" CrystalReport1.ReportFileName = "C:\JC Barria\Orden3.rpt" CrystalReport1.Destination = 0 CrystalReport1.Destination = crptToPrinter CrystalReport1.PrintReport On Error Resume Next B = Val(TXTORDEN) + 1 TXTORDEN = B Call NUEVO Next I ERRHANDLER: End If





es urgente: ojala puedan ayudarme !!!!!!!!!!!