Regra de impress�o no Quick Report

Question

Entreguei ao cliente o sistema pronto da� em um dos relat�rios ele quer que crie uma regra, que �:

Quando n�o tiver mais espa�o no final da p�gina para imprimir tr�s linhas de detail ele pula para pr�xima p�gina dando sequencia na outra.

Tem como fazer isso?
Que fa�o?

Jpauloss · Answer

sobe...

Ffabiop · Answer

voc� sabe qtos detalhes cabem na p�gina?tem algum agrupapento? se tem ele equivale a quantas linhas de detalhe na altura?...

Jpauloss · Answer

[quote:e9eafc823f=�ffabiop�]voc� sabe qtos detalhes cabem na p�gina?tem algum agrupapento? se tem ele equivale a quantas linhas de detalhe na altura?[/quote:e9eafc823f]E tem como saber isso?Tem agrupamento.Que fa�o?...

Ffabiop · Answer

Quantas linhas detail aparecem impressas no folha qdo emite o relat�rio?

A id�ia � ter um total de linhas as ser impresso e ir descontando a cada linha listada, depois que imprimir o rodap� do grupo ver se resta menos de 3 linhas para imprimir na folha e for�ar uma quebra de p�gina no detalhe que vem a seguir... mais ou menos isso...

Jpauloss · Answer

[quote:cbfb139a7e=�ffabiop�]Quantas linhas detail aparecem impressas no folha qdo emite o relat�rio?A id�ia � ter um total de linhas as ser impresso e ir descontando a cada linha listada, depois que imprimir o rodap� do grupo ver se resta menos de 3 linhas para imprimir na folha e  for�ar uma quebra de p�gina no detalhe que vem a seguir... mais ou menos isso...[/quote:cbfb139a7e]28 details que imprime, como vou fazer isso? Em que evento?...

Ffabiop · Answer

Vamos ter que declarar uma vari�vel global, pode ser l� na se��o private:
Linhas: integer;

Depois no evento BeforePrint do Relat�rio, colocamos o n�mero de linhas detalhe do relat�rio:
Linhas := 28;

Agora vamos controlar a quebra no evento AfterPrint da banda detalhe:
Linhas := Linhas - 1; // aqui vai contando quantas linas resta na p�gina
if QRBand3.ForceNewPage = true then
QRBand3.ForceNewPage := false;

if linhas < 3 then // se restam menos de 3 linhas na p�gina
begin
QRBand3.ForceNewPage := True; //o pr�ximo detalhe vai for�ar uma nova p�gina
linhas := 28; //nova p�gina temos 28 linhas de novo
end;

Mais oumenos assim, veja o que acontece colega...

Jpauloss · Answer

[quote:33b68b922a=�ffabiop�]Vamos ter que declarar uma vari�vel global, pode ser l� na se��o private:Linhas: integer;Depois no evento BeforePrint do Relat�rio, colocamos o n�mero de linhas detalhe do relat�rio:Linhas := 28;Agora vamos controlar a quebra no evento AfterPrint da banda detalhe:Linhas := Linhas - 1; // aqui vai contando quantas linas resta na p�gina  if QRBand3.ForceNewPage = true then    QRBand3.ForceNewPage := false;   if linhas < 3 then // se restam menos de 3 linhas na p�gina  begin    QRBand3.ForceNewPage := True; //o pr�ximo detalhe vai for�ar uma nova p�gina    linhas  := 28; //nova p�gina temos 28 linhas de novo  end;Mais oumenos assim, veja o que acontece colega...[/quote:33b68b922a]Valeu...

Jpauloss · Answer

[quote:df56a389ab=�ffabiop�]Vamos ter que declarar uma vari�vel global, pode ser l� na se��o private:Linhas: integer;Depois no evento BeforePrint do Relat�rio, colocamos o n�mero de linhas detalhe do relat�rio:Linhas := 28;Agora vamos controlar a quebra no evento AfterPrint da banda detalhe:Linhas := Linhas - 1; // aqui vai contando quantas linas resta na p�gina  if QRBand3.ForceNewPage = true then    QRBand3.ForceNewPage := false;   if linhas < 3 then // se restam menos de 3 linhas na p�gina  begin    QRBand3.ForceNewPage := True; //o pr�ximo detalhe vai for�ar uma nova p�gina    linhas  := 28; //nova p�gina temos 28 linhas de novo  end;Mais oumenos assim, veja o que acontece colega...[/quote:df56a389ab]F�bio, e no caso desse t�pico [url]//forum.devmedia.com.br/viewtopic.php?t=93371&highlight=[/url]Fica como?...

F�rum Regra de impress�o no Quick Report #354140