Hola, recien he podido retomar este tema.
Sigo con el mismo problema, el programa se me cuelga, y lo debo cerrar forzosamente. He aqui el codigo.
Código Delphi
[-]
AssignFile( Printer, 'LPT1' );
FileMode := fmOpenReadWrite;
try
{$I-} Reset( Printer ); {$I+}
Rewrite( Printer );
Write( Printer, CHR(27) + CHR(64 ) ); <--- aqui se tranca
except
on e:Exception do
begin
ShowMessage('La impresora no responde'+#13+e.Message);
end;
end;
Cualquier ayuda sera bienvenida.
Muchas gracias.
Saludos.
Leo