Impresora de Etiquetas

[pruz]

Hola amigos:

alguien a usado la impresora XPrinter Modelo XP-235B.
Necesito enviar codigo de programacion, para imprimir codigo de barra y texto. Nada ha resultado de lo que he realizado.


si alguien, me puede enviar codigo de ejemplo.
Uso dephi 7,

Gracias.

[lucho6007]

Hola!
¿Esa impresora tiene soporte para código EPL? Si es así podés enviar los comandos con el pass-through y ver qué sale.


Saludos

[pruz]

lucho6007:

No tiene emulador EPL. Pero si tiene emulador (TSPL) y (ESC / POS). Yo probe este ultimo (ESC/POS) y no me funciono.
Pero puede ser que este yo haciendo algo malo.

Me puedes enviar alguno codigo como referencia.


Gracias

[[newtron]]

Asegúrate de tener activo en la impresora la emulación ESC/POS porque igual tienes la TSPL y por eso no te hace caso.


Saludos.

[pruz]

Amigos:

Encontre estos emuladores y ejemplo, pero en formato DLL, pero no tengo Visual Basic, si alguien tiene la plataforma para que indique como migrarlo a Delphi 7.


Adjunto archivo comprimido, sin clave..

Saludos

[pruz]

adjunto ademas el emulador TSPL, tambien en Visula Basic


Saludos

[pruz]

Hola Amigos:

Probe ambos codigo.
Cuando ejecuto los dos codigos, por separado, ambos aparecen en la cola de impresion, pero ninguno sale a la impresora.


Volvi a probar la impresora con los test de prueba que trae y funciona perfecto. Pero con los codigo que ustedes me enviaron nada.

no funciona, seguire probando y cambiare algunos parametros.


Si alguien tiene otra idea?

Saludos
Gracias

[tsk]

¿Cómo instalaste los drivers de la impresora?

Hace tiempo para una impresora ESC/POS en Windows la tuve que instalar como Generic/TextOnly, y de esa forma desde python le mandaba los comandos, usando python-escpos

Ve esta página

https://hackernoon.com/how-to-print-...and-javascript

Por lo tanto es fácil probar usando Node.

También otra cosa, es que en el ejemplo, al final mandan el comando END, si te aparece en la cola de impresión, podrías probar primero añadiendo ese END, en Delphi

Si no te funciona de esta forma podrías tratar de instalar la impresora como Generic/TextOnly, como en su momento yo le hice.

[pruz]

Hola Delphi50jmb



La Variable sPuerto, de que tipo es y que valores debo traspasas

Código Delphi [-]
procedure ImprimeEtiqueta(sPuerto, sNumClie, sDescrip, sComentario: String);
begin
   writeln( sPuerto, 'CLS'); // Limpia el buffers de la impresora
   //writeln( sPuerto, 'BACKUP 220');    // Reversa la etiqueta 40 puntos. Trabaja junto con Backfeed
   //writeln( sPuerto, 'BACKFEED 220');   // Reversa la etiqueta 40 puntos
   writeln( sPuerto, 'DIRECTION 1');
   writeln( sPuerto, 'REFERENCE 1,1');  //posicion inicial
   //writeln( sPuerto, 'SHIFT 140');         // mueve la posision de la etiqueta
   //writeln( sPuerto, 'OFFSET 12.7 mm');
   //writeln( sPuerto, 'GAP 17.62 mm, 17.54 mm');
   writeln( sPuerto, 'TEXT 20,50,"3",0,1,1,' + '"' + 'Numero: ' + sNumClie + '"');
   writeln( sPuerto, 'TEXT 20,80,"2",0,1,1,' + '"' + sDescrip + '"');
   writeln( sPuerto, 'TEXT 20,110,"2",0,1,1,' + '"' + sComentario + '"');
   writeln( sPuerto, 'TEXT 20,200,"1",0,1,1,' + '"' + DateToStr(Date) + space(2) + TimeToStr(Time) + '"');
   writeln( sPuerto, 'PRINT 1');
   //writeln( sPuerto, 'FEED 300');   // Avanza la etiqueta 260 puntos
   //writeln( sPuerto, 'CUT');     // Corta la etiqueta
end;

[pruz]

Ya, mirando un poco de lo suyo y un poco de lo mio llegue a la solucion
les dejo el codigo

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
   MyFile : TextFile;
   NomImpresora :  String;
begin
   NomImpresora := 'etique2.txt';
   AssignFile(MyFile, NomImpresora );
//   reset( MyFile );
   rewrite(MyFile);

   writeln( MyFile, 'SIZE 48.7 mm, 80.1 mm');
   writeln( MyFile, 'DIRECTION 0,0');
   writeln( MyFile, 'REFERENCE 0,0');
   writeln( MyFile, 'OFFSET 0 mm');
   writeln( MyFile, 'SET PEEL OFF');
   writeln( MyFile, 'SET TEAR ON');
   writeln( MyFile, 'CLS');
   writeln( MyFile, 'BARCODE 351,66,"128M",98,0,90,4,8,"!104XP-!09935986215"');
   writeln( MyFile, 'CODEPAGE 1252');
   writeln( MyFile, 'TEXT 248,235,"2",90,1,1,"XP-35986215"');
   writeln( MyFile, 'TEXT 196,220,"1",90,1,1,"Texto de muestra"');
   writeln( MyFile, 'BARCODE 154,69,"128M",114,0,90,3,6,"!104SOL-!0993598!100X125"');
   writeln( MyFile, 'TEXT 35,236,"2",90,1,1,"SOL-3598X125"');
   writeln( MyFile, 'PRINT 1,2');
   writeln( MyFile, '');
   CloseFile( MyFile );


   ShellExecute(0, 'open', ('etiquetas.bat'), nil, nil, SW_SHOW);
   MessageDlg( 'Etiquetas Impresas. Proceso Terminado.' , mtinformation , [mbOk] , 0 );

end;

Muchas gracias a todos por su colaboracion

[navbuoy]

guay, al menos lo has solucionado en poco tiempo