Problema tipo impressão fortes

[giovani deitos]

Ola pessoal.

To com seguinte problema.
Não consigo fazer o fortes imprimir em formato DANFE.
Todas as DANFES como as NFCE são impressas em formato NFC-e.

Uso este código na impressão da NFC-e

 

  dm.nfce.Configuracoes.Geral.ModeloDF := moNFCe;

  dm.nfce.NotasFiscais.Clear;

  dialogo.Title      := 'Selecione a NFE';
  dialogo.DefaultExt := '*-nfe.XML';
  dialogo.Filter     := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  dialogo.InitialDir := dm.tabconfig_arquivos.FieldByName('pasta_arquivos_NFE').AsString;

  if dialogo.Execute then dm.nfce.NotasFiscais.LoadFromFile(dialogo.FileName);

  dm.nfce.NotasFiscais.ImprimirPDF;

  Showmessage('Arquivo Salvo na Pasta: ' + dm.tabconfig_arquivos.FieldByName('pasta_PDF').AsString);

e na DANFE mudo a primeira linha para
dm.nfce.Configuracoes.Geral.ModeloDF := NFe;

Mas não está adiantando

Qual seria a solução?

 

 

[Italo Giurizzato Junior]

Bom dia @giovani deitos,

Para imprimir o DANFE da NF-e no formato A4 devemos usar o componente: ACBrNFeDANFeRL (Fortes Report).

Para imprimir o DANFE da NFC-e no formato A4 devemos usar o componente: ACBrNFeDANFCeFortesA4 (Fortes Report).

Veja esse fragmento de código do programa exemplo:

  if cbModeloDF.ItemIndex = 0 then
    ACBrNFe1.DANFE := ACBrNFeDANFeRL1   // <=== DANFE da NF-e em Fortes Report formato A4
  else
  begin
    case rgDANFCE.ItemIndex of
      0: ACBrNFe1.DANFE := ACBrNFeDANFCeFortes1;
      1: ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1;
      2: ACBrNFe1.DANFE := ACBrNFeDANFCeFortesA41;   // <=== DANFE da NFC-e em Fortes Report formato A4
    end;
  end;

De pendendo o valor do combobox cbModeloDF ele vincula um ou outro componente.