Impressão automática de danfe de nfe

[rodolfoqaz]

Boa tarde estou com uma dúvida, sera que alguém pode me ajudar?

Seguinte ao gerar a impressão de um DANFE o cliente gostaria que imprimisse direto na impressora padrão do windows, mas sempre aparece a caixa de dialogo para selecionar alguma, coloquei a opção nfeNota.DANFE.MostrarPreview := false; mas isso não é o suficiente, pois, somente não exibe o DANFE, mas continua mostrando a caixa de dialogo da impressora.

Alguém tem alguma solução pra isso?

[Juliomar Marchetti]

informa no campo Impressora do componente a impressora padrão do windows

[rodolfoqaz]

Estou passando a impressora padrão no campo impressora, mas mesmo assim ele ainda exige confirmação pra impressão, já esta com a impressora setada, estou utilizando o codigo a baixo;

nfeNota.DANFE.MostrarPreview := false;
nfeNota.DANFE.Impressora := GetDefaultPrinterName;

sendo nfeNota um objeto do tipo TACBrNFe

 

o problema é que o cliente envia 50 notas ao "mesmo tempo" e pede 50 confirmações de impressão

 

[Juliomar Marchetti]

Use o demo e tente fazer o mesmo  e reporte como reproduzir.

mas basta informar a impressora e desabilitar o mostrarpreview e também o mostrarstatus.

[rodolfoqaz]

Quando tento pelo demo da a mensagem componente DANFE não associado, tem alguma ideia do que seja?

Mesmo alterando 

              nfeNota.DANFE.MostrarPreview := false;
              nfeNota.DANFE.Impressora := GetDefaultPrinterName;
              nfeNota.DANFE.MostrarStatus := false;

ainda abre esse dialogo da imagem abaixo

[Juliomar Marchetti]

Sim exatamente a msg, não tem um componente DANFe associado, basta tu associar ele o componente Report com o NFe

[rodolfoqaz]

Fiz o teste na demo e coloquei essas mesmas configurações e mesmo assim ele pede a ultima confirmação de impressão

[rodolfoqaz]

Deu certo aqui coloquei os seguinte comandos, n eliminei nenhum pra testar se todos são realmente necessários

 

nfeNota.DANFE.Impressora := GetDefaultPrinterName;
ACBrNFeDANFEFR1.Impressora := GetDefaultPrinterName;
nfeNota.DANFE.MostrarStatus := false;
nfeNota.DANFE.MostrarPreview := false;
ACBrNFeDANFEFR1.MostrarPreview := false;
ACBrNFeDANFEFR1.MostrarStatus := false;
ACBrNFeDANFEFR1.ShowDialog := false;

[Juliomar Marchetti]

basta tu configurar somente o componente de danfe e não da nfe.

acho que seu problema estava no showdialog

[ivomar]

Bom dia, 

Estou tentando imprimir o danfe em uma outra impressora que não é a padrão do windows e não está funcionando. É possível?

       Dm3Movimento.ACBrNFeDANFeRL1.Impressora:=CbImpressoraNFe.Text;
       Dm3Movimento.ACBrNFeDANFeRL1.ACBrNFe  :=Dm3Movimento.ACBrNFe1;
       Dm3Movimento.ACBrNFeDANFeRL1.NumCopias:=StrToInt(RxCopia.Text);
       Dm3Movimento.ACBrNFeDANFeRL1.Logo     := Dm1Tabela.Dts_T_ParametroDANFE_LOGOMARCA_PASTA.Value;
       if ChkPreview.Checked=True then
            Dm3Movimento.ACBrNFeDANFeRL1.MostrarPreview:= True
       else
          begin
            Dm3Movimento.ACBrNFeDANFeRL1.MostrarPreview:= False;
            Dm3Movimento.ACBrNFeDANFeRL1.MostrarStatus := False;
          end;
Obrigado

[Juliomar Marchetti]

Sim é possível!

se tiver dúvidas no código do monitor tem implementado como usar.

[ivomar]

Obrigado, vou dar uma olhada no monitor.