Imprimir NFC-e em papel A4

[Datalogical Informática]

Prezados,

Gostaria de imprimir a NFC-e em papel A4 (laser). 

Estou gerando NFC-e (65) e, ao imprimir, está saindo no modelo NF-e (55).

As configurações que utilizei foram:

1 - Gerar a NFC-e:

...

  NotaF := ACBrNFe1.NotasFiscais.Add;

...

  if  Assigned( ACBrNFe1.DANFE ) then begin
      if iModelo=55 then begin // NFe
          NotaF.NFe.Ide.tpImp     := ACBrNFe1.DANFE.TipoDANFE; // tipo de impressao: tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica
      end else begin // NFC-e
          NotaF.NFe.Ide.tpImp     := tiNFCe; // ACBrNFe1.DANFE.TipoDANFE; // tipo de impressao: tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica
      end;
  end;
 

...

  //////////////////////////////////////////////////////
  // QR-CODE
  /////////////////////////////////////////////////////

  if iModelo = 55 then begin // 55 = NFC-e
      ACBrNFe1.Configuracoes.Geral.VersaoQRCode:=TpcnVersaoQrCode.veqr000;  //  (veqr000, veqr100, veqr200);
  end else begin // 65 = NFC-e
      ACBrNFe1.Configuracoes.Geral.VersaoQRCode:=TpcnVersaoQrCode.veqr200;  //  (veqr000, veqr100, veqr200);
      if UpperCase(aqyNFBusca.FieldByName('co_ambiente').AsString)='P' then begin // P=Producao
          ACBrNFe1.Configuracoes.Geral.IdCSC:=aqyEmp.FieldByName('ID_NF_CSC1').AsString;
          ACBrNFe1.Configuracoes.Geral.CSC:=aqyEmp.FieldByName('CO_NF_CSC1').AsString;
      end else begin // H=Homologacao
          //showmessage('homologacao!! id:' + aqyEmp.FieldByName('ID_NF_CSC1H').AsString + ' CSC:' + aqyEmp.FieldByName('CO_NF_CSC1H').AsString);
          ACBrNFe1.Configuracoes.Geral.IdCSC:=aqyEmp.FieldByName('ID_NF_CSC1H').AsString;
          ACBrNFe1.Configuracoes.Geral.CSC:=aqyEmp.FieldByName('CO_NF_CSC1H').AsString;
      end;
  end;

  // gera a nota fiscal
  ACBrNFe1.NotasFiscais.GerarNFe;
 

 

2 - Para imprimir:

      ACBrNFe1.NotasFiscais.Clear;
      // recupera xml de nota fiscal assinada e/ou autorizada (5=transmitida)
      ACBrNFe1.NotasFiscais.LoadFromString(sXml, False);
      ACBrNFe1.NotasFiscais.Imprimir; // ver opcao de imprimir direto sem visualizar
 

 

 

[Datalogical Informática]

Desculpe. Descobri que preciso mudar a propriedade DANFE da Nota Fiscal para o template "ACBrNFeDANFCeFortes1".

Obrigado.

[Datalogical Informática]

Só para exemplificar:

...

      if aqyNF.FieldByName('CO_MODELODF').AsInteger = 55 then begin // NF-e
          ACBrNFe1.DANFE:=ACBrNFeDANFeRL1;
      end else begin
          ACBrNFe1.DANFE:=ACBrNFeDANFCeRL1;
      end;
      ACBrNFe1.NotasFiscais.Imprimir; 
...

Tudo certo.

[José M. S. Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.