Foros Club Delphi - 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;

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