FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Error com impresora generica de texto
Hola:
Gracias por la colaboración recibida y por leer este mensaje. Mi inconveniente consite en que estoy imprimiendo en un impresosa UNISYS EF4272 la instale como Generica/Solo texto y esta como predeterminada, imprimo una factura con las siguientes instrucciones: Código:
Procedure ImpresionFactura; var F: TextFile; begin AssignFile(F,'COM1'); Rewrite(F); Writeln(F,chr(27)+'!'+chr(65)); Longitud := 5; Cadena := tEmpresa.FieldByName('NOMBRE').AsString; While length(Cadena) < Longitud do Cadena := ' '+Cadena; Writeln(F,StrToOEM(Cadena)); Cadena := tEmpresa.FieldByName('NIT').AsString; While length(Cadena) < Longitud do Cadena := ' '+Cadena; Writeln(F,StrToOEM(Cadena)); Cadena := tEmpresa.FieldByName('DIRECCION').AsString; While length(Cadena) < Longitud do Cadena := ' '+Cadena; Writeln(F,StrToOEM(Cadena)); Cadena := tEmpresa.FieldByName('TELEFONO').AsString; While length(Cadena) < Longitud do Cadena := ' '+Cadena; Writeln(F,StrToOEM(Cadena)); Writeln(F,StrToOEM('Tipo: '+TipoVehiculo+' Placa : '+Placa)); Writeln(F,StrToOEM('Entrada : '+FormatDateTime('dd/mm/yyyy hh:mm:ss',tRegistro.FieldByName('FECHAENTRADA').AsDateTime))); CloseFile(F); end; Realmente no se si me hace falta configurar mi impresión. Gracias nuevamente por su colaboracion. Rogerio |
#2
|
||||
|
||||
Según parece puede ser el código de inicio de impresión que le envías, por qué no revisas este dato.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
Gracias
Muy amable con tu respuestas, la realidad es que es la primera vez que trabajo con impresoras de este tipo y no tengo ni el manual de la impresora, estoy con prueba y error, si me pudieras dar una luz, puesto que ya la entregue y los puse a realizar la tareade imprimir primero la pagina de prueba.
Gracias Rogerio |
|
|
|