EINoutERROR en Delphi

[Skey]

Hola, ocupo que me ayuden en es Sig. problema hize un sistmema de casas de cambios, el cual funcionaba bien mandaba imprimir directo al puerto LTP1 en donde se encuentra la impresora de ticktes, despues de un tiempo me marcaba un error de I/O ERROR 1167, pero en la impresora si emprime otro archivos, ahora cuando compilo y ejecuto el proyecto me manrca este error EINoutERROR "File Access Deneid" me podrian ayudar a solucionar por k antes Si imprimia y No tenia ningun problema

[[enecumene]]

Hola, ¿intentaste re-instalar el driver de la impresora?, ¿cómo mandas a imprimir?, ¿trabajas con un reporteador o con canvas?.

Saludos.

[Skey]

Mira ya reinstale el drivers pero me sigue marcando error mando imprimir al la impresora de puerto con este codigo, pero me marca el error de AssignFile(Output,'LPT1'); y me dice que acceso denegado al Archivo

Código Delphi [-]
procedure TForm_Canadienses.btn_aceptarClick(Sender: TObject);
VAR
S :STRING;
begin
num_cantidadC.OnExit(Sender);
if (num_cantidadC.Value > 0.0) and (num_cantidadC.Value < 3000.00) and (num_pesosC.Value < 30000.00)then
begin
  guardar(_FOLIOC, num_cantidadC.Value, num_pesosC.Value,'COMPRA', _TCC,Form_Inicio_Sesion.qry_UsuariosNO_USUARIO.Value);
  _FOLIOC := nextFolio('COMPRA');
  lb_folioC.Caption := 'Folio: ' +IntToStr(_FOLIOC);
 {// Impresion del Ticket //
AssignFile(Output,'LPT1');
Rewrite(Output);
Writeln(output,trim(Form_Principal.EmpresaNOMBRE_EMPRESA.Value));
Writeln(output,trim(Form_Principal.EmpresaCALLENO.Value+'  '+Form_Principal.EmpresaCOLONIA.Value));
Writeln(output,trim(Form_Principal.EmpresaCUIDAD.Value+'  '+Form_Principal.EmpresaESTADO.Value));
Writeln(output,trim(Form_Principal.EmpresaRFC.Value+'  '+Form_Principal.EmpresaTELEFONO.Value));
Writeln(output,'');
S := 'Folio:' +IntToStr(_FOLIOC-1)+'    '+DateToStr(Date)+'    '+TimeToStr(Time);
Writeln(output, s);
Writeln(output,'');
s :=hcompra.Caption;
Writeln(output,s);
Writeln(output,'');
s :=num_cantidadC.Value;
Writeln(output,'Cantidad:'+s);
Writeln(output,'');
s :=FloatToStr(_TCC);
Writeln(output,'TC:$  '+S);
Writeln(output,'');
s :=num_pesosC.Value;
Writeln(output,'Pesos:'+s);
Writeln(output,'');
S := Form_Inicio_Sesion.qry_UsuariosNOMBRE_USUARIO.Value;
Writeln(output,'Cajero: '+s);
Writeln(Output,'');
Writeln(Output,'');
Writeln(Output,'');
Writeln(Output,'');
Writeln(Output,'');
Writeln(Output,'');
Reset(Output);
CloseFile(Output);}
//********************************//
end
else
begin
ShowMessage('No se Puede Realizar Esta Operacion');
  num_cantidadC.Clear;
  num_pesosC.Clear;
  num_cantidadC.SetFocus;
end;
 num_cantidadC.SetFocus;

JvValidateEdit3.Text := FloatToStr(getSaldo('EUROS'));
JvValidateEdit4.Text := FloatToStr(getSaldo('DOLARES CANADIENSES'));
JvValidateEdit2.Text:= FloatToStr(getSaldo('DOLARES AMERICANOS'));
JvValidateEdit1.Text := FloatToStr(getSaldo('PESOS M.N.'));
JvValidateEdit5.Text := FloatToStr(getSaldo('YEN'));
JvValidateEdit6.Text := FloatToStr(getSaldo('FRANCO SUIZO'));
JvValidateEdit7.Text:= FloatToStr(getSaldo('LIBRAS ESTERLINAS'));

end;