Epson TM-U200D-Alguien posee los código ESC (todos)?

Epson TM-U200D-Alguien posee los código ESC (todos)?

Postby metaldrummer » Wed Sep 05, 2007 9: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:
Image

Saludos
Last edited by metaldrummer on Thu Sep 06, 2007 3:58 am, edited 2 times in total.
[b]David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl[/b]
User avatar
metaldrummer
 
Posts: 113
Joined: Wed Jan 10, 2007 8:43 pm
Location: Coquimbo-Chile

Postby sysctrl2 » 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 "
User avatar
sysctrl2
 
Posts: 1027
Joined: Mon Feb 05, 2007 7:15 pm

Postby metaldrummer » Thu Sep 06, 2007 2: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  Expand view  RUN
#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
[b]David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl[/b]
User avatar
metaldrummer
 
Posts: 113
Joined: Wed Jan 10, 2007 8:43 pm
Location: Coquimbo-Chile

Postby Francisco Horta » Thu Sep 06, 2007 2: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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Postby metaldrummer » Thu Sep 06, 2007 2: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
[b]David Lagos S.
Coquimbo-Chile
www.wificafe.cl
webmaster@wificafe.cl[/b]
User avatar
metaldrummer
 
Posts: 113
Joined: Wed Jan 10, 2007 8:43 pm
Location: Coquimbo-Chile

Postby George » Thu Sep 06, 2007 4:21 pm

Metal,

Esto me funciona perfecto:
Code: Select all  Expand view  RUN
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
George
 
Posts: 726
Joined: Tue Oct 18, 2005 6:49 pm

Postby jcaro » Thu Sep 06, 2007 4: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 ) :lol:

Saludos,
Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl
jcaro
 
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm

Postby ricardog » Thu Sep 06, 2007 7: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
ricardog
 
Posts: 158
Joined: Tue Oct 11, 2005 3:10 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 47 guests