Problemas Ao Imprimir O Dacte Com O Recibo Configurado Como Cabeçalho

[Jorge Eduardo]

Quando eu configuro meu componente ACBrCTeDACTeQR1 para imprimir o recibo como cabeçalho ele gera a segunda página, eu tinha resolvido isto usando o recibo como rodapé, assim ele so imprimia uma pagina, só que quando eu faturo em formulário de segurança eu preciso que o recibo fique no cabeçalho. Fico muito grato se alguém poder me ajuda.

[Juliomar Marchetti]

Bom dia

poderia anexar um pdf e um xml para que possamos efetuar o teste?

também informar a versão do delphi que está usando e do quickreport?

[Jorge Eduardo]

Bom dia Juliomar.

 

Pdf e arquivo xml em anexo.

 

Uso o delphi XE e o quickreport na versão 5,05.

000.119.213.pdf

31150208384759000127570000001192131001192136-CTe.xml

000.119.213.pdf

31150208384759000127570000001192131001192136-CTe.xml

Editado 22 Abril, 2015 por Jorge Eduardo

[Italo Giurizzato Junior]

Boa tarde Jorge,

 

Você esta com todos os fontes atualizados?

 

Se sim, ao imprimir o DACTE em papel moeda, ou seja, Formulário de Segurança o tamanho do mesmo é A4?

 

Pois fiz um teste com o seu XML e colocando o canhoto no cabeçalho e a impressão foi normal, ou seja, somente uma folha.

[Jorge Eduardo]

Boa tarde Italo.

 

Atualizei o ACBr com a revisão 9029, e continua o mesmo problema com a arquivo xml citado acima.

 

Obrigado Jorge.

[Italo Giurizzato Junior]

Boa tarde Jorge,

 

Você verificou se a impressora esta configurada para imprimir em tamanho A4?

[Jorge Eduardo]

Boa tarde.

 

Desculpa ter demorado para responder, acabei de testar e conferir a configuração da impressora e esta configurado para A4, mas não deu certo.

 

Obrigado. 

Editado 1 Junho, 2015 por Jorge Eduardo

[Italo Giurizzato Junior]

Boa tarde Jorge,

 

Realmente não sei o que pode estar errado, pois como dito anteriormente, fiz um teste usando o seu XML e a impressão do DACTE ocorreu sem nenhum problema.

[Jorge Eduardo]

Solução no local citado abaixo:

Editado 26 Junho, 2015 por Jorge Eduardo
Regras do forum

[Juliomar Marchetti]

Bom dia Italo.

Esse código é o que esta no formulário TfrmDACTeQRRetrato.pas.

procedure TfrmDACTeQRRetrato.qrb_01_ReciboBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  inherited;
  PrintBand := (QRCTe.PageNumber = 1) and (FCTe.Ide.modal <> mdAereo) and (FPosRecibo = prCabecalho);
  //Rodrigo DSP 22/01/2014 11:22:47: impressao do canhoto - Cabecalho.
  if (FResumoCanhoto) then
    qrlResumoCanhotoCTe.Caption := getTextoResumoCanhoto
  else
    qrlResumoCanhotoCTe.Caption := '';

  qrlSerie2.Caption  := IntToStr(FCTe.Ide.serie); // FormatFloat( '000', FCTe.Ide.serie);
  qrlNumCte2.Caption := FormatFloat('000,000,000', FCTe.Ide.nCT);

  qrb_01_Recibo.Enabled := (FCTe.Ide.tpCTe = tcNormal) or (FCTe.Ide.tpCTe = tcComplemento);
end;

 

Eu alterei o codigo abaixo zerando a qrb_18_Recibo(qrb_18_Recibo.Height  := 0), assim meu relatório passou a imprimir correto com o recibo do cabeçalho.

procedure TfrmDACTeQRRetrato.qrb_01_ReciboBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  inherited;
  PrintBand := (QRCTe.PageNumber = 1) and (FCTe.Ide.modal <> mdAereo) and (FPosRecibo = prCabecalho);
  //Rodrigo DSP 22/01/2014 11:22:47: impressao do canhoto - Cabecalho.
  if (FResumoCanhoto) then
    qrlResumoCanhotoCTe.Caption := getTextoResumoCanhoto
  else
    qrlResumoCanhotoCTe.Caption := '';

  qrlSerie2.Caption  := IntToStr(FCTe.Ide.serie); // FormatFloat( '000', FCTe.Ide.serie);
  qrlNumCte2.Caption := FormatFloat('000,000,000', FCTe.Ide.nCT);

  qrb_01_Recibo.Enabled := (FCTe.Ide.tpCTe = tcNormal) or (FCTe.Ide.tpCTe = tcComplemento);

// Adicionei essa linha.  

qrb_18_Recibo.Height  := 0;
end;

Bom dia

Basta em um local o post não precisa postar em todos os locais! Favor ler as regras do fórum! Obrigado