FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
URGENTE!! Impresion ilegible
Hola
Saben estoy haciendo un sistema de ventas para un Restaurant en Delphi 6 + Access 2000. Manejo una impresora de tickets Star SP200 y un CashDrawer conectado a la impresora. En mi PC, la impresion de los tickets salen como yo lo programe, ademas se abre el cajon al finalizar la impresion. Todo bien Sin embargo, lleve una muestra del sistema con el cliente, y al hacer una prueba de la impresion del ticket sale muchos simbolos: puntos,comas,parentesis. Osea ilegible, salen las primeras 2 letras de cada linea y las ultimas 2. En la impresion le mando un codigo de escape para agrandar la letra al doble en los titulos y ahi me pone igualmente caracteres extraños. No utilizo driver, ya que mando la impresion directa al puerto paralelo. Lei el manual de la impresora y cheque que tiene un ROM con 8 switch y que el segundo era para aceptar los CODES CONTROL, lo active, y al probar de nuevo vi que ya salia legible,pero en cada linea impresa, salia otra en blanco y pues me gasta hasta 2 veves y medio la cantidad de papel. Devolvi la configuracion original de la impresora volvi a probar (en mi pc), y funciona tal como yo lo espero. La verdad no se que pueda ser, tal vez la PC del cliente (win98,32MB Ram,pentium 300MHZ). Este el codigo de la impresion. Código:
procedure TfrmPunto.print_Ticket; var str1,str2:string; str3:string[6]; F:Textfile; i:byte; begin AssignFile(F,'LPT1'); rewrite(F); writeln(F,#14); writeln(F,' Gran Pollo'); writeln(F,#15); writeln(F,'**Restaurantes Gran Pollo S.A. de C.V.**'); writeln(F,' R.F.C. RGP-031217-JI8'); writeln(F,' BLVD. Agustin Olachea #449'); writeln(F,' CD. Constitucion, Baja Calif. Sur'); writeln(F,' Tel. 13-2-28-88 Fax 13-2-55-28'); writeln(F,' email: granpollomx@yahoo.com.mx'); writeln(F,'******************************************'); writeln(F,' '+bar.Panels.Items[0].Text); writeln(F,' '+bar.Panels.Items[1].Text); writeln(F,'Venta No. '+inttostr(idventa)+' Hora:'+timetostr(time)); //viene el detalle writeln(F,'******************************************'); for i:=0 to lstVentas.Items.Count-1 do begin str1:=lstVentas.Items[i].SubItems.Strings[2]; rellena(str1,2); str2:=lstVentas.Items[i].SubItems.Strings[0]; rellena(str2,25); str3:=lstVentas.Items[i].SubItems.Strings[3]; writeln(F,str1+' '+str2,format('%8.2f',[strtofloat(str3)])); end; writeln(F,'******************************************'); writeln(F,#14); writeln(F,'Total: $',format('%8.2f',[strtofloat(txttotal.text)])); writeln(F,'Gracias por su compra'); writeln(F,#15); writeln(F,#10,#13); writeln(F,#10,#13); writeln(F,#10,#13); closefile(F); end; {fin print_Ticket}
__________________
No siempre el mas veloz es el que gana la carrera |
|
|
|