Para aydai@newsgroups.nospam

El codigo para cargar un report que esta fuera del exe es este:

Dim Report As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Try
Report.Load(G_DirectorioAplic & "\CRFactura1.rpt")
Catch
End Try


Luego este report se los puedes cargar a un crystal report viewer o bien
lanzarlo directamente a impresion.



Un saludo y si teneis mas dudas comentarmelas


"Cid" escribió en el mensaje
news:Oz7b$

Gracias por leerme, es para pedirte si me puedes enviar un ejemplo de como
se hace para dejar los reportes de CR fuera del ejecutable. Salu2.

El codigo para cargar un report que esta fuera del exe es este:

Dim Report As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Try
Report.Load(G_DirectorioAplic & "\CRFactura1.rpt")
Catch
End Try

Luego este report se los puedes cargar a un crystal report viewer o bien
lanzarlo directamente a impresion.

Sin abusar... pero si dices como en cada caso... gracias.

Un saludo y si teneis mas dudas comentarmelas

'Codigo para lanzarlo por impresora

Report.PrintOptions.PrinterName = SettingsImpresora.PrinterName

Report.PrintToPrinter(1, False, 0, 0)

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

Cursor.Current = Cursors.Default

End Try

'codigo para previsualizacion
crViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer

.crViewer.ReportSource = crReport

If Indice = True Then

'Controlamos que se vean o no los indices

.crViewer.ShowCloseButton = True

.crViewer.ShowGroupTreeButton = True

.crViewer.DisplayGroupTree = True

Else

.crViewer.ShowCloseButton = False

.crViewer.ShowGroupTreeButton = False

.crViewer.DisplayGroupTree = False

End If

.crViewer.Refresh()

.Show()

End With

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

Cursor.Current = Cursors.Default

Frm_otr_lis_previoinformes.Close()

End Try


"Cid" escribió en el mensaje
news:

El codigo para cargar un report que esta fuera del exe es este:

Dim Report As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Try
Report.Load(G_DirectorioAplic & "\CRFactura1.rpt")
Catch
End Try

Luego este report se los puedes cargar a un crystal report viewer o bien
lanzarlo directamente a impresion.

Sin abusar... pero si dices como en cada caso... gracias.

Un saludo y si teneis mas dudas comentarmelas

Te agradezco la ayuda. salu2.

"" escribió en el mensaje
news:

'Codigo para lanzarlo por impresora

Report.PrintOptions.PrinterName = SettingsImpresora.PrinterName

Report.PrintToPrinter(1, False, 0, 0)

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

Cursor.Current = Cursors.Default

End Try

'codigo para previsualizacion
crViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer

.crViewer.ReportSource = crReport

If Indice = True Then

'Controlamos que se vean o no los indices

.crViewer.ShowCloseButton = True

.crViewer.ShowGroupTreeButton = True

.crViewer.DisplayGroupTree = True

Else

.crViewer.ShowCloseButton = False

.crViewer.ShowGroupTreeButton = False

.crViewer.DisplayGroupTree = False

End If

.crViewer.Refresh()

.Show()

End With

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

Cursor.Current = Cursors.Default

Frm_otr_lis_previoinformes.Close()

End Try


"Cid" escribió en el mensaje
news:

El codigo para cargar un report que esta fuera del exe es este:

Dim Report As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Try
Report.Load(G_DirectorioAplic & "\CRFactura1.rpt")
Catch
End Try

Luego este report se los puedes cargar a un crystal report viewer o bien
lanzarlo directamente a impresion.

Sin abusar... pero si dices como en cada caso... gracias.

Un saludo y si teneis mas dudas comentarmelas