Adicionar nova pagina no RvSystem - Rave

11/09/2004

0

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

[b:d2a2b495d1]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; [/b:d2a2b495d1]

Grato Wagner


Wagnermarrane

Wagnermarrane

Responder

Posts

13/09/2004

Wagnermarrane

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar