Visual Basic y Crystal: impresión directa

[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