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

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 ????

Es p2 de windows
 

Es p2 de windows

Bueno, mas bien seria así

zazzz

Salud OS

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

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

Código Delphi [-]
 
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;