Porque deja de imprimir, siendo que tiene muchos doc. pend. en la cola ??

[AGAG4]

Buen dia, tengo un problema que me tiene muy preocupado, les platico, tengo una aplicacion de envio de ticket's a miniprinter's Epson TM-U220 , usan winxp como Sistema Operativo principal, y en la miniprinter esta conectado 1 servidor de impresion, todo va bien hasta que se acaba el papel de la miniprinter, se le cambia el papel y deja de imprimir, reviso la cola de impresion en la pc donde mandan los ticket's y veo que tiene muchos docum. pendientes aprox. de 10 a 20 :eek:, le doy Reiniciar Impresión y no hace nada, tengo que eliminarlos de la cola de impresion y al imprimir algo nuevo ya empiezan a salir, que puedo hacer para que se reimpriman los documentos pendientes ????

[carlosgb]

Es p2 de windows

[egostar]

Es p2 de windows

Bueno, mas bien seria así

Son p2 de windows zazzz

Salud OS

Amigo AGAG4, estas imprimiendo con canvas???? o con estas usando algun reporteador ?

[AGAG4]

Mando imprimir el ticket por medio de un archivo de texto atraves de esta función :



function SpoolFile(const FileName, PrinterName: string): Integer;
var
Buffer: record
JobInfo: record // ADDJOB_INFO_1
Path: PChar;
JobID: DWORD;
end;
PathBuffer: array[0..255] of Char;
end;
SizeNeeded: DWORD;
Handle: THandle;
PrtName: string;
ok: Boolean;
begin
// Flush job to printer
PrtName := PrinterName;
if PrtName = '' then
PrtName := Printer.Printers[Printer.PrinterIndex]; // Default printer name
ok := False;
if OpenPrinter(PChar(PrtName), Handle, nil) then
if AddJob(Handle, 1, @Buffer, SizeOf(Buffer), SizeNeeded) then
if CopyFile(PChar(FileName), Buffer.JobInfo.Path, True) then
if ScheduleJob(Handle, Buffer.JobInfo.JobID) then
ok := True;
if not ok then
Result := GetLastError
else
Result := 0;
end;