Visualizar varios CTes em apenas um report

[danilozix]

Bom dia pessoal, seria possível mostrar na visualização do report vários conhecimento de transporte de uma vez. Eu fiz de uma maneira que o cliente seleciona os conhecimentos que quer imprimir, quando manda imprimir esta mostrando um report para cada CT-e, o cliente quer que seja parecido com o sistema gratuito do governo, onde os CT-es selecionados ficam em um mesmo report.

Eu estou fazendo dessa maneira:

var dir:String;
    i:integer;
begin
  cdsQconsulta.First;

  while not cdsQconsulta.Eof do
    begin
      if cdsQconsultaselecionado.Value = 1 then
        begin
          dir := dmCte.ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(cdsQconsultaDATA_EMISSAO.Value)+'\'+cdsQconsultaCHAVE_CTE.Value+'-cte.xml';

          if FileExists(dir) then
            begin
              dmCte.ACBrCTe1.Conhecimentos.Clear;
              dmCte.ACBrCTe1.Conhecimentos.LoadFromFile(dir);
              dmCte.ACBrCTe1.Conhecimentos.Items[0].Imprimir;
              dmCte.ACBrCTe1.Conhecimentos.Items[0].ImprimirPDF;
            end
        end;
      cdsQconsulta.Next;
    end;

 

 

 

 

[eliton.sc]

Boa tarde, tente tirar essa linha : 

dmCte.ACBrCTe1.Conhecimentos.Clear;

E mande imprimir para você ver.

[danilozix]

mesmo eu tirando essa linha, ele abre um report e depois o outro, queria q ficasse em apenas um report. 

[eliton.sc]

Esqueci de avisar também, deixe o imprimir assim : dmCte.ACBrCTe1.Conhecimentos.Imprimir;

[danilozix]

Mesmo eu fazendo assim ele abre uma visualização para cada CT-e.

 

 dmCte.ACBrCTe1.Conhecimentos.Clear;
 while not cdsQconsulta.Eof do
    begin
      if cdsQconsultaselecionado.Value = 1 then
        begin
          dir := dmCte.ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(cdsQconsultaDATA_EMISSAO.Value)+'\'+cdsQconsultaCHAVE_CTE.Value+'-cte.xml';

          if FileExists(dir) then
            begin
              dmCte.ACBrCTe1.Conhecimentos.LoadFromFile(dir);
            end
        end;
      cdsQconsulta.Next;
    end;
 dmCte.ACBrCTe1.Conhecimentos.Imprimir;

 

[eliton.sc]

Bom Dia Danilo, cara fazendo isso ai é para imprimir tudo em uma unica impressão. Tente debugar teu projeto ai e veja o que ele esta fazendo. Pois até fiz um teste aqui no projeto da ACBR e deu certo. 

1º Limpe o componente;

2º Adicione a ele as tuas configurações;

3º Adicione os XMLs que queres imprimir;

4º Execute o comando imprimir;

 

Qualquer coisa me chame no Skype : eliton.net / [email protected] 

[danilozix]

De qualquer forma ele gera um para cada Cte, queria q ficasse uma visualização com varias paginas, fiz o teste em cima do componente do Acbr e da a mesma coisa.

 

 

[eliton.sc]

Cara notei que você usa outro componente para imprimir . Eu atualmente utilizo o Fast Report..  E veja com aparece para mim..

[danilozix]

Então eu queria que ficasse assim, eu utilizo o FortesReport deve ser por isso q esta saindo separado. Vou ver se consigo trocar para o Fast report, obrigado pela ajuda eliton.sc