Array
(
)

Adicionar nova pagina no RvSystem - Rave

Wagnermarrane
   - 11 set 2004

Bom dia Pessoa,

Alguém poderia me informar como posso fazer com que o Rave adicione uma nova pagina quando a pagina atual excede o limite....

Eu tenho o código abaixo e utilizo a ferramenta RvSystem, e sei que quando eu utilizo 50 linha com aquela medidas eu estouro a capacidade da folha e preciso adicionar um nova folha. Como faço isso pelo código

procedure TFrmCxGiovana.RvSystem1Print(Sender: TObject);
var linha: integer;
Entrada, ValorDin, Saida, ValorDi: Currency;
begin
linha:=30;
Entrada:=0;
Saida:=0;
With Sender as TBaseReport do
begin
FontSize:=15;
FontName:=´Arial´;
Gotoxy(40,8);
Print (´Relatório de Caixa - Microlins Artur Nogueira´);
FontSize:=11;
Gotoxy(8,15);
Print (´Funcionário(a): ´+ FrmCxGiovana.label1.caption);
Gotoxy(5,290);
Print(´Relatótio do Caixa de ´+datetostr(date())+ ´ ´+timetostr(time())+´.´);
Gotoxy(5,25); Print(´Cod.´);
Gotoxy(15,25); Print(´Descrição´);
Gotoxy(93,25); Print(´Movto´);
Gotoxy(111,25); Print (´Produto´);
Gotoxy (132,25); Print (´Valor´);
Gotoxy(150,25); Print (´Banco´);
Gotoxy(165,25); Print(´Agencia´);
Gotoxy(185,25); Print(´Cheque n.º´);
FontSize:=9;
DmBanco.TbGiovana.First;
While not DmBanco.TbGiovana.Eof do
Begin
if aux=Dmbanco.TbGiovana.FieldByName(´Data´).AsString then
Begin
Gotoxy (7,Linha);
Print (Dmbanco.TbGiovana.FieldByName(´Codigo´).AsString);
Gotoxy (15,Linha);
print(Dmbanco.TbGiovana.FieldByName(´Decricao´).AsString);
Gotoxy(93,Linha);
Print(Dmbanco.TbGiovana.FieldByName(´TipoMOvimento´).AsString);
Gotoxy(111,Linha);
Print(Dmbanco.TbGiovana.FieldByName(´TipoProduto´).AsString);
Gotoxy(132,Linha);
Print(Dmbanco.TbGiovana.FieldByName(´Valor´).AsString);
Gotoxy(150,Linha);
Print(Dmbanco.TbGiovana.FieldByName(´Banco´).AsString);
Gotoxy(165,Linha);
Print(Dmbanco.TbGiovana.FieldByName(´Agencia´).AsString);
Gotoxy(185,Linha);
Print (Dmbanco.TbGiovana.FieldByName(´Ncheque´).AsString);
linha:=linha+5;
end;
DmBanco.TbGiovana.Next;
end;
DmBanco.TbGiovana.First;
while not DmBanco.TbGiovana.Eof do
Begin
if (aux=DMbanco.TbGiovana.FieldByName(´Data´).asstring) and (Dmbanco.TbGiovana.FieldByName(´TipoMovimento´).AsString=´Entrada´) and (DmBanco.TbGiovana.FieldByName(´TipoProduto´).AsString<>´Cheque Pré´) then
Begin
valorDin:=DmBanco.TbGiovana.FieldByName(´Valor´).AsCurrency;
Entrada:= Entrada+valorDin;
end;
DmBanco.TbGiovana.Next;
end;
DmBanco.TbGiovana.First;
while not DmBanco.TbGiovana.Eof do
Begin
if (aux=DMbanco.TbGiovana.FieldByName(´Data´).asstring) and (Dmbanco.TbGiovana.FieldByName(´TipoMovimento´).AsString=´Saida´) then
Begin
valorDi:=DmBanco.TbGiovana.FieldByName(´Valor´).AsCurrency;
Saida:= Saida+valorDi;
end;
DmBanco.TbGiovana.Next;
end;
FontSize:=15;
Gotoxy(5,283); Print(´Entrada: ´+ currtostr(Entrada));
Gotoxy(70,283); Print(´Saída: ´+ Currtostr(Saida));
Gotoxy(140,283); Print(´Total: ´+Currtostr(Entrada-saida));
end;
end;

Grato Wagner


Wagnermarrane
   - 13 set 2004

Pessoal se alguém sabe como adicionar um nova pagina por favor me ajude... não estou conseguindo imprimir relatório que estouram a capacidade da pagina..

Abraço
Wagner