[rogeriobeltran]

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:

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;

Lo probe en mi equipo que tiene instalado windows 2000 y me imprime sin problemas. Instale el programa en un equipo con windows98 e instale la impresora de la misma forma, Generica / solo texto, y no imprime, pero si realizo la impresion de prueba la efectua y de ahi en adelante me sirve la impresión. El programa lo tengo en Delphi 5 y con Firebird.

Realmente no se si me hace falta configurar mi impresión.

Gracias nuevamente por su colaboracion.

Rogerio