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