
29/10/2007, 12:10
|
 | Colaborador | | Fecha de Ingreso: diciembre-2003 Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 21 años, 3 meses Puntos: 53 | |
Re: imprimir reporte de crystal algo así..
Código:
Dim Reporte As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Try
Reporte.FileName = "c:\factura.rpt"
Reporte.ParameterFields(0).CurrentValues.AddValue(NitEmpresa)
Reporte.ParameterFields(1).CurrentValues.AddValue(Serie)
Reporte.ParameterFields(2).CurrentValues.AddValue(Numero)
Reporte.PrintToPrinter(1, False, 0, 0)
Catch ex As Exception
MsgBox(ex.Message)
End Try
un ejemplito..
nos vemos..
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila |