IMPRIMIR VÁRIOS EVENTOS

[Mauro Ferreira]

Bom dia!

 

Estou tentando imprimir vários eventos de uma única vez, mas somente o primeiro evento carregado no componente é gerado para impressão.

      if OpenDialog1.Execute then
      begin
          for I := 0 to OpenDialog1.Files.Count-1 do
          begin
              NFE.EventoNFe.LerXML(OpenDialog1.Files);
          end;
          NFE.ImprimirEvento;
      end;

 

Como devo fazer para que todos os eventos carregados no componentes sejam enviados para impressão ao mesmo tempo?

E ainda é possível imprimir várias NFe e vários Eventos ao mesmo tempo?(Gerando apenas em um preview).

Obrigado!

Editado 2 Julho, 2019 por Mauro Ferreira

[Ricardo Rohde]

if PrintDialog.Execute then
begin
  ACBrNFeDANFERaveCB.MostrarPreview := False;
  ACBrNFeDANFERaveCB.NumCopias      := PrintDialog.Copies;
  ACBrNFeDANFERaveCB.Impressora     := Printer.Printers[Printer.PrinterIndex];
 
  ACBrNFe.NotasFiscais.Clear;
  ACBrNFe.NotasFiscais.LoadFromString(<XML Nota Eletrônica>);
 
  ACBrNFe.EventoNFe.Evento.Clear;
  ACBrNFe.EventoNFe.LerXMLFromString(<XML Evento>);
 
  ACBrNFe.ImprimirEvento;
end;

 

[Mauro Ferreira]

Bom dia!

 

Obrigado Ricardo!

O jeito que você mostrou é bem parecido com o que fiz, mas eu estou usando o FR e estou mandando dar o preview antes de imprimir.

Estou tentando gerar todos os eventos em um único preview antes de imprimir. 

Depois de incluir todos os arquivos (  NFE.EventoNFe.LerXML(OpenDialog1.Files); )  executo nfe.ImprimirEvento; 

Mas somente o último arquivo carregado é mostrado no preview. Eu queria que todos os arquivos que estão carregados no componentes sejam mostrado em tela antes de mandar imprimir.

Sabe se é possível com FR?

 

[Ricardo Rohde]

ACBrNFeDANFERaveCB vc troca pelo Fast... só adaptar...

talvez tenha q dar um .Add