Error el Imprimir en Crystal Report 11
Publicado por Maximiliano Dominguez (1 intervención) el 15/12/2010 17:46:09
El problema esta con el collated, dejo el código y abajo explico mejor el problema.
Set crpRep = crpAPP.OpenReport(App.Path & "\report\clientes_facturas.rpt")
crpRep.ParameterFields(1).EnableMultipleValues = True
If varDiscrimina = 1 Then
VarImpresora = IniDB.getValue("Impresoras", "Multi_A")
Else
VarImpresora = IniDB.getValue("Impresoras", "Multi_B")
End If
' Establece la impresora que se utilizará para imprimir
For Each Prt In Printers
If Prt.DeviceName = VarImpresora Then
Set Printer = Prt
crpRep.SelectPrinter Prt.DriverName, Prt.DeviceName, Prt.Port
End If
Next
For i = 1 To e
crpRep.ParameterFields(1).AddCurrentValue mtzFacturas(1, i)
Next i
crpRep.PrintOut False, varTCopias, False
Si elimino el false en collared imprime bien
crpRep.PrintOut False, varTCopias, true
Alquien puede saber que puede ser lo que esta ocurriendo?
Set crpRep = crpAPP.OpenReport(App.Path & "\report\clientes_facturas.rpt")
crpRep.ParameterFields(1).EnableMultipleValues = True
If varDiscrimina = 1 Then
VarImpresora = IniDB.getValue("Impresoras", "Multi_A")
Else
VarImpresora = IniDB.getValue("Impresoras", "Multi_B")
End If
' Establece la impresora que se utilizará para imprimir
For Each Prt In Printers
If Prt.DeviceName = VarImpresora Then
Set Printer = Prt
crpRep.SelectPrinter Prt.DriverName, Prt.DeviceName, Prt.Port
End If
Next
For i = 1 To e
crpRep.ParameterFields(1).AddCurrentValue mtzFacturas(1, i)
Next i
crpRep.PrintOut False, varTCopias, False
Si elimino el false en collared imprime bien
crpRep.PrintOut False, varTCopias, true
Alquien puede saber que puede ser lo que esta ocurriendo?
Valora esta pregunta
0