ACBrNFe1.ImprimirEventoPDF esta imprimindo a DANFE

[Flavio Macedo]

Bom dia a todos.

Estou com o seguinte problema:

Quando executo o comando ACBrNFe1.ImprimirEventoPDF ele esta gerando a danfe e não a impressão do evento.

O código esta assim:

   ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.Configuracoes.WebServices.Visualizar := True;
    ACBrNFeDANFEFR1.PathPDF :=  '\DanfeSaida';
    ACBrNFe1.Configuracoes.Arquivos.PathEvento :=  '\xmlSaida\eventos\';
    ACBrNFe1.Configuracoes.Arquivos.PathInu := '\xmlSaida\NFe_inu\';

    ACBrNFe1.DANFE.NomeDocumento :=   'xxx123-canc.pdf';

    ACBrNFe1.NotasFiscais.LoadFromString(Dm_Faturamento.Qry02L090NFE.AsString);     // Esta variavel tem o xml da nota

    ACBrNFe1.EventoNFe.idLote := 1;
    with ACBrNFe1.EventoNFe.Evento.Add do
    begin
      infEvento.dhEvento := now;
      infEvento.tpEvento := teCancelamento;
      infEvento.detEvento.xJust := 'Erro de Informacao';
    end;

    ACBrNFe1.EnviarEvento(1);    // Recupero o evento e o xml esta correto

  ACBrNFe1.EventoNFe.LerXMLFromString(Dm_Faturamento.Qry02L090evento.AsString);   // Esta variavel tem o xml do evento e verifico que esta correto
  ACBrNFe1.ImprimirEventoPDF;

 

Se alguem puder me ajudar com o que esta errado eu agradeço.

PS: O ACBr esta atualizado.

[BigWings]

Favor não duplicar tópicos.