Posts: 113

Joined: Wed Jan 10, 2007 08:43 PM

Epson TM-U200D-Alguien posee los código ESC (todos)?
Posted: Wed Sep 05, 2007 09:22 PM

Hola:
Alguien que haya o esté actualmente utilizando la Epson TM-U200D a través de la TDosPrn?.
Es que cuando accedo a ella me arroja solamente símbolos raros.
Utilizo los comandos que trae por defecto la tdosprn.
Debo instalar algún driver en especial en windows xp?.
Sin instalar nada, igual responde cuando mando una impresión.
No consigo que imprima nada coherente

Esto es lo que imprime:

Saludos

David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Epson TM-U200D-Alguien posee los código ESC (todos)?
Posted: Wed Sep 05, 2007 11:08 PM

Hola , intenta asi,

define INICIAPRN '27,64'

define SELECTDRAF '27,120,48'

oPrn := TDosPrn():New( "lpt1" ) //iniciamos el objeto tdosprn.
oPrn:command(INICIAPRN)
oPrn:command(SELECTDRAF)

*** tu impresion

oPrn:end()

saludos..

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

metaldrummer

Posts: 113

Joined: Wed Jan 10, 2007 08:43 PM

Epson TM-U200D-Alguien posee los código ESC (todos)?
Posted: Thu Sep 06, 2007 02:40 AM

Gracias Master. No resultó.
En mi caso la impresora es serial, aunque para eso la puedo redirigir o colocar oPrn:=TDosPrn():New( "COM1").
Me imprime algo así:
???????????Ç??ÇÇÇ??????Ç??ÇÇÇ???Ç??Ç????

Estoy haciéndolo de esta forma:

Code: Select all Collapse

#define InitTMU200D "27,64"
#define SelectDRAFT "27,120,48"

FUNCTION PrintNotaVenta( nIdNotadeVenta, cPuertoImpresion, nTotal)
   LOCAL oPrn, cIdNotadeventa, cTotal

   cIdNotadeVenta:=Transform( nIdNotadeVenta, "@E 9,999,999,999")
   oPrn:=TDosPrn():New(cPuertoImpresion)
   //oPrn:StartPage()
   oPrn:Command( InitTMU200D)
   oPrn:Command( SelectDRAFT)
   oPrn:Say( 0,0, "N. Venta #"+cIdNotadeVenta)
   oPrn:End( .T., .F.)

RETURN NIL

Si alguien me puede ayudar, solamente me falta esto para poder terminar este módulo.
Mil gracias

David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Epson TM-U200D-Alguien posee los código ESC (todos)?
Posted: Thu Sep 06, 2007 02:24 PM

metaldrummer, (que nombre tan raro)
yo uso una tmt88ii en com1 con tdosprn y me va bien, ya verificaste el cable serial? yo di de alta en windows la impresora generic text y ahi le asigen el puerto com1 y la puse por defaul y me va bien, como lo estas haciendo? ya que tu programa lo hace bien
salu2
paco

____________________

Paco

metaldrummer

Posts: 113

Joined: Wed Jan 10, 2007 08:43 PM

Epson TM-U200D-Alguien posee los código ESC (todos)?
Posted: Thu Sep 06, 2007 02:40 PM

Paco:
No es el cable serial ya que mi cliente la usa diariamente con un programa hecho en clipper.
Laverdad que yo no cree ese programa.
Voy a ver si obtengo los fuentes.
Si sabes de algo más ya que ni siquiera epson tiene el manual con los comandos.
Saludos

David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl

George

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

Epson TM-U200D-Alguien posee los código ESC (todos)?
Posted: Thu Sep 06, 2007 04:21 PM

Metal,

Esto me funciona perfecto:

Code: Select all Collapse

oPrn := TDosPrn():New("LPT1",3)

// Aqui va mi codigo.......

// Initializa el Printer
    oPrn:Command("27 64")

   //Limpiar el Buffer
   oPrn:Command("24")

   //Define Altura de Pagina
   //?? CHR(27) + CHR(67) + CHR(22)  // en numero de lineas
   //oPrn:Command("27, 67, 48, 3")  // En Pulgadas
   //oPrn:Command("27, 67, 25")  // En No. de lineas

   oPrn:StartPage()

  // Seleccionar 10 CPI For Epson
  //oPrn:Command("27,80")


  // Seleccionar double strike For Epson
  //oPrn:Command("27,71")

  // Seleccionar 12 CPI For Epson
  oPrn:Command("27,77")

  oPrn:Write(cCompany)  // Nombre de la compañia

  // Cancelar double strike For Epson
  //oPrn:Command("27,72")

   oPrn:NewLine()
   oPrn:Write(cAddress)

   oPrn:NewLine()
   oPrn:Write(cPhone)

  oPrn:End()

Trabajo con xBuilder (xHarbour) + FWH

Saludos

George

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

Epson TM-U200D-Alguien posee los código ESC (todos)?
Posted: Thu Sep 06, 2007 04:36 PM

Compatriota :

Si es una impresora serial, tu problema es la velocidad del puerto,
debes setear la velocidad con

mode com1:9600,n,8,1

por eso te salen esos caracteres raros. No esta seteada la
velocidad de la impresora,

Generalmente yo utilizo un bat con estos datos y funciona OK.

( Feliz mes de la patria - tiki- tiki- tiii )

Saludos,

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

ricardog

Posts: 158

Joined: Tue Oct 11, 2005 03:10 PM

Epson TM-U200D-Alguien posee los código ESC (todos)?
Posted: Thu Sep 06, 2007 07:39 PM

Por si te sirve:
En el acceso directo corre un bat

      mode com1:9600,n,8,1
      mode lpt1=com1
      pos.exe

Y en tu prg de impresion

              oRep:=TdosPrg():New("LPT1")
              //Especiales
              oRep:Say(00,00,CHR(27)+"@")                  // INDICA QUE SE INICIA CONFIGURACION
              oRep:Say(00,00,CHR(27)+"t"+CHR(0))
              oRep:Say(00,00,CHR(27)+"c0"+CHR(2))          // ACTIVA RECEIVE  COMO HOJA(TICKET)
              oRep:Say(00,00,CHR(27)+"z"+CHR(0))
              //Inicia de la impresion del Fondo
              oRep:Say(n,00,Padc("REGISTRO DE FONDO INICIAL",38,"*"))

              oRep ..............
              //Termina la impresion del Fondo
              n++
              cCmd:=Fechas(Date())+"  "+Time()+"    "+Str(oSys:TiendaSys())+"    "
              oRep:Say(n,00,cCmd )
              //Termina de Imprimir el Fondo
              oRep:Say(00,00,Chr(27) + "d") //+ Chr(13))   // estas lineas
              oRep:Say(00,00,Chr(27) + "i") //+ Chr(13))   // cortan el papel
              oRep:End()

*** Espero que te sirva
SALUDOS

FiveTech Support Forums

define INICIAPRN '27,64'

define SELECTDRAF '27,120,48'

Continue the discussion