Crystal Report - problema con crviewer

 
Vista:

problema con crviewer

Publicado por Roberto (8 intervenciones) el 26/07/2004 19:36:16
tengo el siguiente codigo:

Dim N As Integer
Dim crxApplication As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim crxSubreport As CRAXDRT.Report
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Dim Subreporte(9) As String
Subreporte(0) = "Refacciones"
Subreporte(1) = "PosicionesDeTrabajo"
Subreporte(2) = "Detalles de tot"
Subreporte(3) = "Subtotal de servicio"
Subreporte(4) = "Subtotal de t.o.o"
Subreporte(5) = "Inventario"
Subreporte(6) = "Subreporte trabajos adicionales"
Subreporte(7) = "Subtotal de trabajos adicionales"
Subreporte(8) = "Varios"
Subreporte(9) = "Subtotal de refacciones"
Set Report = crxApplication.OpenReport(App.Path & "\OrdenPresupuesto.rpt", 1)
For Each crxDatabaseTable In Report.Database.Tables
crxDatabaseTable.Location = "C:\SERVICIO\BASE DE DATOS\" & Cia & "SERVICIO" & Ejercicio & ".MDB"
Next crxDatabaseTable

For N = 0 To 9
Set crxSubreport = Report.OpenSubreport(Subreporte(N))
For Each crxDatabaseTable In crxSubreport.Database.Tables
crxDatabaseTable.Location = "C:\SERVICIO\BASE DE DATOS\" & Cia & "SERVICIO" & Ejercicio & ".MDB"
Next crxDatabaseTable
Next N

Report.RecordSelectionFormula = "{FACTURAS.NUMEROFACTURA}=" & Val(TxtFactura) & ""
Report.PrintOut

'CRViewer1.ReportSource = Report
'CRViewer1.PrintReport
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:problema con crviewer

Publicado por Roberto (8 intervenciones) el 26/07/2004 19:37:58
con este codigo me imprime directamente a la impresora pero necesito la vista preliminar y no se como hacerlo, lo intente sustituyendo la linea Report.PrintOut por las dos que estan abajo de esta como comentarios y asi no hace absolutamente nada.

de antemano gracias

Roberto
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

RE:problema con crviewer

Publicado por Juan Jose (4 intervenciones) el 27/07/2004 01:13:25
Debes insertar el control CRViewer dentro de una forma, y despues si utilizarlo de la siguiente manera:
En el form load de la forma donde insertaste el control debe ir el siguiente codigo

Private Sub Form_Load()

Mouse True
CRViewer1.ReportSource = Report
CRViewer1.PrintReport
CRViewer1.DisplayGroupTree = False
CRViewer1.EnableExportButton = True
Report.SetDialogParentWindow SIGMDIFrmMenu.hWnd
CRViewer1.ViewReport
'CRViewer1.Refresh

Mouse False

End Sub

Luego solo debes mostrar la forma, y asi se vera un preview del reporte.
Espero te sirva
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

RE:problema con crviewer

Publicado por Roberto M.M. (8 intervenciones) el 02/08/2004 23:57:55
Juan jose, el codigo con el que diste respuesa a mi problema funciono perfectamente, gracias.

Sinceramente

Roberto
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

RE:problema con crviewer

Publicado por Yeni (1 intervención) el 30/07/2008 19:21:05
No me funciona a mi... el crviewer no me hace nada.. ejecuta el codigo completo sin dar errores pero no me muestra el informe.
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