'peta' el spoolsv.exe al lanzar a imprimir quickReport

[[Lepe]]

La verdad es que no tengo ni idea, quizás dando más datos se nos ocurra algo.

Has intentado imprimir en otra impresora?, es matricial por casualidad?, imprimes gráficos ? uff, no sé es tirar piedras al cielo

¿Puedes poner el código que usas para el boton imprimir? base de datos, motor de BBDD usas, y el windows... que en principio será el XP.

Más bien creo que

[manolop]

Intento imprimir en una impresora laser que esta en red, utilizo Delphi 5, Interbase 6, quickreport 3 que viene con delphi 5. He intentado imprimir desde otro ordenador y nada, no le he puesto codigo en principio pues como el preview ya incorpora los botones de imprimir intentaba utilizar estos. Despues he intentado mandar el quickreport a imprimir haciendo quickreport1.print pero tb da error, aparece una barra de estado como que esta enviado a imprimir y a continuacion da el error de "spoolsv.exe a detectado un error y debe cerrarse". Realmente estoy desesperado pues estoy casi un mes con (si me lo permites) este puto error que me esta consumiendo y no se como solucionarlo. Por favor pideme cualquier informacion que creas oportuna que te la mando, muchas gracias por el interes.

[manolop]

perdona te pongo mas cosas:

- es Windows XP
-no tengo graficos ni parecido sino solo texto que obtendo de un query a un store procedure

te añado aqui el codigo con el que invoco al formulario que contine el quickreport:

procedure TFPrincipal.General1Click(Sender: TObject);
var
fparam:TFIntroParametros;
finforme:TFInformeIncentivos;
fini,ffin:TDateTime;
begin
fparam:=TFIntroParametros.crea_fecha(FPrincipal);
fparam.ShowModal;
if(fparam.obtener_seccion<>'-1')then
begin
fini:= fparam.obtener_inicio;
ffin:=fparam.obtener_fin;
finforme:=TFInformeIncentivos.crear(FPrincipal,fini,ffin);
finforme.QuickRep1.Page.Orientation:=poLandscape;
finforme.QuickRep1.Preview;

end;
end;

El TFIntroParametros.crea_fecha(FPrincipal) es un formulario que utilizo para pedir parametros que para este caso son la fecha inicio y la fecha fin. He de decir por si no lo comente que el preview si sale bien. Saludos

[[Lepe]]

Código Delphi [-]
procedure TFPrincipal.General1Click(Sender: TObject);
var
fparam:TFIntroParametros;
finforme:TFInformeIncentivos;
fini,ffin:TDateTime;
begin
  fparam:=TFIntroParametros.crea_fecha(FPrincipal);
  fparam.ShowModal;
  if(fparam.obtener_seccion<>'-1')then
  begin
    fini:= fparam.obtener_inicio;
    ffin:=fparam.obtener_fin;
    finforme:=TFInformeIncentivos.crear(nil,fini,ffin);
    finforme.QuickRep1.Page.Orientation:=poLandscape;
    finforme.QuickRep1.PreviewModal;

    freeandnil(finforme);
  end;
end;

He hecho 2 modificaciones, al parecer, TFInformeIncentivos tiene como parametros en el constructor, el Aowner, y las dos fechas. Yo he puesto el Aowner (dueño) a nil, con lo cual estoy diciendo que nadie se encargue de destruir ese objeto, que lo hago yo mismo, en el comando freeandnil.

Tambien he puesto PreviewModal, para que la ejecución de esa ventana se pare en esa linea, y justo cuando se cierre la presentación preliminar, se libere la ventana y lógicamente el informe.

Con esto debe rular de miedo.

Ese query, cuando los abres y cierras?

PD: Por cierto, de que BBDD estamos hablando y qué método de acceso, BDE, ADO...¿?

Un saludo

[manolop]

Uso Interbase 6 y el modo de acceso...BDE pues utilizo los componentes de interbase, IBQuery,IBDataSet.....

Antes de probar lo que me has enviado he de decir una cosa, probando a instalar una impresora en mi equipo (pues todas son en red), he comprobado que si imprime simplemente con el boton de imprimir de quickreport, por lo que el problema parece ser al imprimir en red, aunque esto deberia tratarlo el propio Operativo, no?. Ya te cuento como va tu solucion, muchisimas gracias por tu seguro preciado tiempo, saludos.

[[Lepe]]

A que es la maldición de la red????

Supongo que ya lo has probado, si no, ve a las propiedades de esa impresora y en el apartado de opciones avanzadas, cambiale el método de imprimir:

- Imprimir de inmediato
- Imprimir directamente en la impresora.

Y por supuesto decirle que "siempre está disponible". Prueba con todos los métodos a ver si hay suerte.

Prueba a abrir el entorno de red, y mediante él, acceder hasta las propiedades de esa impresora en red, despues, envia a imprimir algo desde tu programa; se trata de que windows "conecte" con esa impresora justo antes de imprimir, ya que por defecto, en el explorador de windows, enumera los recursos compartidos, pero no comprueba que estan activos hasta que le das un par de clics.

Si todo esto falla, me rindo y no te mareo más . Digo yo que tocando todos los temas, alguno de ellos será el fallo no?