Visual Basic y Crystal: impresión directa

[joja_2]

hola

estoy realizando una aplicación de facturacion. En ella necesito una herramienta que me permita especificar un rango de facturas y mandarlas a imprimir directamente, sin yo verlas.
Para ello he implementado un report con Crystal.
Como puedo hacerlo?

gracias

[jrp01]

Ya probaste con REPORT.PrintOut (true)

Saludos

[joja_2]

la verdad es que pongo printout a false y me lo manda directamente a imprimir, pero no me saca los datos, digamos que me imprime las etiquetas de los campos de la base de datos.

gracias

[jrp01]

Tal vez por que mandas primero el reporte y luego carga los datos. puedes postear tu codigo para ayudarte mas.

[joja_2]

'ASIGNAMOS EL INFORME A IMPRIMIR
Set CrAppl = New CRAXDDRT.Application
Set CrRep = CrAppl.OpenReport(App.Path & "\informes\IFactura.rpt")

'RECORRER LAS FACTURAS SELECCIONADAS
For i = 1 To ListFacturas.ListItems.Count

If ListFacturas.ListItems(i).Selected Then

'PARA CADA FACTURA SELECCIONADA, CARGAR EN EL VIEWER E IMPRIMIR DIRECTAMENTE 3 EJEMPLARES
sql = "select ...."

CrRep.SQLQueryString = sql

'impresión directa
CrRep.PaperSource = crPRBinManual

For j = 1 To 3

If j = 1 Then
CrRep.ParameterFields(1).AddCurrentValue "CLIENTE"
ElseIf j = 2 Then
CrRep.ParameterFields(1).AddCurrentValue "NUMERICO"
ElseIf j = 3 Then
CrRep.ParameterFields(1).AddCurrentValue "CONTABILIDAD"
End If

CrRep.SQLQueryString = sql
CrRep.PrintOut False

Next

End If

...

gracias

[joja_2]

subo el post para ver si me solucionais el tema que sigo bloqueado

gracias

[jrp01]

Tenias otro post ya lo viste?

[joja_2]

en él utilizabas el control crviewer, yo creo que en esto no debería utilizarlo ya que solo necesito especificar un rango de facturas y mandar a imprimir.

gracias

[jrp01]

Pues siemplemente omite la asignacion

CRViewer1.ReportSource = crxReport Esto lo eliminas
y pones crxReport.PrintOut (true)


Saludos