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

[[Lepe]]

perdón por no responder antes, (se me fue la olla)

boton derecho sobre Mi Pc, propiedades, opciones avanzadas, boton de variables de entorno, y usa el botón modificar.

Un saludo

[manolop]

Pues lo siento pero despues de actualizar la variable TEMP y mandar el informe a imprimir con el comando print, no hay manera que me imprima

[[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.