Visual Basic - No me imprime el reporte

Hola amigos del Foro quiero que me auden ya que no me imprime el reporte que yo utilizo ne este momento, el código que ocupo en este momento es el siguiente
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
ojala que me ayuden ya que estoy más desesperado que nunca, imaginense que este es el mismo código que utilizo para los demas reportes y todos me funcionan bien, menos este, además menciono que trabjo con Crystal Report 8.5, desde ya muchas gracias

si los otros te funcionan bien, porque no comparas linea por linea a ver si hay algo diferente que te complica la impresion ?????
suereeeeeeeeeeeeeeeeeeeeeeeeeee