NotasFiscais.SaveToPDF

[intelmib]

Prezados amigos.

Eu tenho no acbr

DM.ACBrNFe1.NotasFiscais.SaveToTXT(string_caminho);

e

DM.ACBrNFe1.NotasFiscais.SaveToFile(string_caminho,_boolean_SalvarTXT);

Eu queria salvar um pdf, mais ou menos assim NotasFiscais.SaveToPDF(string_caminho);

Alguem já tem esta modificação feita, ou esta afim de fazer, talvez o acbr tenha e não encontrei tambem.

Eu tenho pronto uma modificação que fiz na procedure enviar email, que envia o XML + PDF por email.

Caso alguem precise desta tambem eu posto.

valeu abraços.

Obrigado.

[Régys Silveira]

Trecho retirado do demo do ACBrNFe2, botão "Gerar PDF":

  OpenDialog1.Title := 'Selecione a NFE';

  OpenDialog1.DefaultExt := '*-nfe.XML';

  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

  ACBrNFe1.NotasFiscais.Clear;

  if OpenDialog1.Execute then

    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);


  // este método vai gerar o pdf no diretório informado em "PathPDF"

  ACBrNFe1.NotasFiscais.ImprimirPDF;

[/code]


O demo possui exemplos de outras rotinas.

[intelmib]

[RESOLVIDO]

Regys.Silveira

você esta certinho.

quando mando este comando ele salvou o pdf no caminho ACBrNFeDANFERave1.PathPDF

muito obrigado amigão

se precisar pode contar comigo

abraços e sucesso!