Como puedo imprimir algo?
Publicado por MelampO (1 intervención) el 27/04/2004 10:56:37
Wenass
Estoy intentado mandar un informe de crystal reports a la impresora, pero parece que se niega a hacerlo. Cuando mando imprimir el documento y lo ejecutos, se queda en un tiempo de espera interminable y nunca llega a imprimir.... alguien puede echarme una mano?
Aqui esta el codigo que utilizo:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
' Ejecuta la consulta a la base de datos
sql.CommandText = "select * from tickets where referencia > 20"
SqlDataAdapter1.Fill(DataSet11)
' Crea el reporte
Dim Rel As New CrystalReport1
' Asocia el conjunto de datos con el reporte
Rel.SetDataSource(DataSet11)
' Asocia el reporte con el Visualizador
vistaInforme.ReportSource = Rel
Rel.PrintOptions.PrinterName = PrinterSettings.InstalledPrinters.Item(0).ToString
Rel.PrintToPrinter(1, False, 0, 0)
End Sub
Si comento la linea en la que envio el informe a la impresora (printToPrinter) todo funciona perfectamente... no se donde puede estar el fallo.
Y si no es con el printToPrinter.... como puedo imprimirlo¿?... he conseguido exportar el informe a PDF o a RTF... pero una vez q lo exporto tampoco tengo ni idea de como imprimirlo.
Muchas gracias.
Estoy intentado mandar un informe de crystal reports a la impresora, pero parece que se niega a hacerlo. Cuando mando imprimir el documento y lo ejecutos, se queda en un tiempo de espera interminable y nunca llega a imprimir.... alguien puede echarme una mano?
Aqui esta el codigo que utilizo:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
' Ejecuta la consulta a la base de datos
sql.CommandText = "select * from tickets where referencia > 20"
SqlDataAdapter1.Fill(DataSet11)
' Crea el reporte
Dim Rel As New CrystalReport1
' Asocia el conjunto de datos con el reporte
Rel.SetDataSource(DataSet11)
' Asocia el reporte con el Visualizador
vistaInforme.ReportSource = Rel
Rel.PrintOptions.PrinterName = PrinterSettings.InstalledPrinters.Item(0).ToString
Rel.PrintToPrinter(1, False, 0, 0)
End Sub
Si comento la linea en la que envio el informe a la impresora (printToPrinter) todo funciona perfectamente... no se donde puede estar el fallo.
Y si no es con el printToPrinter.... como puedo imprimirlo¿?... he conseguido exportar el informe a PDF o a RTF... pero una vez q lo exporto tampoco tengo ni idea de como imprimirlo.
Muchas gracias.
Valora esta pregunta


0