Programación General > Visual Basic 6.0 e inferiores

 Visual-cristal

(1/2) > >>

spiderman1602:
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

ArKaNtOs:
no te entiendo amigo a que te refieres, si deceas imprimir un reporte de visual solo agrega el componente Crystal Report Control a tu form y con las instrucciones

crystalreport1.ReportFileName = App.Path & "\mireporte.rpt"
crystalreport1.PrintReport

Mandas a llamar a la ventana del crystal y listo

spiderman1602:
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

ArKaNtOs:
a ok :) mira para mandar directo a la impresora debe ser asi :)

crystalreport1.ReportFileName = App.Path & "\mireporte.rpt"
crystalreport1.Destination =crptToPrinter
crystalreport1.PrintReport

ahora debes de tener encuenta que lo manda a la impresora por defecto, eh :) Suerte.

spiderman1602:
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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente