Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Imprmir reporte Crystal 11 sin tantos pasos

Estas en el tema de Imprmir reporte Crystal 11 sin tantos pasos en el foro de Visual Basic clásico en Foros del Web. Hola como estan? Bueno quisiera imprmir un reporte creado con crystal 11 en el cual imprimo un remito y los datos son variables, los cuales ...
  #1 (permalink)  
Antiguo 15/05/2010, 07:38
mgd
 
Fecha de Ingreso: enero-2009
Mensajes: 129
Antigüedad: 15 años, 2 meses
Puntos: 0
Imprmir reporte Crystal 11 sin tantos pasos

Hola como estan?

Bueno quisiera imprmir un reporte creado con crystal 11 en el cual imprimo un remito y los datos son variables, los cuales los envio a travez de un recordset de ado.
Anda todo bien solo que me gustaria saber como puedo hacer para que al enviar el recordset imprima el reporte sin necesidad de abrir un nuevo formulario y cargar el reporte en el control de crystal 11 y despues hacer click en el boton imprmir el cual me lleva a una ventana donde pide que pagina imprimir y recien imprime cuando elijo la impresora.

Es decir lo que necesito es enviar el recordset y que lo imprima sin necesidad de hacer los pasos anteriorres.

El codigo VB6 que utilizo es el siguiente:

Código VB6:
Ver original
  1. Dim CrApp As New CRAXDRT.APPLICATION
  2. Dim crreport As New CRAXDRT.Report
  3. Dim ruta As String
  4.  
  5. If db.State = 0 Then db.Open
  6.  
  7. ruta = App.Path & "\reportes\remitohorizontalfijo.rpt"
  8.    
  9.         strsql = "select concat(cast(remito.ptoventa as char(4)),'-', cast(remito.codremito as char(8))) codremito, remito.fecha, remito.importetotal, " & _
  10.                 " det_remito.importetotal totalrenglon, det_remito.preciounit, det_remito.cantidad, " & _
  11.                 " productos.descripcion producto, talles.talle, productos.codproducto, " & _
  12.                 " clientes.empresa cliente, clientes.cuit, clientes.iva, clientes.ingresosbrutos, clientes.telefono, clientes.direccion, " & _
  13.                 " clientes.condiva, localidades.descripcion localidad " & _
  14.                 " from remito inner join det_remito on det_remito.codremito = remito.codremito " & _
  15.                         " inner join productos on productos.codigo = det_remito.codigo " & _
  16.                         " inner join talles on talles.codtalle = det_remito.codtalle " & _
  17.                         " left join clientes on clientes.codcli = remito.codcli " & _
  18.                         " left join localidades on localidades.codpostal = clientes.codpostal " & _
  19. " Where remito.codremito = " & codremito
  20.  
  21.            
  22.             Set rs = New ADODB.Recordset
  23.             rs.ActiveConnection = db
  24.             rs.CursorLocation = adUseClient
  25.             rs.Open (strsql), db, adOpenDynamic, adLockOptimistic
  26.             rs.ActiveConnection = Nothing
  27.             If rs.BOF And rs.EOF Then
  28.                 If db.State = 1 Then db.Close
  29.                 If mensaje("No hay resultado para esta consulta.", "exclamation", "OK", "Atención !!!", "", "") = False Then
  30.                 End If
  31.                 Exit Sub
  32.             Else
  33.            
  34.            
  35.             End If
  36.  
  37.     'If db.State = 1 Then db.Close
  38.  
  39.  
  40.  
  41.  
  42. Set crreport = CrApp.OpenReport(ruta, 1)
  43. vfimprimir.CrystalActiveXReportViewer1.ReportSource = crreport
  44. crreport.Database.SetDataSource rs
  45. vfimprimir.CrystalActiveXReportViewer1.DisplayGroupTree = False
  46. vfimprimir.CrystalActiveXReportViewer1.ViewReport
  47.  
  48. vfimprimir.CrystalActiveXReportViewer1.Refresh
  49.  
  50. vfimprimir.show vbmodal

Espero hacerme entender, muchas gracias

Etiquetas: crystal, pasos, reporte
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:40.