NFC-E saindo em formulário A4

[Carlos Simöes]

Bom Dia.

Consigo gera o xml no modelo 65 tudo certo, mais quando vai imprimir esta saindo no papel A4, acho que falta algum parâmetro para imprimir

na impressora Daruma Dr800,  o que esta errado no código abaixo ? fiz uma alteração no Demo do ACBR, segue o código abaixo com as tela

    Agradeço a todos que puder me ajudar

__________________________________________________________________________________________________________________________________________

var
 vAux, vNumLote, vSincrono : String;
 Sincrono : boolean;
begin
  if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then
    exit;

  if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then
    exit;

  vSincrono := '1';
  if not(InputQuery('WebServices Enviar', 'Envio Síncrono(1=Sim, 0=Não)', vSincrono)) then
    exit;

  vNumLote := OnlyNumber(vNumLote);

  if Trim(vNumLote) = '' then
   begin
     MessageDlg('Número do Lote inválido.',mtError,[mbok],0);
     exit;
   end;

  if (Trim(vSincrono) <> '1') and
     (Trim(vSincrono) <> '0') then
   begin
     MessageDlg('Valor Inválido.',mtError,[mbok],0);
     exit;
   end;

  if (Trim(vSincrono) = '1') then
    Sincrono := True
  else
    Sincrono := False;

 

  ACBrNFe1.NotasFiscais.Clear;
  ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
  ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
  ACBrNFe1.Configuracoes.Geral.IdCSC := edtCSCId.Text;
  ACBrNFe1.Configuracoes.Geral.CSC := edtCSCNumero.Text;
  ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe:=True;
  ACBrNFe1.DANFE.ViaConsumidor := chkViaConsumidor.Checked;
  ACBrNFe1.DANFE.ImprimirItens := not chkDanfeResumido.Checked;
  ACBrPosPrinter1.Device.Porta := cbxPorta.Text;
  ACBrPosPrinter1.CortaPapel:=True;
  ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(cbxModelo.ItemIndex);
  ACBrPosPrinter1.CortaPapel:=True;

  GerarNFCe(vAux);

  ACBrNFe1.Enviar(vNumLote,True,Sincrono);          <========================= 
  ACBrNFe1.NotasFiscais.Items[0].GravarXML();

 

  if not Sincrono then
  begin
    MemoResp.Lines.Text := ACBrNFe1.WebServices.Retorno.RetWS;
    memoRespWS.Lines.Text := ACBrNFe1.WebServices.Retorno.RetornoWS;
    LoadXML(ACBrNFe1.WebServices.Retorno.RetWS, WBResposta);

    MemoDados.Lines.Add('');
    MemoDados.Lines.Add('Envio NFCe');
    MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
    MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);
    MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
    MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));
    MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);
    MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
    MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);
    MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);
    MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);
  end
  else
  begin
    MemoResp.Lines.Text := ACBrNFe1.WebServices.Enviar.RetWS;
    memoRespWS.Lines.Text := ACBrNFe1.WebServices.Enviar.RetornoWS;
    LoadXML(ACBrNFe1.WebServices.Enviar.RetWS, WBResposta);

    MemoDados.Lines.Add('');
    MemoDados.Lines.Add('Envio NFCe');
    MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Enviar.TpAmb));
    MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Enviar.verAplic);
    MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cStat));
    MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cUF));
    MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Enviar.xMotivo);
    //MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cMsg));
    //MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Enviar.xMsg);
    MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Enviar.Recibo);
    //MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Enviar.Protocolo);
  end;

  ACBrNFe1.NotasFiscais.Clear;
end;

 

 

 

 

[BigWings]

1 hora atrás, Carlos Simöes disse:

Consigo gera o xml no modelo 65 tudo certo, mais quando vai imprimir esta saindo no papel A4, acho que falta algum parâmetro para imprimir

na impressora Daruma Dr800,  o que esta errado no código abaixo ? fiz uma alteração no Demo do ACBR, segue o código abaixo com as tela

Qual componente DANFE está usando?

Para usar impressão direta na impressora sem passar pelo spooler do Windows você precisa usar o ACBrNFeDANFEESCPOS.

[Carlos Simöes]

Estou usando ACBrNFe1, ACBrNFeDANFeESCPOS1.ACBrPosPrinter1

Acbr nfe1 

Danfe = ACBrNFeDANFeESCPOS1

ACBrNFeDANFeESCPOS1

PosPinter = ACBrPosPrinter1

conforma figura abaixo

 

 

com esta configuração que esta ai na figura acima, só imprimir no formulário A4, pergunta aonde esta o erro ? 

Desde já agradeço pela atenção

[BigWings]

Debugue e veja se no momento da impressão o componente DANFE é mesmo o ACBrNFeDANFeESCPOS.

Ele não imprime em A4.

[Carlos Simöes]

Vlw, vc esta certo, esta com o Danfe errado, Obrigado BigWings Vlw

[cleudson]

Ola, pessoal fiz esse pequeno aplicativo para emitir nfce, esta funcionando normal modo bobina gostaria que imprimisse tambem A4 quando marcado checbox mais nao acertei colocar alguem pode ajudar?

 

NFEPDF.rar

[Juliana Tamizou]

Boa tarde.

Este tópico está inativo a algum tempo e por isso será fechado, caso necessário favor criar um novo tópico.

Att.