Impressão carnê FastReport

[Maílson Fernando]

Olá, estou criando uma impressão de carnê, onde tem a linha pontilhada pra recorte. Coloquei tudo em um MasterData e na impressão sai quatro por página, mas no último eu não queria que aparecesse a linha pontilhada.

teste.oxps

[Juliomar Marchetti]

terá que programar verificando seé o último e esconder. como é fast report pode usar pascal nele

[Maílson Fernando]

Exato, mas não sei como verificar se já é o último na impressão;

[Juliomar Marchetti]

Sempre será 4?

uma ideia, cria uma variavel e vai incrementando a cada passada de pintura da linha quando chegar na ultima vai entender que é a ultima edai só dá visible false ou não printavel

[Maílson Fernando]

Sim sempre serão 4 por folha, exemplo: foram 6 itens serão 4 na primeira página e 2 na segunda. O que me interessa é quando for 4 na pagina.

[Juliomar Marchetti]

então faz o que lhe disse. acima e cada nova página zera o contador

[Maílson Fernando]

var contarlinha:integer;
              
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin  

   inc(contarlinha);
  Memo21.text := inttostr(contarlinha);  //Coloquei pra verificar o valor em cada masterdata    
       
end;

procedure Line7OnBeforePrint(Sender: TfrxComponent);
begin    
  
  If contarlinha = 4 then
  begin
    Line7.visible := false;
    
    contarlinha := 0;   
            
  end
  else
  begin
    Line7.visible := true;
  end;

end;

begin

end.

Estou fazendo assim, mas ele não vem correto, Não começa do 1  termina no 4. se poder ajudar

[Juliomar Marchetti]

tem que iniciar a variavel no before print do relatorio zerando ela

[Maílson Fernando]

Obrigado!

Funcionou, zerando a variável.

[Juliomar Marchetti]

Obrigado por reportar.

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