Porque la Impresión es SuperLenta en WinXP y en Win98 es Rápida????

[AGAG4]

Uso D6, QReport Prof. 4
Estoy empezando a usar mi aplicación en 1 PC con winxp, todo va bien, pero en ocasiones me reportan que cuando mandan a imprimir un presupuesto que lo tengo creado con QReport, se pone Super Lento a comparación con Win98, tengo 5 PC's trabajando 1 de ellas solo tiene XP y es notorio el cambio, en vez de ir para adelante con un nuevo Sistema Operativo vamos para atras , les pongo mis líneas de código al mandar a imprimir:

Código Delphi [-]
function PrinterDef(NamePrinter:String):Integer;
var
  i:Integer;
begin
  result:= -1;
  {PrintWin9x:='Presupuestos';
  PrintWinNT:='\\Gerencia\Presupuestos';}
  if Printer.Printers.Count>0 then begin
    for I:=0 to Printer.Printers.Count-1 do begin
      ShowMessage(UpperCase(Printer.Printers.Strings[i]));
      //Win9x
      if (UpperCase(NamePrinter) = UpperCase(Copy(Printer.Printers.Strings[i],1,length(NamePrinter)))) and (NamePrinter<>'') then begin
        result:=I;
        break;
      end;
      //WinXP
      if Win32Platform = VER_PLATFORM_WIN32_NT then
        if (UpperCase(Printer.Printers.Strings[i]) = UpperCase(NamePrinter)) then begin
          result:=I;
          break;
        end;
    end;
  end else begin
    MensajesW('No Hay Ninguna Impresora Instalada.','Error',MB_ICONERROR);
    abort;
  end;  
 ........
procedure ImprimirPresupuesto;
begin
  try
 qrRepPresup2.PrinterSettings.PrinterIndex:=PrinterDef(TieneDerechoPC(PCOnLine,Sucursal,'VarPC','LptP  re'));
    //Preparamos QReport para Determinar No. Total de Páginas
    qrRepPresup2.Prepare;
    NPages:=qrRepPresup2.QRPrinter.PageCount;
    qrRepPresup2.Print;
  except
    on E:Exception do
      MensajesW(PChar(E.Message+',Ha ocurrido un Error al Imprimir Presupuesto, es Probable que la Impresora este Fuera de Línea, Pausada ó Apagada, Si Persiste el Problema Reportelo al Departamento de Sistemas.'),'Error en Impresora',MB_ICONERROR);
  end;

Esto Pasa en promedio unas 2 a 4 veces al día, en ocasiones cuando veo que se demora de 3 a 4 mins. para MANDAR a imprimir, mejor cierro la aplicación con CTRL+ALT+SUPR.

Agradezco cualquier sugerencia.

[AGAG4]

QReport Funciona para WinXP ????

[javier7ar]

Mira, yo creo que tu problema de lentitud debe venir por lo que haces antes de imprimir y no por la impresion en si. Yo uso qreport para todas las impresiones y anda joya tanto en winXP como en win98.

que hace "TieneDerechoPC" ??? no es en esa linea en la que se te demora ?? no probaste hacer un debug corriendo en winxp para ver que parte es la que esta lenta ??

[AGAG4]

Yo trabajo en Delphi en una PC con WinXP Prof. SP 2 que es la misma versión que instale en la PC para el programa, y te puedo decir que aqui esta de maravilla no he tenido problemas, es lo más raro que veo, porque el programa se porta lento al momento de imprimir en la PC que instale como cliente y aqui en mi PC donde trabajo con delphi se porta normalmente....

La función que me señalas lo unico que me devuelve es la ruta donde se encuentra la impresora, por ejemplo: \\Servidor\Facturas e incluso al compilar línea por línea no tarda nada al pasar por esa línea de código.

Se me paso comentarles, en la pc con WinXP donde instale mi aplicación como cliente, tiene un Procesador Intel de 2.6 GHZ, 256 MB RAM, 80GB Disco Duro.

Y en las PC's donde tengo instalado win98 en promedio tienen un procesador de 400MHZ, 32 RAM, 4GB DD.

En la informatica todo se puede esperar.

Gracias por tus comentarios.