Pero cuando mando a imprimir muchas veces, el Sistema me manda un error:
"Memoria insuficiente" y se Cierra el programa.
Esto ocurre en esta instrucción:
"crOrdenAtencion.RetrieveDataFiles"
El código para mandar a imprimir desde el visual es el siguiente:
CodReservaSeleccionada =frmCajaReserva.lvwExamenes.ListItems(frmCajaReser va.lvwExamenes.SelectedItem.Index).Tag
crOrdenAtencion.Connect = rdoConexion.Conexion.Connect
crOrdenAtencion.ReportFileName = XPERTREPORTECAJA & "caja_rptetiquetaRadiologia.rpt"
crOrdenAtencion.RetrieveDataFiles
crOrdenAtencion.WindowTitle = "Orden de Atención"
crOrdenAtencion.Destination = crptToPrinter
crOrdenAtencion.WindowState = crptNormal
crOrdenAtencion.RetrieveStoredProcParams
crOrdenAtencion.StoredProcParam(0) = CodReservaSeleccionada
crOrdenAtencion.StoredProcParam(1) = CodUsuario
crOrdenAtencion.StoredProcParam(2) = objConstantes.cConsulta
crOrdenAtencion.DiscardSavedData = True
crOrdenAtencion.PrinterDriver = IMPRESORARECIBODRIVERS
crOrdenAtencion.PrinterName = IMPRESORARECIBONOMBRE
crOrdenAtencion.PrinterPort = IMPRESORARECIBOPUERTO
crOrdenAtencion.Action = 1
Existe una propieda, así como el retrieve que carga los datos me imagino en memoria, otra función que libere memoria.
Estoy urgido con este problema.
Me podrían ayudar.
Que estén bien.
Saludos
