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);
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;