David
04 de Diciembre del 2008

Hola,

Estoy intentando imprimir un informe realizado con crystal reports 2008 directamente por una impresora pero no soy capaz. Lo máximo que he conseguido, es que me salga el cuadro de dialogo para elegir la impresora y que así se imprima pero necesito, que se imprima sin el cuadro de dialogo.

Antes, con el VB6 y crystal report 7 se hacía así:

with crystalreport
.ReportFileName = RutaReport
.Destination = crptToPrinter
.SelectionFormula = ""
.PrintReport
end with


Saludos y gracias.

David
04 de Diciembre del 2008

Ya lo he conseguido.

Dim ImprimirReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument

ImprimirReport.Load(InformeRpt)
ImprimirReport.RecordSelectionFormula = "" 'El where
ImprimirReport.PrintOptions.PrinterName = Impresora
ImprimirReport.PrintToPrinter(1, False, 1, 0)


Saludos.