SoloCodigo

por favor alguien que me pueda decir o si hay alguna forma de mandar a imprimir un reporte desde visual hacia cristal sin necesidad de abrir un formulario o sea que por medior de un boton que se manda a imprimir mi reporte; si alguien me puede orientar se lo agradeceria bastante...  

atte. spider

bueno si amigo eso ya lo tengo lo que no quiero es abrir otro fomulario si no que mande a imprimir directo eso es lo que quiero, jeje creo que no me supe explicar pero es eso nada mas que no se tenga que abrir otro formulario si no que lo haga directo la impresion... y muchas gracias por tu ayuda :-)

atte. spider

olles camarada te envio mi pedazo de código por favor checalo si funciona pero no es igual al tuyo o no se si sea igual tuyo:

Option Explicit
Private crapp As New CRAXDRT.Application 'genera una instancia
Private crreporte As New CRAXDRT.Report 'genera el reporte

Private Sub Form_Load()
    Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
    Dim crParamDef As CRAXDRT.ParameterFieldDefinition
    On Error GoTo errores
    Set crreporte = crapp.OpenReport(App.Path & "\rclientes.rpt", 1)
   
    'aqui iria lo de mandar a imprimir?????

Set crParamDefs = crreporte.ParameterFields
For Each crParamDef In crParamDefs
  Select Case crParamDef.ParameterFieldName
      Case "tipos"
         crParamDef.AddCurrentValue (principal.ti)
      Case "valor"
         crParamDef.AddCurrentValue ("120")
  End Select
Next
   
    CRViewer91.ReportSource = crreporte
    CRViewer91.DisplayGroupTree = False
    CRViewer91.ViewReport
    Exit Sub
errores:
    If Err.Number <> 0 Then
        MsgBox "Hay un error"
    End If
End Sub

Private Sub Form_Resize()
    CRViewer91.Top = 0
    CRViewer91.Left = 0
    CRViewer91.Height = ScaleHeight
    CRViewer91.Width = ScaleWidth
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set crreporte = Nothing
    Set crapp = Nothing
End Sub