Problema Impresión de Tickets

[Sick boy]

Yo no me acabo de tomar un café pero estaba pensando "Qué cabrones los chicos de Epson, tienen un driver tan bueno y ni siquiera son capaces de ponerlo en la caja, ¿será para que sus impresoras funcionen peor?"

No lo pienses, coje el numero de telefono que viene en la caja y se lo preguntas.

Yo lo hice hace ya unos años y me dijeron que sus impresoras son OEM, y que las venden ha PROFESIONALES, los cuales SE SUPONE que deben de tener el driver para instalarlas. Solo hay una impresora que venden al publico (EPSON TM-L90 BOX) y que si lleva drivers.

Tras un buen rato insistiendo en que me dejaran poner los drivers en el CD de instalación (lo cual tampoco lo permiten) y de hablar con media plantilla, llegamos al acuerdo de que: yo pongo lo que quiera en el CD, y si les molesta me lo indican y lo quito. Vamos, que me hago el loco, como si no lo supiera.

Tampoco llevan cable, que cabrones, que poco les costaria, verdad??

Veo que aun dudas de que la opción correcta es instalar el driver adecuado.

Ah, que nadie piense que con el "generico solo texto" no se puede imprimir, que si que se puede, pero no es mejor.

Suerte

[Casimiro Notevi]

Hoy en día, casi todos los "aparatos" vienen sin nada, vas a la página web del fabricante y desde allí te descargas el manual, los drivers y toda la información que necesites. Es una manera de ahorrarse costes y poder ofrecer sus productos más baratos para poder competir con el resto de fabricantes.
Imagina preparar 1 millón de cds de drivers más 1 millón de manuales de usuario... ¿cuánto costaría eso?, pues compáralo con poner un par de ficheros en una página web y quien lo necesite que lo descargue.

[[AzidRain]]

Yo estoy a punto de iniciar un proyecto que incluira estas impresoras y lo había pensado mucho por el problema que tiene nuestro amigo el cual me resulta una completa ironía: Es mas díficil imprimir de la forma más simple.

Por ahí vi que te recomendaro usar secuencias de escape, lo cual me parece es tu mejor solución pero tienes que considerar que:

- con el Writeln de Delphi las secuencias de escape (#27) se descartan antes de llegar a la impresora (más bien lo hace windows) por lo que no importa que tantas secuencias mandes antes del texto, a la impresora solo llega el texto "pelón".

-Tendrás que imprimir directamente a la impresora, pero sin pasar por Windows

Lo puedes hacer de esta forma:

Código Delphi [-]

Procedure PWrite(s:String);
var PT :Integer;
     P   :Pchar;
Begin
   PT := FileOpen('lpt1',fmOpenWrite ); // Abrimos la impresora como un     archivo
   P   := PChar( s ); //convertimos la  cadena a un PChar
   FileWrite(PT,P^,length( s )); //escribimos a la impresora
   FileClose(PT);//cerrar el archivo de la impresora
end;

Uso:

// ..
// Definimos algunas constantes para las secuencias  de escape
const pNewLn    = #10 +#13;      // Salto de linea
         pBold       = #27 + 'E';       // Activar negrita
        pBoldOff     = #27 + 'F';      //Desactivar negrita
        pDouble     = #27 + 'W' +'1';  //Activar doble Ancho
        pDoubleOff = #27 + 'W' +'0'; //Desactivar doble ancho
        pFormSize  = #27 + 'C' +#10;//Definir tamaño de la hoja en líneas (en este caso es 10, pero se puede cambiar por el que necesitemos
        pFF= #12; // Salto de página

begin
  PWrite( pForm );
  PWrite( pBold + 'Pagina 1 ' +pBoldOff);
end;

Es un código muy simple pero de esta forma las secuencias de escape si son pasadas tal cual a la impresora. Ojo, como no estamos usando Windows para ello, no tenemos ninguna función del driver disponible por lo que tendremos que checar por nuestra cuenta si hay papel, tinta, etc. Pero para el caso de impresoras de ticket no es tan dificil.

La colocación de coordenadas la puedes usar con la secuencia de escape correspondiente (no me acuerdo ahorita cual es) hay una para mover la cabeza en X y otra en Y, tambien puedes simular esto enviando saltos de línea para las Y e imprimiendo espacios en blanco para las X.

A mi me funcionó de maravilla y para este tipo de impresión se me hace la forma mas sencilla. Además no importa si tienes el driver o no, de hecho funciona aunque no tengas ninguno instalado en Windows.

Ojala te sirva

[federicorl]

lo hice como indicaste con las secuencias de escape y funciono perfecto, en dos pcs, cuando trato en una tercera no funciona y es la misma impresora!, a que crees que se deba?

lo que sucede es que en esta nueva PC esta tiene WXP Profesional como la anterior, si empieza a imprimir pero no hace los saltos de pagina, lo curioso es que es la misma impresora, no el mismo modelo, la misma impresora, solo cambio el cable de una Pc a La otra, lo unico diferente es que esta pc no tiene impresoras instaladas, ya instale incluso una Impresora solo para probar si le faltaban los drivers (instale los drivers de la fx880 de epson , no la impresora real) y el problema persiste

te doy un ejemplo del codigo

const pNewLn = #10 +#13; // Salto de linea
pBold = #27 + 'E'; // Activar negrita
pBoldOff = #27 + 'F'; //Desactivar negrita
begin
PWrite(pNewLn );
PWrite(pNewLn );
PWrite(' hola como estas');
PWrite(pNewLn );
PWrite(pNewLn );
PWrite(' Preparando Prueba de Impresion');
PWrite(pNewLn );
PWrite(pNewLn );

Antes cree el procedure Pwrite

Procedure TForm1.PWrite(s:String);
var PT :Integer;
P :Pchar;
Begin
PT := FileOpen('lpt1',fmOpenWrite ); // Abrimos la impresora como un archivo
P := PChar( s ); //convertimos la cadena a un PChar
FileWrite(PT,P^,length( s )); //escribimos a la impresora
FileClose(PT);//cerrar el archivo de la impresora
end;

ojala me puedas ayudar