imprimir varias notas ao mesmo tempo

[zumbi]

Pessoal, como eu faço para enviar para impressora varias notas?

Deixa eu explicar um pouco mais minha necessidade:

1. eu já imprimir as notas.

2. no final do mês eu quero re-imprimir todas as notas que foram feitas no mês.

Eu não estou conseguindo enviar várias notas ao mesmo tempo.

Hoje eu tenho este código:

ACBrNFe1.NotasFiscais.Clear;

  ACBrNFe1.NotasFiscais.LoadFromFile(qry_print_nfarquivo_xml.AsString);

  if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then

    begin

      ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;

      ACBrNFe1.WebServices.ConsultaDPEC.Executar;

      ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.retDPEC.dhRegDPEC);

    end;

  ACBrNFe1.NotasFiscais.Imprimir;

[André Ferreira de Moraes]

Use várias vezes o comando LoadFromFile.

[zumbi]

Isso, sim... mas toda vez que eu dou um

ACBrNFe1.NotasFiscais.Imprimir;

Ele irá abrir um preview para o usuário mandar imprimir...

ai fica inviavel.

Tem outra forma?

[André Ferreira de Moraes]

Configure o componente para não exibir o preview.

[zumbi]

você teria um exemplo de como eu podria fazer isso?

[zumbi]

Outra coisa, como eu vou selecionar a impressora aqual eu quero que seja impresso as notas?

[André Ferreira de Moraes]

Veja os fontes do ACBrNFeMonitor. Nele vc pode ver como desabilitar o preview e como escolher a impressora desejada.

Os fontes estão em Projetos\ACBrNFeMonitor2

[zumbi]

amigos não sei se tem aglo a ver mas não estou consigindo:

eu estou usando o fastreport

Alterei as seguintes propriedades e mesmo assim aparece a janela do windows para selecionar a impressora.

ACBrNFe1.DANFE.MostrarPreview    := MostraPreview;

  ACBrNFe1.DANFE.Impressora        := Impressora;

  

[zumbi]

Eu acho que identifiquei o problema, se o responsavel pelo componente.

no compenente do DANFEFR eu alterei o seguinte codigo que segue.

procedure TACBrNFeDANFEFR.ImprimirDANFE(NFE: TNFe);

begin

  if PrepareReport(NFE) then

  begin

    if MostrarPreview then

      dmDanfe.frxReport.ShowPreparedReport

    else

      begin

        [b]if Impressora <> '' then

          dmdanfe.frxReport.PrintOptions.Printer := Impressora;

        dmdanfe.frxReport.PrintOptions.ShowDialog := false;[/b]

        dmDanfe.frxReport.Print;

      end;

  end;

end;

[RodrigoFernando]

Em 12/06/2011 at 18:02, André Ferreira de Moraes disse:

Use várias vezes o comando LoadFromFile.

Ola...  caso tenha nf cancelada entre as carregadas, como faço para imprimir a tarja de cancelada somente nela ?

Editado 9 Outubro, 2019 por Rodrigo CRP
faltou palavra