Visual Basic - No me imprime el reporte

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

No me imprime el reporte

Publicado por Héctor (52 intervenciones) el 24/11/2005 03:23:27
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:No me imprime el reporte

Publicado por EGV (385 intervenciones) el 24/11/2005 14:56:25
si los otros te funcionan bien, porque no comparas linea por linea a ver si hay algo diferente que te complica la impresion ?????
suereeeeeeeeeeeeeeeeeeeeeeeeeee
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar