Ir para conteúdo
  • Cadastre-se

dev botao

imprimir varias notas ao mesmo tempo


zumbi
  • Este tópico foi criado há 1634 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link para o comentário
Compartilhar em outros sites

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;

  

Link para o comentário
Compartilhar em outros sites

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;

Link para o comentário
Compartilhar em outros sites

  • 8 anos depois...
  • Este tópico foi criado há 1634 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.