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 :D, les pongo mis líneas de código al mandar a imprimir:

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. :confused:

Gracias por tus comentarios.