Erro BBCancel ao Imprimir ou Gerar PDF

[Isael Faria Junior]

Boa Noite Pessoal,

Estou fazendo o seguinte metodo para gerar um PDF.

procedure TFormValidadorNfe.brnGerarPDFClick(Sender: TObject);
begin
  OpenDialog.Title := 'Selecione a NFE';
  OpenDialog.DefaultExt := '*-nfe.XML';
  OpenDialog.Filter := 'Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
  OpenDialog.InitialDir := pPathEnviado;

procedure TFormValidadorNfe.brnGerarPDFClick(Sender: TObject);
begin
  OpenDialog.Title := 'Selecione a NFE';
  OpenDialog.DefaultExt := '*-nfe.XML';
  OpenDialog.Filter := 'Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
  OpenDialog.InitialDir := pPathEnviado;

  if OpenDialog.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.DANFE.Logo := pPathLogo+'\'+pNomeLogo;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog.FileName,False);
    ACBrNFeDANFeRL1.PathPDF :=  pPathPDF+'\';
    ACBrNFe1.NotasFiscais.ImprimirPDF;
  end;
end;

Porem.,quando mando executar, apresenta o seguinte erro

Estou fazendo a seguinte carga de variáveis,

with ACBrNFe1.Configuracoes.WebServices do
  begin
   UF         := pUF;
   Ambiente   := StrToTpAmb(Ok,IntToStr(StrToInt(pTipoAmbiente)));
   Visualizar := False;
  end;

  with ACBrNFe1.Configuracoes.Geral do
  begin
   Salvar           := True;
  end;

 

Alguém, saberia me ajudar com este problema ? Pois, só falta isso, para o ,,meu projeto estár ok.

Outro detalhe, e que esse erro, só da na primeira vez, que tento executar a função, na segunda, não da erro.

Grato.

[Juliomar Marchetti]

Bom dia

favor efetuar testes com o demo do nf-e se ocorre o mesmo!

[Isael Faria Junior]

No demo não apresenta o mesmo erro.

Mais estou fazendo o mesmo metodo, que está no demo.

 

[Juliomar Marchetti]

Bom então tu tem fontes seus que está interferindo no código do componente!

reveja seus fontes do seu projeto!