Foros del Web » Programación para mayores de 30 ;) » .NET »

Problema al imprimir CrystalReport

Estas en el tema de Problema al imprimir CrystalReport en el foro de .NET en Foros del Web. Tengo un problema con el CrystalReport, sucede que he codificado una aplicación para que me liste en un datagrid los documentos que estan pendientes de ...
  #1 (permalink)  
Antiguo 30/03/2012, 12:05
 
Fecha de Ingreso: enero-2010
Mensajes: 6
Antigüedad: 14 años, 2 meses
Puntos: 0
Exclamación Problema al imprimir CrystalReport

Tengo un problema con el CrystalReport, sucede que he codificado una aplicación para que me liste en un datagrid los documentos que estan pendientes de imprimir, y con un timer se valla imprimiendo cada 30 segundos si nadie le da en el boton imprimir. Cuando le das click al boton te abre el crystalReportViewer con toda la información y luego le das imprimir y todo OK. Sin embargo cuando el timer quiere imprimir automaticamente se imprime la plantilla pero sin ningún dato.
El CrystalReport esta enlazado a un DataSet de la aplicación, la cual envio como parametro tanto para mostrar como para imprimir.

Este es el código, tanto del mostrar como del de imprimir:

Sub mostrarReporte(ByVal ds As dsPedidos)
Dim impresion As New detalleSalida
impresion.SetDataSource(ds)
crv.ReportSource = impresion
End Sub

Sub imprimirReporte(ByVal ds As dsPedidos)
Dim impresion As New detalleSalida
impresion.SetDataSource(ds)
impresion.PrintToPrinter(1, False, 1, 1)
End Sub

En que me estoy equivocando??? Porque no imprime correctamente?

Inicialmente probe con este código, pero para imprimir me sale el dialogo de windows para elegir la impresora, cosa que no quiero, ya que la idea es q se imprima automaticamente en la impresora por defecto. Pero de esta forma si imprimia los datos.

Este
Sub imprimirReporte(ByVal ds As dsPedidos)
Dim impresion As New ReportDocument
impresion.SetDataSource(ds)
crv.ReportSource = impresion
crv.PrintReport()
End Sub

Probe tambien cambiando el impresion.PrintToPrinter(1, False, 1, 1) a true, colocar 0,0 .... todas las formas posibles..... sin embargo sigue imprimiendo sin datos.....

Como veran estoy desesperado con encontrar una solución.

Espero puedan reRsponderme pronto. De antemano muchas gracias...!!!

PD. Esta desarrollado en VB.NET 2010
  #2 (permalink)  
Antiguo 03/04/2012, 11:40
Avatar de sebas_20_jv  
Fecha de Ingreso: agosto-2009
Ubicación: Medellin, Colombia
Mensajes: 59
Antigüedad: 14 años, 7 meses
Puntos: 3
Respuesta: Problema al imprimir CrystalReport

Hola Amigo! esta es la forma como yo imprimo los reportes espero te sirva...

//Crea un dataTable
Dim Dt As New DataTable()
//Llena los datos desde una consulta a la BD
Dt = ClsAdo.CargarDataSet()
//Instancio el reporte que voy a cargar
Dim rpt As New IRequisicionesAlmacen()
//Le paso el DataSet lleno al reporte
rpt .SetDataSource(Dt)
//Establezco la impresora por defecto del pc
rpt .PrintOptions.PrinterName = ""
//Si vas a imprimir todas las paginas debes colacar los dos ultimos valores en 0
rpt .PrintToPrinter(1, False, 0, 0)

Eso es todo espero te sirva...

Etiquetas: crystalreport, vb
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:18.