Jump to content

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Isael Faria Junior

Erro BBCancel ao Imprimir ou Gerar PDF

Recommended Posts

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

Sem título.png

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...