Imprimir 2 Cópias NFCe

[Valdir Dill]

Boa tarde,

Quero imprimir 2 ou mais cópias de um danfe de NFCe, mas não consigo. 

Seto ACBrNFeDANFCeFortes1.NumCopias := 2, mas não adianta, sempre imprime apenas 1 via. Fiz teste com preview=true para imprimir na tela e também false, para imprimir na impressora. Mas sempre gera apenas uma impressão. Posso inclusive colocar mais cópias (3, 4,..), sempre imprime uma só

Alguma dica?

 

Obrigado.

[Juliomar Marchetti]

Isso quando manda impressão direta ou quando faz pelo caixa de dialogo da impressora.

lembro de alguém ter relatado isso mas parece ter sido resolvido.

[Valdir Dill]

Sim, eu vi um post no fórum, mas lá naquele relato o problema era um pouco diferente, ou seja, setava-se para 2 a quantidade e imprimia 4 (o dobro).

No meu caso alimento direto, sem printDialog.

Exemplo:
if VImprimindoOffLine then
 ACBrNFeDANFCeFortes1.NumCopias := 2
else
 ACBrNFeDANFCeFortes1.NumCopias := 1;

Eu debuguei e lá no ACBrDANFCeFortesFr.pas, a linha RLPrinter.Copies := NumCopias está alimentado certo, ou seja, RLPrinter.Copies fica com valor 2, mas mesmo assim, imprime só uma cópia.

Obrigado.

 

 

[Juliomar Marchetti]

o fortes foi atualizado recentemente e recompilado ele e depois o acbr?

[carlosinfoteen]

No enviar você não imprime enviando assim

  //------IdLote--------/true- para imprimir /      true se for apenas uma NFE/NFCE(modo Sincrono)---

if ACBrNFe.Enviar(1, False,True) then  //-----Se enviou  -> Aqui não imprime ao enviar, imprime abaixo

begin

               ACBrNFe.DANFE.ViaConsumidor := True;   //------Imprime via Cliente---------
               ACBrNFe.NotasFiscais[0].Imprimir;
               //------Imprime via estabelecimento---------

               ACBrNFe.DANFE.ViaConsumidor := false;   //------Imprime via estabelecimento---------
               ACBrNFe.NotasFiscais[0].Imprimir;
               //------Imprime via estabelecimento---------

end;

 

agora se você está querendo imprimir N copias sem ter relação com via cliente/via estabelecimento, pode criar alguma variável de controle na tua aplicação inteira e armazenar a qtd de copias e aplicar um loop com o comando imprimir

 

for i=1 to qtdCopias do

begin

   ACBrNFe.NotasFiscais[0].Imprimir;

end;

 

 

[Valdir Dill]

22 minutos atrás, Juliomar Marchetti disse:

o fortes foi atualizado recentemente e recompilado ele e depois o acbr?

Sim, ambos atualizados e recompilados.

Testei com Fast (TACBrNFeDANFEFRNFCe) e acontece a mesma situação.

Mas beleza, vou fuçar mais aqui e ver se encontro uma solução.

Obrigado.

[carlosinfoteen]

3 minutos atrás, valdirdill disse:

Sim, ambos atualizados e recompilados.

Testei com Fast (TACBrNFeDANFEFRNFCe) e acontece a mesma situação.

Mas beleza, vou fuçar mais aqui e ver se encontro uma solução.

Obrigado.

Testou acima?

[Valdir Dill]

Beleza Carlos, acabei fazendo fiz como você sugeriu e agora está tudo certo.

Na verdade, do jeito inicial que eu estava querendo, mesmo que eu conseguisse imprimir 2 cópias do Danfe, ficaria errado, pois, ou ambas seriam "via consumidor" ou ambas seriam "via empresa".

Com essa sua dica me fez "cair a ficha", rs..

Só para enriquecer o post para o caso de outro colega tiver situação parecida, deixo aqui a rotina final que ficou no meu sistema:

 ACBrNFCe.DANFE.ViaConsumidor := true;
 ACBrNFCe.NotasFiscais.Imprimir; //imprime a via consumidor, sempre.
  if VImprimindoDanfeOff then
    begin
    ACBrNFCe.DANFE.ViaConsumidor := false;
    ACBrNFCe.NotasFiscais.Imprimir; //se estiver em contingência off, imprime a via empresa.
    end;
 

Obrigado!

Editado 24 Novembro, 2017 por valdirdill